Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^2: A Simple JAPH

by Athanasius (Chancellor)
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://969355]
help
Chatterbox?
[Discipulus]: yesterday i changed som plumb filters at home.. neoperl ..
[Corion]: :-D Perl is everywhere!
[choroba]: Discipulus: Ha! Sane dot award 2016!

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2017-01-20 10:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (174 votes). Check out past polls.