Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

JAPH with a smiley

by choroba (Abbot)
on Sep 03, 2013 at 22:20 UTC ( #1052185=obfuscated: print w/ replies, xml ) Need Help??

I think the idea is not bad, but the JAPH phrase is a bit long for that, so it gets boring quickly.
sub e{sub _{-72} er}eval($/='sub J{map{substr$/,ref('.q:)?pop@$_\:$_,$ +$_[0]||1} @_}sub f{uc join "system",J(@_)}print J 4=>1,[2,13],-1,010-1,[ _ ],42- +020,hex"e ";print+h,e,$",f(__LINE__*2+2),e,qw,l,,J(-1,-hex 20),q{ack},e,J hex or +d(0)/4 :)
A variant that is a bit profane:
sub k{join shift,@_}sub e{sub _{-60}er}eval($/='sub J{map{substr$/,ref +()?pop'.q :@$_\:$_,$$_[0]||1}@_}sub f{uc k"system",J(@_)}print J 4,1,[2,13],-1,0 +10-1,[_], 42 -020,hex e;print+h,e,$",f(__LINE__+6),e,qw,l,,J(-1,-hex 16),q{ack}, +e,J 18 :)
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on JAPH with a smiley
Select or Download Code
Re: JAPH with a smiley
by choroba (Abbot) on Sep 04, 2013 at 11:37 UTC

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2014-07-13 05:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (246 votes), past polls