Pastable version of Guess the Code

<pre class='prettyprint' language='perl'>#!/usr/bin/env perl
#What follows is the demented codings of someone bored.
package upsidedown;
use strict;
use warnings;
sub runs() {bless {}}
sub eats
{shift=~y///;my $funnyhat=shift;$funnyhat=$funnyhat+7;return($funnyhat);}
package demise;
sub expect() {bless{}}
sub run()
{shift=~y///;my $uation=shift;eval($uation);return(1);}
	package main;
			use strict;use warnings;#Heh
			sub
yes			{return(&quot;no&quot;)}
			sub
its			{return((shift)-3);}
			sub
crazy		{return(chr(shift));}
			sub 
silly		{if($#_==0){return($_[0]);sub int{};}else{my($Il,$L,$i)=(shift,shift,shift);return(chr(CORE::int(unpack(&quot;H&quot;,$Il)*($L+$i+1))));}}
			sub
this		{return(substr(shift,1,1))}
			sub 
works		{my $job=shift;return(chr($job))}
			sub
in			{my$force=shift;return($force.=&quot;m&quot;);}
			sub
the			{my$foot=shift;return(CORE::int(substr($foot,0,1))/CORE::int(substr($foot,1,1))*2);}
			sub
end			{return(works(shift))}
			sub
is			{if($_[0]=~/[0-9.]/){return(chr(shift))}else{return(&quot; &quot;)if($_[0]eq'not');}}
			sub
very		{if($#_=~/[0-9a-zA-G]*/){&amp;int(eval($_[0]));return(shift)if(1)}else{return(shift);}}
			sub
great		{return(&quot;~&quot;)}
			sub
like		{return(shift)}
			sub
killing		{return((shift))}
			sub
without		{my$idiots=(shift);my$pace=like($idiots);return($idiots);}
			sub
you			{return(this(shift))}sub
   r		{my$ecret=shift;if(shift){return(chr(CORE::int($ecret)));}else{return(($ecret));}}
			sub
odd			{for(1..100){return$_ if is($_/2)eq&quot;@&quot;};}
			sub 
actors 		{return(shift);}

my $this;#is silly, I know
my $iguanna=runs upsidedown;
my $hoes=1337;
my $trangly=silly($iguanna-&gt;eats($hoes));
my $evil=14;
$hoes=$trangly/$evil;
$this.=$hoes;
$this=works($this);
my $plot=$iguanna-&gt;eats(its($evil));
my $dream=$hoes+$plot;
$this.=crazy($dream);end($trangly);
my $newplot=killing($this);
my $toes=in($newplot);
$this=$toes;
my$hat=0;
if($hat&lt;$hoes){$hat=the($hoes);}
$this.=silly(without(chr(actors($hoes/$hat))));
my ($luck,$y)=(&quot;num&quot;,&quot;ber&quot;);
$luck=~y/num/ber/;
$luck=~s/be./13/;
$newplot=$luck;
my$hacke=r(you($luck));
$hacke=r($hoes/$hacke+r($luck));
$this.=($hacke=r($hacke,&quot;y&quot;));
$this.=this($this);
my$fate=yes;
$this.=silly($fate, $luck,$hat);
$this.=(is(&quot;very&quot;). odd);
$this.=is(&quot;not&quot;). great;
my$odd=$this;
my$self=great(&quot;ly&quot;);$odd=~
s/^((.?).*)/$1$2/;
my $advice=expect demise;
my $you=silly($advice);

$this=very($odd);
if($you-&gt;run($this)){die(&quot;for stupidity&quot;);}</pre>
<a href="http://www.refactormycode.com/codes/266-guess-the-code" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Guess the Code