Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

JaphJaph

by benn (Vicar)
on Aug 31, 2003 at 01:42 UTC ( #287968=obfuscated: print w/replies, xml ) Need Help??

I liked the starting principle here...but then it got a bit silly and golfy :) Not hard to understand, but takes a little to untangle.
$japh='AJPJAjajHAJPHAJaaJPAjJajAJaaJPAJHJAjJAjaJHPAJhaAJAJPJAJaaJPAjJA +JpaaaJHaAJ'; $japh=~s/$_/uc($_ x2)/eg for(split(//,'japh')); print join(' ',reverse map{ucfirst lc}split('@',join('',map{split(//); chr(eval join'+',map{index('JAPH',shift(@_))<<($_*2)}map{index('JAPH', +$_)}reverse split(//,'JAPH'))}$japh=~m!(....)!g)));
Enjoy. Ben.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://287968]
Approved by davido
help
Chatterbox?
[karlgoethebier]: Cojones! We need cojones!
[karlgoethebier]: Ouch! Permissions! We need permissions!
[BarApp]: I can not use modules. I gain temporary access and still can not use modules.
[Cosmic37]: ta erix - this szabo geezer is pretty cool methinks and he writes about undef but I cannot see instructions for redefining the record separator after having undefined it
[Corion]: $/ = "wahtever";
[Corion]: (it's a magic variable)
[karlgoethebier]: BarApp: whoami
[Cosmic37]: ok fankyou - I was wondering about that but thought there might be a redefine command or something; peachy

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2017-06-29 16:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (672 votes). Check out past polls.