Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
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?
[Discipulus]: you understand? he told me that bikers die! I'm Eatalian anyway, I've still my left hand below the desktop.. productivity suffers
[hippo]: Trolls are trolls.
[Eily]: Discipulus sadly the CSS solution to ignore him isn't very effective when he answers the thread you want to read ...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2017-11-24 10:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (347 votes). Check out past polls.

    Notices?