Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

string++japh

by edan (Curate)
on Sep 01, 2003 at 06:14 UTC ( #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

Comment on string++japh
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://288090]
Approved by rob_au
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (11)
As of 2014-07-24 11:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (160 votes), past polls