Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
eval($s=join("",qw{$t=1;$s=~/\[[0-9,]+\]/;$n=eval($&);$e='eval$s=%w'.chr(39).'t=
true;e="eval($s=join( "<<34<<34<<",qw{$t=1;$s= ~/"<<92<<"[[0-9,]+"<<
92<<"]/;$n=eval($&) ;$e="<<3 9<<"eval$s=%w"<<39 <<". chr(39)."<<39<<
($s+(($s.length>17 56)?"":"#"<<$ s.gsub (/[^0-9a-zA- Z]/,"")[0,(17
55-$s.length)])); e[-312,311]=""<<3 9<<";$e.=("<<39<< "#"<<39<<".
substr(join("<<3 9<<39<<",split(/[^0-9 a -zA-Z]/,$s)),0,(200 9-length(
$s)))).chr(39)." <<39<<".join"<<39<<";@o =map{$t=!$t;split(//, ((!$t)?s
ubstr($e,0,$_," <<39<<39<<"):chr(32)x$_ ))}@$n;for(1 . .34){spl
ice(@o,$_*81,0, chr(10))};print(join("< <39<<39<< ",@o).chr
(10))}))";o=[1 01,10,24,4,40 ,3 , 8,4,18,3,
4,6,33,2,13,3, 6,10,12,3 , 30,2,17,
14,17,2,27,2,2 1,3,1,7, 1 9,2,25,1
,23,9,21,2,2 3,2,23, 9 , 1 2 ,6,1,4,
23,1,23,1 1,9,12 , 2 3 , 2 ,13,4,
2,21,1,1 4,23,2, 9, 2 7 ,1 ,19,
22,1,8,1 9,1,29, 20, 3,7,9 ,1 ,18 ,1
,4,1,3,1 ,13,16,6 ,6 ,6,1,9,1 ,8,1 ,10 ,1,11
,1,4,14 ,6,7,26,2,1 1,1 ,4 , 1,4, 2,4,12 ,6,7,19
,3,5, 5,3,2,14,3,3, 1 0 ,5,8 ,13,2,2,8,2,4,3,3, 1 5 ,5,2,7,
4,11, 10,3,4,2,4,1 ,2,4, 1, 6,14,12,4,13,6, 1 ,2,1,3,
4,5 ,18,3,1,3,1,3, 12,3,1 2, 13,5,1,2,4,15 , 1 ,1,11,10,3
,1 4,12,6,1,2,5,13, 2,1,1,1 ,6,12,2,16,11 , 7,8,13,2,1,
7, 13,1,18,10,8,6,14, 1,2,10,1 0,1,20,12,5,3, 12 ,1,6,13,
7, 2,19,13,26,14,7,2,16 ,16,1 1,1,13,14,8, 2,14,1 6,13,
7, 5,15,10,3,8,10,1,8, 25,10,1,4,13,27,23,12,4,2, 12,5
,1, 1,1,8,1,13,17,10 ,1,3,5,1,12 ,14,4,8,4,10, 2,13
,25, 2,3,9,4,2,1,3, 15,13,33,4,5, 1,4,3 ,20,
8,182] .map{|i| t =!t;((!t)?e.slice!(0,i):3 2 .chr
*i)}.join ;1.upto(35){|i|o[(i*81) -1,0 ]=1
0.chr};pu t s ( o)#ttrueeevalsjoi n 3434q wt1s
920992ne vale 39ev al sw39chr3939ssleng
th1756sg sub 09az A Z01755slengthe3 1231139e3939substrjo
';$e.=('#'.su bstr( join ('',split(/[^0-9a-zA -Z]/,$s)),0,(2009-leng
th($s)))).chr(39).'.join';@o=map{$t=!$t;split(//,((!$t)?substr($e,0,$_,''):chr(3
2)x$_))}@$n;for(1..34){splice(@o,$_*81,0,chr(10))};print(join('',@o).chr(10))}))
eval$s=%w't=true;e="eval($s=join("<<34<<34<<",qw{$t=1;$s=~/"<<92<<"[[0-9,]+"<<92<
<"]/;$n=eval($&);$e= "<<39<<"eval$s=%w"<<39<< ".chr(39)."<<39<<($s+(
($s.length>1756)?" ":"#"<<$ s.gsub(/[^0-9a-zA- Z]/, "")[0,(1755-$s.l
ength)]));e[-312, 311]=""<<39<< ";$e.= ("<<39<<"#"< <39<<".substr(
join("<<39<<39<< ",split(/[^0-9a-z A-Z]/,$s)),0,(200 9-length($s)
))).chr(39)."<< 39<<".join"<<39<<";@o = map{$t=!$t;split(// ,((!$t)?su
bstr($e,0,$_,"< <39<<39<<"):chr(32)x$_) )}@$n;for(1..34){spli ce(@o,$_*
81,0,chr(10))} ;print(join("<<39<<39<< ",@o).chr(10 ) )}))";o=[
101,10,24,4,40 ,3,8,4,18,3,4,6,33,2,13 ,3,6,10,1 2,3,30,2,1
7,14,17,2,27, 2,21,3,1,7,19 ,2 , 25,1,23,9,
21,2,23,2,23, 9,12,6,1, 4 ,23,1,23,
11,9,12,23,2, 13,4,2,2 1 ,1,14,23,
2,9,27,1,19 ,22,1,8 , 1 9 , 1,29,20,
3,7,9,1, 18,1,4 , 1 , 3 , 1,13,16
,6,6,6, 1,9,1,8 ,1 , 1 0, 1,11,
1,4,14, 6,7,26, 2,1 1,1,4 ,1 ,4, 2,4
,12,6,7 ,19,3,5, 5, 3,2,14,3 ,3,1 0,5 ,8,13 ,
2,2,8, 2,4,3,3,15, 5,2 ,7 , 4,11 ,10,3, 4,2,4,1,
2,4, 1,6,14,12,4,1 3 , 6,1, 2,1,3,4,5,18,3,1,3 , 1 ,3,12,3,
12,1 3,5,1,2,4,15 ,1,1, 11 ,10,3,14,12,6,1 , 2,5,13,2
,1 ,1,1,6,12,2,16 ,11,7, 8, 13,2,1,7,13,1 , 1 8,10,8,6,14
, 1,2,10,10,1,20,1 2,5,3,1 2,1,6,13,7,2, 1 9,13,26,14,7
, 2,16,16,11,1,13,14 ,8,2,14, 16,13,7,5,15,1 0, 3,8,10,1,
8 ,25,10,1,4,13,27,23, 12,4, 2,12,5,1,1,1 ,8,1,1 3,17,1
0 ,1,3,5,1,12,14,4,8, 4,10,2,13,25,2,3,9,4,2,1,3 ,15,1
3, 33,4,5,1,4,3,20, 8,182].map{ |i|t=!t;((!t) ?e.sl
ice !(0,i):32.chr* i)}.join;1.up to(35 ){|i|
o[(i* 81)-1,0] = 10.chr};puts(o)#ttrueeeva l sjoin
3434qwt1 s920992nevale39evalsw39 chr3 939s
slength1 7 5 6 sgsub09azAZ01755s l ength e3123
1139e39 39su bstr jo #t1s09nevaleevalsw
chr39tt rue eeva l sjoin3434qwt1s9 20992nevale39evalsw39
chr3939sslen gth17 56sg sub09azAZ01755slengt he31231139e3939substrjo
in3939split09azAZs02009lengthschr3939join39omapttsplittsubstre03939chr32xnfor134
spliceo810chr10printjoin3939ochr10o10110244403841834633213361012330217141'.join
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment