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

JAPH with a smiley

by choroba (Bishop)
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 (Bishop) on Sep 04, 2013 at 11:37 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1052185]
Approved by Athanasius
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2018-06-19 16:58 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (114 votes). Check out past polls.