Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
No such thing as a small change
 
PerlMonks  

Re^2: A Simple JAPH

by Athanasius (Prior)
on May 08, 2012 at 02:22 UTC ( #969355=note: print w/ replies, xml ) Need Help??


in reply to Re: A Simple JAPH
in thread A Simple JAPH

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


Comment on Re^2: A Simple JAPH
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (15)
As of 2014-04-23 17:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (551 votes), past polls