Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
Problems? Is your data what you think it is?
 
PerlMonks  

Making code less fun to read

by thomas895 (Friar)
on Jun 01, 2012 at 18:27 UTC ( #973833=obfuscated: print w/ replies, xml ) Need Help??

I just turned 15 yesterday, so I thought I'd make a little something.
On an unrelated note, school ended yesterday as well, so it's not like I was bored or anything ;-)

Enjoy!

f(e( ));sub a{%cp= (''. '131',[8,3 ], '1'. '30', [2], '12'. '2', [21],'129',[ 15, 11, 23], ''. '1'. '19',[9,18], '1'. '16', [10,22,14], '125', [6],'1'. '26', [7],'1'. '23 +', [16], '2'. '5',[ 25], '95', [13], '61', [24 +], '114',[20], '47',[4,17 ,12],'112',[19, 5],'' .'1 +32',[1], '89', [0] ) ; %cp; }sub + b { 15;} sub c{ $e= $_[0] -15; $e;} + sub d {chr ($_[ +0]);}sub e { %cp = a(); @cs=();foreach(keys %cp){my$av=c($_);my$cv=d($av);foreach(@{$cp{$av ++15}}){ $cs[$_]=$cv;}}return@cs;}sub f {print join( "", @_ );print "\n";}
~Thomas~
bless( $you ) if $you->{sneezed};

Comment on Making code less fun to read
Select or Download Code
Re: Making code less fun to read
by tobyink (Abbot) on Jun 01, 2012 at 19:33 UTC

    #!/usr/bin/perl
    length q bless glob and print chr ord uc q chr uc and print chr ord q each le and print chr ord q split s and print chr ord q open do and print chr ord q my alarm and print chr ord qq q q and print chr oct ord qw q for q and print chr ord q sin s and print chr ord q or no and print chr ord q lt eval and print chr ord q chr uc and print chr ord qw q die q and print chr ord q each le and print chr ord q my alarm and print chr ord q q q and print chr ord qw q for q and print chr ord q local and print chr ord q or no and print chr ord q q eq and print chr ord q my m and print chr ord q ne sin and print chr ord q msgctl m and print chr ord q stat s and print chr ord q ne sin and print chr ord q or no and print chr ord qw q dump q and print chr ord q map m and print chr ord q my alarm and print chr oct oct ord uc qw q fork q and print chr ord q q eq and print chr ord uc q each ne and print chr ord qw q not q and print chr ord qw q die q and print chr ord qq q q and print chr oct ord q pop and print chr oct oct oct ord uc qw q glob q and print chr ord q cmp lc and print chr ord q q q and print chr oct oct ord uc qw q m q and print chr hex ord q m alarm and print chr ord qq q q and print chr ord q lt eval and print chr ord q local and print chr ord qw q dump q and print chr ord q map m and print chr ord q my alarm and print chr hex length q q bless localtime ref q and print chr length q binmode glob

    perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
      ${\&Internals::SvREADONLY(\!\$!,!\!$!)}='Happy birthday to both of you :)'; print!%!

      Thank you and congratulations to you as well! :-)

      ~Thomas~
      bless( $you ) if $you->{sneezed};

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (10)
As of 2014-04-17 18:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (453 votes), past polls