Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-lcc!styx!ames!ucbcad!ucbvax!hplabs!sdcrdcf!lwall
From: lwall@sdcrdcf.UUCP (Larry Wall)
Newsgroups: comp.misc,comp.text
Subject: Re: self-reproducing programs
Message-ID: <4614@sdcrdcf.UUCP>
Date: Tue, 5-May-87 20:09:31 EDT
Article-I.D.: sdcrdcf.4614
Posted: Tue May  5 20:09:31 1987
Date-Received: Thu, 7-May-87 06:46:34 EDT
References: <3248@bigburd.PRC.Unisys.COM> <514@newton.praxis.co.uk>
Reply-To: lwall@sdcrdcf.UUCP (Larry Wall)
Organization: Unisys - System Development Group, Santa Monica
Lines: 45
Xref: mnetor comp.misc:484 comp.text:766

Keywords:


#!/bin/sh

# Okay, as long as we're back into self-reproducing programs, here's the
# shortest self-reproducing nroff script (that doesn't cheat) that I have
# been able to come up with.

# (Cheating is to use no . or ' commands, or to .so your input file.)

# If you come up with a shorter one, I want to see it!

echo Extracting self.n
sed 's/X//' >self.n <<'!STUFFY!FUNK!'
X.ec8
X.emZZ
X.nryy1000-12
X.nrzz100-1
X.nf
X.deXX
X.tr88n(yy
X88!88!88$1
X.tr88n(zz
X.amZZ..
X88!88!.XX88$1
X.nrnl0-1
X...
X..
X.XX.ec9
X.XX.emZZ
X.XX.nryy1000-12
X.XX.nrzz100-1
X.XX.nf
X.XX.deXX
X.XX.tr99n(yy
X.XX99!99!99$1
X.XX.tr99n(zz
X.XX.amZZ..
X.XX99!99!.XX99$1
X.XX.nrnl0-1
X.XX...
X.XX..
!STUFFY!FUNK!
exit

Larry Wall
{allegra,burdvax,cbosgd,hplabs,ihnp4,sdcsvax}!sdcrdcf!lwall