obfuscated
FoxtrotUniform
<p>What this obfu lacks in artistic merit (that's supposed
to be a Möbius strip), I think it makes up in technique
and name. I got the idea from a Haskell assignment (egads!
Posting homework to the monastery?), and I think the main
concept is mildly clever. I'd love to talk about it, but I
don't want to spoil the surprise!</p>
<code>
#! /usr/bin/perl -w
use strict;
sub godel{my ($f,$a,$l)=@_;return $a unless @$l;my$x=shift @$l;&$f(
$x,&godel($f,$a,$l));}my @M=split '', "Just another ";my @I =split '',
"Perl hacker,"; my @U =reverse @M; sub
escher{my ($l,$m) =@_;sub{$l= pop @U
if @U;$l.&$m();} } unshift@U, split ''
,"pool egnarts";my$bach=&godel(\&escher,&godel(\&escher,sub{return"\n"}
,\@I),\@M);print &$bach(); ### Inspired by Douglas Hofstadter's _GEB_
</code>
<p>Tested on Perl 5.6.1, Linux 2.4.18.</p>
<div class="pmsig"><div class="pmsig-95145">
<p><tt>-- <br>
<font color="#000000">F</font>
<font color="#220000">o</font>
<font color="#550000">x</font>
<font color="#880000">t</font>
<font color="#aa0000">r</font>
<font color="#dd0000">o</font>
<font color="#ff0000">t</font>
<font color="#ff0000">U</font>
<font color="#dd0000">n</font>
<font color="#aa0000">i</font>
<font color="#880000">f</font>
<font color="#550000">o</font>
<font color="#220000">r</font>
<font color="#000000">m</font><br>
Found a typo in this node? /msg me<br>
% man 3 strfry
</tt></p>
</div></div>