Differences

This shows you the differences between two versions of the page.

--- selfgol [2007-06-07 12:02] – created nik
+++ selfgol [2020-10-22 14:34] – Working selfgol code from https://debconf2.debconf.org/talks/dconway/dconway-extreme-perl.tex 63.241.40.119
@@ Line 11: / Line 11: @@
   selfgol -g [-y=## -x=##] [< gamefile] plays the Game of Life with its own source code or an arbitrary file, with optional height and width restrictions.
   selfgol -d[=bannertext] displays a rotating banner with the provided text. If no text is provided, it uses the program name as the text.
 SelfGOL was written to win all four categories in the Obfuscated Perl contest (3rd year, I believe, whose web pages are no longer available) and still comply with other restrictions of not using modules and being under 1000 bytes. Alas, the rules were drastically changed for the following year's contest, and so it was never entered.
-the self-replicating code, used the standard quine code:
+the self-replicating code, used the standard [[quine]] code:
-<code>
+<code perl>
-  @s=(
+#!/usr/bin/perl -s
-    q[printf pop@s, @s],
+$;=$/;seek+DATA,undef$/,!$s;$_=<DATA>;$s&&print||(*{q;::\;
-    q[@s=(q[%s],q[%s])x2;%s],
+;}=sub{$d=$d-1?$d:$0;s;';\t#$d#;,$_})&&$g&&do{$y=($x||=20)*($y||8);sub
-  )x2;
+i{sleep&f}sub'p{print$;x$=,join$;,$b=~/.{$x}/g,$;}sub'f{pop||1}sub'n{substr($b,
-  printf pop @s, @s;
+&f%$y,3)=~tr,O,O,}sub'g{@_[~~@_]=@_;--($f=&f);$m=substr($b,&f,1);($w,$w,$m,O)
+[n($f-$x)+n($x+$f)-(${m}eq+O=>)+n$f]||$w}$w="\40";$b=join'',@ARGV?<>:$_,$w
-#!/usr/bin/perl -s
+x$y;$b=~s).)$&=~/\w/?O:$w)gse;substr($b,$y)=q++;$g='$i=0;$i?$b:$c=$b;
-$;=$/;seek+DATA,!++$/,!$s;$_=<DATA>;$s&&print||$g&&do{$y=($x||=20)*($y||8);sub
+substr+$c,$i,1,g$i;$g=~s?\d+?($&+1)%$y?e;$i-$y+1?eval$g:do{$b=$c;p;i}';
-i{sleep&f}sub'p{print$;x$=,join$;,$b=~/.{$x}/g}$j=$j;sub'f{pop}sub
+sub'e{eval$g;&e};e}||eval||die+No.$;
-n{substr($b,&f%$y,3)=~tr,O,O,}sub'g{$f=&f-1;($w,$w,substr($b,&f,1),O)[n($f-$x)+
-n($x+$f)-(substr($b,&f,1)eq+O)+n$f]||$w}$w="\40";$b=join'',@ARGV?<>:$_,$w
-x$y;$b=~s).)$&=~/\w/?O:$w)ge;substr($b,$y)=q++;$g='$i=0;$i?$b:$c=$b;
-substr+$c,$i,1,g$i;$g=~s?\d+?($&+1)%$y?e;$i-$y+1?eval$g:do{$i=-1;$b=$c;p;i
-}';sub'e{eval$g;&e}e}||eval||die+No.$;
 __DATA__
-if($j){{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}
+$d&&do{{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}
-@s=(q[$_=sprintf+pop@s,@s],q[
+@s=(q[$_=sprintf+pop@s,@s],";\n"->($_=q[
-if($j){{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}     #_The_Perl_Journal_#
+$d&&do{{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}'
-@s=(q[%s],q[%s])x2;%s;print"\n"x&_,$_;i$j;eval}
+@s=(q[%s],q[%s])x2;%s;print"\n"x&_,$_;i;eval};
-])x2;$_=sprintf+pop@s,@s;print"\n"x&_,$_;i$j;eval}$/=$y;$"=",";print
+]))x2;$_=sprintf+pop@s,@s;print"\n"x&_,$_;i;eval};$/=$y;$"=",";print
-q<#!/usr/local/bin/perl -sw
+q<#!/usr/bin/perl -sw
-if(!$s){>.($_=<>).q<}else{@s=(q[printf+pop@s,@s],q[#!/usr/local/bin/perl -sw
+!$s?{do{>.($_=<>).q<}:do{@s=(q[printf+pop@s,@s],q[#!/usr/bin/perl -sw
-if(!$s){>.(s$%$%%$g,tr=[=[===tr=]=]=||&d,$_).q<}else{@s=(q[%s],q[%s])x2;%s}
+!$s?{do{>.(s$%$%%$g,y=[====y=]==||&d,$_).q<}:do{@s=(q[%s],q[%s])x2;%s}
 ])x2;printf+pop@s,@s}
 >
@@ Line 49: / Line 44: @@
 ----
-loosely related,.. some perl quines from -> http://www.nyx.net/~gthompso/quine.htm
+==== some perl quines ====
+loosely related,.. from -> http://www.nyx.net/~gthompso/quine.htm
 Author: Tushar Samant
-Note: This will produce itself, and will do so no matter what you set $a to in the beginning. So if the length of $a is n, and the size of the allowed character set is C, then at least C**n out of C**(n+K) strings are self-reproducing Perl programs.
+Note: This will produce itself, and will do so no matter what you set $a to in the beginning. So if the length of $a is n, and the size of the allowed character set is C, then at least <nowiki>C**n out of C**(n+K)</nowiki> strings are self-reproducing Perl programs.
 <code>
@@ Line 67: / Line 65: @@
 <code>
 $_=q(print"\$_=q($_);eval;");eval;
-paper on writing quines (in C) http://www.cs.washington.edu/homes/csk/paper/
 </code>
+paper on writing [[quines]] (in C) http://www.cs.washington.edu/homes/csk/paper/
 ----
 Libarynth >  Libarynth Web > ComputerScience > GeneticProgramming > SelfGOL r5 - 30 Sep 2006 - 16:29
 ----