<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). &nbsp;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 &quot;No&quot; as
does the 'turn any pl into a quine' behaviour. &nbsp;Does anybody know
if perl versions improvements have broken selfgol? &nbsp;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;$_=&lt;DATA&gt;;$s&amp;&amp;print||$g&amp;&amp;do{$y=($x||=20)*($y||8);sub</font>
<br><font size=2 face="sans-serif">i{sleep&amp;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,&amp;f%$y,3)=~tr,O,O,}sub'g{$f=&amp;f-1;($w,$w,substr($b,&amp;f,1),O)[n($f-$x)+</font>
<br><font size=2 face="sans-serif">n($x+$f)-(substr($b,&amp;f,1)eq+O)+n$f]||$w}$w=&quot;\40&quot;;$b=join'',@ARGV?&lt;&gt;:$_,$w</font>
<br><font size=2 face="sans-serif">x$y;$b=~s).)$&amp;=~/\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+?($&amp;+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;&amp;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}}
&nbsp; &nbsp; #_The_Perl_Journal_#</font>
<br><font size=2 face="sans-serif">@s=(q[%s],q[%s])x2;%s;print&quot;\n&quot;x&amp;_,$_;i$j;eval}</font>
<br><font size=2 face="sans-serif">])x2;$_=sprintf+pop@s,@s;print&quot;\n&quot;x&amp;_,$_;i$j;eval}$/=$y;$&quot;=&quot;,&quot;;print</font>
<br><font size=2 face="sans-serif">q&lt;#!/usr/local/bin/perl -sw</font>
<br><font size=2 face="sans-serif">if(!$s){&gt;.($_=&lt;&gt;).q&lt;}else{@s=(q[printf+pop@s,@s],q[#!/usr/local/bin/perl
-sw</font>
<br><font size=2 face="sans-serif">if(!$s){&gt;.(s$%$%%$g,tr=[=[===tr=]=]=||&amp;d,$_).q&lt;}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">&gt;</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>
&quot;The lawgiver, of all beings, most owes the law allegiance. &nbsp;<br>
They of all people should behave as though the law compelled <br>
them. &nbsp;But it is the universal weakness of humankind that <br>
what we are given to administer we presently imagine we own.&quot;<br>
-- H.G. Wells, on being a sys admin</font>