Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Pop pop pop

by Adam (Vicar)
on Sep 20, 2000 at 18:48 UTC ( [id://33291]=obfuscated: print w/replies, xml ) Need Help??

Its been awhile since I've posted a JAPH, so here is a silly one:
*ARGV=[3,-3,-5,10,-2,0,7,-6,10,2,4,1,0,2,5];$;=eval(q);$,=qq/\145\162/ +));@; =split'',achJklmnostuq=>$=-46;;$/=qq:$;[pop] $;[pop]$;[pop]$;[pop]$;[p +op]$; :;*^W=$[;*==q===>$.=$"=>map{$=.=$;[$_]}@ARGV;$==~s=q= ==>print $==>' P +',$/;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2024-04-16 20:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found