Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

JAPH with a smiley

by choroba (Chancellor)
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 :)
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re: JAPH with a smiley
by choroba (Chancellor) 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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (9)
As of 2016-12-05 15:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (86 votes). Check out past polls.