Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

A Simple JAPH

by Athanasius (Chancellor)
on May 07, 2012 at 16:02 UTC ( #969289=obfuscated: print w/replies, xml ) Need Help??

My first effort:

$_='penflillggplmhlllpkolhmhgiokmpmhkegopckdlmlckemhge'; tr/g-p/0-9/;my@x=map{-84+hex$_}$_=~/[A-F0-9]{2}/gi;my@y= shift@x;push@y,$_+$y[-1]for@x;print join'',map{chr$_}@y;
“...an ill-favoured thing, sir, but mine own.” —As You Like It (Act 5, Scene 4)

Regards,

Athanasius <°(((><contra mundum

Replies are listed 'Best First'.
Re: A Simple JAPH
by ambrus (Abbot) on May 07, 2012 at 21:09 UTC

    This obfu is nice because it's hard to see at first what it will print. Allow me a few minor comments though. (I'll use spoiler tags to not spoil anything for readers who hasn't decoded the obfu yet.)

    Let me list some specific good points of this obfu too.

      Wow! Thank-you ambrus for such detailed feedback.

      Taking (most of) your comments on board, the JAPH now looks like this:

      $_='penflillggplmhlllpkolhmhgiokmpmhkegopckdlmlck' .'emhgeji';y,g-p,0-9,;my@x=map{-84+hex}m;\w.;g;my@ y=shift@x;push@y,$_+$y[-1]for@x;print(map{chr}@y);

      I should have mentioned an additional requirement I imposed on myself: the code runs clean under use strict; and use warnings;

      This is fun!

      Regards,

      Athanasius <°(((><contra mundum

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://969289]
Approved by tobyink
help
Chatterbox?
[Discipulus]: Happy-the-monk CTRL is the same. SHIFT is a big fat arrow pointing up. TAB are two opposite arrows on each other pointing left/rigth
[choroba]: Discipulus Read the source of Acme::MJD

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













    Results (297 votes). Check out past polls.

    Notices?