This coming from someone whose language contains such gems like this:
$_='n j h f d c b b a';sub ::x(){${2**0-0**0}};sub ::s(){$_=qq]$1]};
sub ::'&'{$_[0]}sub :{*$=*g;*<=*a;@$= split, 'tao' }; sub ::1{*>=*_;
&::::::};sub ::2{print`clear`;}sub ::3{ system'cls'}sub ';' {\&x; $a
=&s;$b=q;();}sub yang {*#=*d;qq{ 11| 15| 22| 34| 40| 44| 48| 5| 51|}
.qq{"35|"58|.57|:33|M16|P23|T1|T36|a17|a28|a54|a8|e10|e14|e20|e31|e}
.qq{39|e53|e56|f41|g26|h13|h2|i37|k9|l52|m29|m30|m38|o25|o42|o46|o5}
.qq{0|p7|r21|r24|r27|r32|r43|s18|s4|s6|t12|t19|t49|u3|u47|v55|y45};}
sub ::::::{$% = join'',a..z;s/\n//sg;s/, /,\n/g; m:;(.*?);:s; *+=*b;
s();eval $_;exec x();}sub yin{join'',($/x(2),(map{$_->[0]}sort{$a->[
1]<=>$b->[1]}map{s/(.)(\d+)//g;[$1,$2]}split/\|/,$_[0]),$/x(3));}sub
a{($%,$@)=($@,$%)};sub ::::::::{$a=q{$b-> (); 0, ((((((($>=$<))), ((
((((((((((tr/()\n/x/c)))), (((((((((((((((( s(x)[]g)))), (((((((((((
tr/()/X>/),(((((($< = $>)))))), (((((((((((((@>=map{index$k,$_}( @$,
reverse@$)),((((@%=split$/,$<,((($<= $>))))))), ((((((((((((((((((((
(((shift@%))))))))), (((((((((((((((((((((@% = map{($"x(shift@_)).$_
.$/}@%))))))))), (((((((((((((((((((($@=("@{%}"))))))))))))), ((((((
( ( (((((((((($@=~y(X>)[<X]))))) )))))) ))))), ((( (((((((((((((($%=
"@{%}"))))))))))))))))))), (((((((((((($g=::{($^O=~/Win32/)+2}))))))
)))))))))))))), ((((((((((($g=&$g))))))))))))) )))))))))), (((((((((
$<=::{&$g }))))))))))))))))))))))), ((((($+=yin(yang( ))))))),(( )))
))))))))))), (((((( )))))),(()))))))))))), ((((())))))))))))))))), (
(((( )))) ))))))))), ((( ))) ))));$i=::{$<->(a());print$%,$+}; sleep
&$i while($/);};s;$_;$a;; print '';};*%=*k;::{ &::::::::-> ()}-> ();
?
(note: if anyone takes this at all seriously, you should remove yourself from the gene pool immeadiately.
note2: all credit for this monstrosity goes to: felonious from this node |