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

5 little blocks of code

by thomas895 (Chaplain)
on May 29, 2012 at 19:54 UTC ( #973106=obfuscated: print w/replies, xml ) Need Help??

5 little blocks of code
Happy as can be.
Along came the IDE
and formatted them into three.

Along came the inter-preter
who didn't like this a bit.
So it went ahead
And put them all back.

On to Perl-Monks this little script went
Aspiring to be famous
For this rhyme that makes no sense!

g(f());sub a{"1722152". "132141301952082092142". "021992121301781992 +122". "061302021951972051992". "12144108";}sub b { length(scalar(shift));} sub c{98;}sub d {3;}sub e{return $_[0]+d(); +}sub f{my $h = b(a());my @i = ();my $j=0;while($j <$h){my $k=sprintf('%d' ,substr(a(),$j,d));push (@i,chr($k- c));$j= +e($j );}return@i;}sub g{abcd( join("",@_)) }sub abcd{ print @_ + ; }
~Thomas~
I believe that the source code to life is written in Perl :-)

Replies are listed 'Best First'.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://973106]
Approved by tobyink
Front-paged by Arunbear
help
Chatterbox?
[1nickt]: They assume that I want things I don;t and don;t provide things I do want. Looking for a 17" laptop with 4k (even 3K display) and full numeric-pad keyboard.
[1nickt]: They assume that if I want a 17" monitor I could not possibly want 4k screen
[1nickt]: They assume I do not need a DVD drive
[1nickt]: Heh, or they assume that if I want all that I am a "gamer" and I must want red backlighting for the keyboards and that I will pay $3500 ...
[stevieb]: what is your budget? HP 17" 4k display, DVD writer, full numeric keypad
[stevieb]: $1500 USD

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2017-03-26 18:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (315 votes). Check out past polls.