<font size=2 face="sans-serif">I remember, long ago, coming down to Chicago
for D. Conway's selfgol explanation in a bar session (the explanation made
me woozier than the beer as I recall). Trying a copy now (one copy
I found):</font>
<br><a href=http://www.selectorweb.com/SelfGOL.tar.gz><font size=2 face="sans-serif">http://www.selectorweb.com/SelfGOL.tar.gz</font></a>
<br>
<br><font size=2 face="sans-serif">I get a number of failures, that is,
-j (and the banner param from:</font>
<br><a href="http://libarynth.org/?id=selfgol"><font size=2 face="sans-serif">http://libarynth.org/?id=selfgol</font></a>
<br>
<br><font size=2 face="sans-serif">-b or -d) produces "No" as
does the 'turn any pl into a quine' behaviour. Does anybody know
if perl versions improvements have broken selfgol? As it is so small</font>
<br>
<br><font size=2 face="sans-serif">#!/usr/local/bin/perl -sw</font>
<br><font size=2 face="sans-serif">$;=$/;seek+DATA,!++$/,!$s;$_=<DATA>;$s&&print||$g&&do{$y=($x||=20)*($y||8);sub</font>
<br><font size=2 face="sans-serif">i{sleep&f}sub'p{print$;x$=,join$;,$b=~/.{$x}/g}$j=$j;sub'f{pop}sub</font>
<br><font size=2 face="sans-serif">n{substr($b,&f%$y,3)=~tr,O,O,}sub'g{$f=&f-1;($w,$w,substr($b,&f,1),O)[n($f-$x)+</font>
<br><font size=2 face="sans-serif">n($x+$f)-(substr($b,&f,1)eq+O)+n$f]||$w}$w="\40";$b=join'',@ARGV?<>:$_,$w</font>
<br><font size=2 face="sans-serif">x$y;$b=~s).)$&=~/\w/?O:$w)ge;substr($b,$y)=q++;$g='$i=0;$i?$b:$c=$b;</font>
<br><font size=2 face="sans-serif">substr+$c,$i,1,g$i;$g=~s?\d+?($&+1)%$y?e;$i-$y+1?eval$g:do{$i=-1;$b=$c;p;i</font>
<br><font size=2 face="sans-serif">1}';sub'e{eval$g;&e}e}||eval||die+No.$;</font>
<br><font size=2 face="sans-serif">__DATA__</font>
<br><font size=2 face="sans-serif">if($j){{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}</font>
<br><font size=2 face="sans-serif">@s=(q[$_=sprintf+pop@s,@s],q[</font>
<br><font size=2 face="sans-serif">if($j){{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}
#_The_Perl_Journal_#</font>
<br><font size=2 face="sans-serif">@s=(q[%s],q[%s])x2;%s;print"\n"x&_,$_;i$j;eval}</font>
<br><font size=2 face="sans-serif">])x2;$_=sprintf+pop@s,@s;print"\n"x&_,$_;i$j;eval}$/=$y;$"=",";print</font>
<br><font size=2 face="sans-serif">q<#!/usr/local/bin/perl -sw</font>
<br><font size=2 face="sans-serif">if(!$s){>.($_=<>).q<}else{@s=(q[printf+pop@s,@s],q[#!/usr/local/bin/perl
-sw</font>
<br><font size=2 face="sans-serif">if(!$s){>.(s$%$%%$g,tr=[=[===tr=]=]=||&d,$_).q<}else{@s=(q[%s],q[%s])x2;%s}</font>
<br><font size=2 face="sans-serif">])x2;printf+pop@s,@s}</font>
<br><font size=2 face="sans-serif">></font>
<br>
<br><font size=2 face="sans-serif">a</font>
<br><font size=2 face="sans-serif">----------------------<br>
Andy Bach<br>
Systems Mangler<br>
Internet: andy_bach@wiwb.uscourts.gov<br>
Voice: (608) 261-5738; <br>
Cell: (608) 658-1890<br>
<br>
"The lawgiver, of all beings, most owes the law allegiance. <br>
They of all people should behave as though the law compelled <br>
them. But it is the universal weakness of humankind that <br>
what we are given to administer we presently imagine we own."<br>
-- H.G. Wells, on being a sys admin</font>