Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

string++japh

by edan (Curate)
on Sep 01, 2003 at 06:14 UTC ( [id://288090] : obfuscated . print w/replies, xml ) Need Help??

My first Obfu attempt - nothing terribly hard to figure out, but I had fun with it...

@j=(1,143,0,141365,1,285060,4223,1,357056,0,1054,1,190460,6805,2,97); $t=sub{$_[0]++};$p=sub{&$t($a)for(1..pop@j)};$h=sub{for$e(split'',$a) {&$t($e)for(1..pop@j);print$e,pop@j?$/:q**}};$a=chr(pop@j);&$p,&$h() for(1..pop@j);

Update: credit goes to woolfy, for magic-string-auto-increment-based-japh inspiration.

--
3dan