Pastable version of Guess the Code

<div style="overflow:auto;border:solid 1px #ccc;background:#000;color:#F8F8F8">
 <div class="section">
 
 <pre style="float:left;margin:0 10px;border-right:0;color:#666;">1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90</pre>
 <pre class="sunburst">#!/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>
 </div>
 </div>

Refactor :my => 'code'

Recent

Popular

Pastable version of Guess the Code