Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
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?
[ambrus]: Corion: schmorp points out https://metacpan. org/pod/release/ KARASIK/Prima-1. 49/pod/Prima/File. pod,
[ambrus]: so there's an IO waiter (Prima::File) and a timer (Prima::Timer) maybe it's possible to write an AnyEvent loop driver over it, a saner one than POE

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (12)
As of 2016-12-07 16:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (130 votes). Check out past polls.