Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Pop pop pop

by Adam (Vicar)
on Sep 20, 2000 at 18:48 UTC ( #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
Node Status?
node history
Node Type: obfuscated [id://33291]
Approved by root
help
Chatterbox?
Corion orders some gifts online :)
[ambrus]: We're spending Christmas and the week after at my brother's place. First time ever, because the last four years they could came home instead.
[ambrus]: robby_dobby: wait what? Glasgow? isn't that one of the most boring towns ever?
[marto]: ambrus: no :)
[robby_dobby]: ambrus: Dunno. marto is from Glasgow. I'm in London and I say London is quite colourful, but boring :-)

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (11)
As of 2017-12-15 10:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (431 votes). Check out past polls.

    Notices?