Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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 exploiting the Monastery: (7)
As of 2014-07-12 00:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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








    Results (237 votes), past polls