diff options
Diffstat (limited to 'ipl/progs/repro.icn')
-rw-r--r-- | ipl/progs/repro.icn | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/ipl/progs/repro.icn b/ipl/progs/repro.icn new file mode 100644 index 0000000..c1d8264 --- /dev/null +++ b/ipl/progs/repro.icn @@ -0,0 +1,27 @@ +############################################################################ +# +# File: repro.icn +# +# Subject: Program to self-reproduce +# +# Author: Kenneth Walker +# +# Date: August 4, 2000 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# This program generates the shortest known self-reproducing Icon +# program. The generated program is identical to this file except +# for deletion of this header and the "global x" declaration, which +# appear here so that the Icon library builds cleanly. +# +############################################################################ + +global x + +procedure main();x:="procedure main();x:= \nx[21]:=image(x);write(x);end" +x[21]:=image(x);write(x);end |