sub b{my $a='push@{$_[0]},('.$_[2].join($_[1],(('(pop@{$_[0]}||1)')x$_ +[0])).$_[3 ].');';sub{eval $a};}$a0=b(1,"","","x2");$a1=b(2,"+");$a2=b(2,"*");$a3 +=b(0,""," 1");$a4=b(1,"","print chr");$s=[];$z='"!3!+"%"#*9):B"--11$2A);"-!$):)1 ++!-%")*%")* -*%"!##))*%2!2%"##))B)1!#"*"A$)",+B"$")*%"#)C*-1!3"-"%"#*A)1!1+,%"1*B' +;map{&${"a $_"}($s)}map{$f=ord(substr($z,$_,1))-33;($f%8,int($f/8))}(0..111);
Yeah... first time trying, can't figure out how to compress it any further yet. Perhaps if I'd designed a more efficient stack machine?
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Need help shortening this
by tilly (Archbishop) on Nov 15, 2003 at 16:53 UTC | |
Re: Need help shortening this
by jonadab (Parson) on Nov 15, 2003 at 23:27 UTC | |
by jynx (Priest) on Nov 18, 2003 at 21:28 UTC | |
by ambrus (Abbot) on Nov 19, 2003 at 11:30 UTC | |
Re: Need help shortening this
by jynx (Priest) on Nov 18, 2003 at 21:18 UTC | |
by mtve (Deacon) on Nov 20, 2003 at 21:41 UTC |
Back to
Obfuscated Code