Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

My JAPH

by varnie (Initiate)
on Jun 17, 2013 at 16:23 UTC ( #1039412=obfuscated: print w/ replies, xml ) Need Help??

Hi there. Here's my JAPH:
#!/usr/bin/perl use warnings; use strict; my$k='my$i=0; foreach my $v (-4,26,10,-4, -104,-56, -61 ,-79,-94,-127 ,-152,-162, - 268,-245,-250 ,-264,-298, - 403,-361,-399 ,-429,-454, - 494,-516){$_[ $i++]+= $v; } join"",map{chr }@_;';foreach( reverse(12..35) ){$k="sub{$k}-> (\@_, int map{( int)x\$_}(1..$_ ))"}print eval$k
Shrinked version:
#!/usr/bin/perl use strict; use warnings; my$k='my$i=0;foreach my$v(-4,26,10,-4,-104,-56,-61,-79,-94,-127,-152,- +162,-268, -245,-250,-264,-298,-403,-361,-399,-429,-454,-494,-516){$_[$i++]+=$v}j +oin"",map {chr}@_;';foreach (reverse (12..35)){$k="sub{$k}->(\@_,int map{(int)x\ +$_}(1..$_ ))"}print eval $k;

Comment on My JAPH
Select or Download Code
Re: My JAPH
by perlaintdead (Scribe) on Aug 24, 2013 at 02:02 UTC

    I would suggest not declaring variables unless you need to, to make it work.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2014-09-21 22:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (176 votes), past polls