Arcade Solver (slow)

return(function(f,a,a)local q=string.char;local k=string.sub;local o=table.concat;local l=math.ldexp;local n=getfenv or function()return _ENV end;local j=select;local g=unpack or table.unpack;local a=tonumber;local i='\180\130\130\130\130\134\130\130\130\229\227\239\231\130\136\130\130\130\197\231\246\209\231\240\244\235\225\231\130\139\130\130\130\213\237\240\233\241\242\227\225\231\130\143\130\130\130\193\247\240\240\231\236\246\193\227\239\231\240\227\130\136\130\130\130\208\247\236\209\231\240\244\235\225\231\130\133\130\130\130\210\238\227\251\231\240\241\130\137\130\130\130\206\237\225\227\238\210\238\227\251\231\240\130\138\130\130\130\197\231\246\207\237\247\241\231\130\139\130\130\130\245\227\246\231\240\239\227\240\233\130\133\130\130\130\198\240\227\245\235\236\229\130\129\130\130\130\236\231\245\130\134\130\130\130\214\231\250\246\130\162\130\130\130\209\237\245\230\165\241\162\209\225\240\235\242\246\162\196\237\240\162\192\240\231\227\233\235\236\229\162\210\237\235\236\246\130\135\130\130\130\193\237\238\237\240\130\132\130\130\130\193\237\238\237\240\177\129\102\228\110\141\1\7\113\189\129\196\149\223\246\83\199\21\189\129\24\27\27\27\27\27\107\189\130\138\130\130\130\210\237\241\235\246\235\237\236\130\133\130\130\130\212\231\225\246\237\240\176\130\142\130\130\130\212\235\231\245\242\237\240\246\209\235\248\231\130\131\130\130\130\218\129\130\130\130\130\130\10\17\194\130\131\130\130\130\219\129\130\130\130\130\130\2\195\194\130\134\130\130\130\209\235\248\231\129\130\130\130\130\130\130\196\194\130\133\130\130\130\205\247\246\238\235\236\231\131\130\130\133\130\130\130\212\235\241\235\224\238\231\131\131\130\134\130\130\130\245\227\235\246\129\249\150\44\197\99\248\246\189\130\135\130\130\130\242\227\235\240\241\130\132\130\130\130\227\240\225\227\230\231\130\140\130\130\130\197\231\246\198\231\241\225\231\236\230\227\236\246\241\130\134\130\130\130\204\227\239\231\130\129\130\130\130\224\237\250\130\138\130\130\130\246\237\241\246\240\235\236\229\130\132\130\130\130\241\225\240\231\231\236\130\136\130\130\130\209\247\240\228\227\225\231\197\247\235\130\133\130\130\130\241\246\227\225\233\231\240\130\131\130\130\130\174\130\132\130\130\130\241\246\240\235\236\229\130\135\130\130\130\241\242\238\235\246\130\140\130\130\130\246\231\241\246\209\246\240\214\240\235\239\239\231\230\129\130\130\130\130\130\130\130\194\130\134\130\130\130\229\241\247\224\130\129\130\130\130\167\241\169\130\130\130\130\130\130\129\130\130\130\179\177\178\130\147\130\130\130\228\235\240\231\225\238\235\225\233\230\231\246\231\225\246\237\240\130\133\130\130\130\224\247\246\246\237\236\176\130\143\130\130\130\193\238\235\225\233\198\231\246\231\225\246\237\240\130\130\130\130\130\240\130\130\130\144\161\130\130\130\131\130\130\130\162\130\130\130\130\130\130\128\130\144\130\130\128\130\129\130\130\130\130\130\130\130\130\128\130\128\130\162\130\130\130\130\130\130\134\130\144\130\130\131\130\131\130\130\130\162\130\130\131\130\131\130\128\130\144\130\130\129\130\135\130\130\130\130\130\130\131\130\129\130\128\130\144\130\130\128\130\131\130\130\130\162\139\130\128\130\128\130\128\130\144\136\130\134\130\132\130\130\130\130\130\130\128\130\134\130\128\130\144\130\130\129\130\131\130\130\130\162\130\130\129\130\129\130\128\130\144\130\130\135\130\132\130\130\130\130\130\130\129\130\135\130\128\130\162\130\130\129\130\129\130\133\130\144\130\130\134\130\131\130\130\130\162\130\130\134\130\134\130\128\130\144\130\130\132\130\132\130\130\130\130\158\130\134\130\132\130\128\130\162\162\130\134\130\134\130\133\130\162\130\130\134\130\134\130\138\130\130\130\130\134\130\128\130\128\130\144\130\130\135\130\136\130\130\130\162\130\130\135\130\135\130\137\130\144\130\130\132\130\142\130\130\130\130\130\130\135\130\128\130\128\130\144\130\130\135\130\139\130\130\130\144\130\130\135\130\139\130\130\130\178\130\130\135\130\142\130\143\130\144\142\130\135\130\139\130\130\130\144\133\130\132\130\141\130\130\130\162\130\130\132\130\132\130\137\130\144\130\130\133\130\146\130\130\130\144\130\130\138\130\147\130\130\130\144\130\130\139\130\144\130\130\130\130\130\130\132\130\139\130\128\130\146\130\130\135\130\140\130\132\130\144\130\130\135\130\139\130\130\130\144\130\130\132\130\150\130\130\130\162\130\130\132\130\132\130\137\130\162\134\130\133\130\130\130\151\130\162\144\130\133\130\133\130\148\130\162\130\130\133\130\133\130\149\130\162\130\130\138\130\130\130\151\130\162\130\130\138\130\138\130\154\130\162\130\130\138\130\138\130\155\130\130\130\130\132\130\138\130\128\130\146\130\130\135\130\145\130\132\130\144\130\130\135\130\139\130\130\130\178\130\130\135\130\152\130\153\130\144\130\130\135\130\139\130\130\130\178\155\130\135\130\158\130\159\130\144\142\130\135\130\139\130\130\130\178\155\130\135\130\156\130\157\130\144\142\130\135\130\162\130\130\130\144\174\130\132\130\163\130\130\130\130\140\130\135\130\128\130\128\130\132\160\130\135\130\243\130\131\130\130\130\134\138\130\130\130\243\130\131\130\144\142\130\135\130\160\130\130\130\144\169\130\132\130\131\130\130\130\162\130\130\132\130\132\130\128\130\144\130\130\138\130\129\130\130\130\130\130\130\132\130\138\130\128\130\162\130\130\132\130\132\130\161\130\162\130\130\132\130\132\130\166\130\130\130\130\132\130\133\130\130\130\130\130\130\135\130\130\130\133\130\134\130\130\130\130\236\130\131\130\162\134\130\136\130\139\130\167\130\164\167\130\136\130\236\130\131\130\164\130\134\138\130\130\130\236\130\131\130\144\142\130\136\130\165\130\130\130\144\131\130\137\130\131\130\130\130\162\130\130\137\130\137\130\128\130\144\130\130\143\130\129\130\130\130\130\130\130\137\130\143\130\128\130\162\130\130\137\130\137\130\161\130\162\130\130\137\130\137\130\170\130\162\130\130\137\130\137\130\171\130\162\130\130\137\130\137\130\168\130\162\130\130\137\130\137\130\164\130\162\130\130\137\130\137\130\145\130\162\134\130\137\130\137\130\148\130\144\141\130\142\130\169\130\130\130\130\130\130\136\130\142\130\128\130\144\130\130\137\130\174\130\130\130\162\130\130\137\130\137\130\175\130\130\130\130\142\130\136\130\130\130\144\130\130\143\130\169\130\130\130\130\130\130\137\130\143\130\128\130\162\130\130\142\130\137\130\173\130\162\130\130\142\130\142\130\178\130\144\130\130\140\130\179\130\130\130\144\174\130\141\130\176\130\130\130\130\158\130\142\130\141\130\128\130\144\137\130\142\130\172\130\130\130\144\142\130\142\130\172\130\130\130\164\167\130\142\130\236\130\131\130\177\130\134\138\130\130\130\236\130\131\130\144\142\130\142\130\182\130\130\130\144\163\130\143\130\131\130\130\130\162\130\130\143\130\143\130\129\130\162\130\130\143\130\143\130\161\130\162\130\130\143\130\143\130\183\130\162\130\130\143\130\143\130\180\130\130\130\130\142\130\128\130\131\130\132\143\130\135\130\202\130\131\130\128\130\134\138\130\130\130\202\130\131\130\134\138\130\130\130\187\130\131\130\130\164\130\130\130\131\130\130\130';local a=(bit or bit32);local d=a and a.bxor or function(a,c)local b,d,e=1,0,10 while a>0 and c>0 do local e,f=a%2,c%2 if e~=f then d=d+b end a,c,b=(a-e)/2,(c-f)/2,b*2 end if a<c then a=c end while a>0 do local c=a%2 if c>0 then d=d+b end a,b=(a-c)/2,b*2 end return d end local function c(c,a,b)if b then local a=(c/2^(a-1))%2^((b-1)-(a-1)+1);return a-a%1;else local a=2^(a-1);return(c%(a+a)>=a)and 1 or 0;end;end;local a=1;local function b()local f,c,b,e=f(i,a,a+3);f=d(f,130)c=d(c,130)b=d(b,130)e=d(e,130)a=a+4;return(e*16777216)+(b*65536)+(c*256)+f;end;local function h()local b=d(f(i,a,a),130);a=a+1;return b;end;local function e()local c,b=f(i,a,a+2);c=d(c,130)b=d(b,130)a=a+2;return(b*256)+c;end;local function p()local d=b();local a=b();local e=1;local d=(c(a,1,20)*(2^32))+d;local b=c(a,21,31);local a=((-1)^c(a,32));if(b==0)then if(d==0)then return a*0;else b=1;e=0;end;elseif(b==2047)then return(d==0)and(a*(1/0))or(a*(0/0));end;return l(a,b-1023)*(e+(d/(2^52)));end;local l=b;local function m(b)local c;if(not b)then b=l();if(b==0)then return'';end;end;c=k(i,a,a+b-1);a=a+b;local b={}for a=1,#c do b[a]=q(d(f(k(c,a,a)),130))end return o(b);end;local a=b;local function l(...)return{...},j('#',...)end local function k()local i={};local f={};local a={};local j={[#{"1 + 1 = 111";{176;523;865;198};}]=f,[#{{491;415;446;440};"1 + 1 = 111";{932;872;237;193};}]=nil,[#{"1 + 1 = 111";"1 + 1 = 111";{379;393;671;616};"1 + 1 = 111";}]=a,[#{"1 + 1 = 111";}]=i,};local a=b()local d={}for c=1,a do local b=h();local a;if(b==1)then a=(h()~=0);elseif(b==3)then a=p();elseif(b==0)then a=m();end;d[c]=a;end;j[3]=h();for a=1,b()do f[a-1]=k();end;for j=1,b()do local a=h();if(c(a,1,1)==0)then local f=c(a,2,3);local g=c(a,4,6);local a={e(),e(),nil,nil};if(f==0)then a[3]=e();a[4]=e();elseif(f==1)then a[3]=b();elseif(f==2)then a[3]=b()-(2^16)elseif(f==3)then a[3]=b()-(2^16)a[4]=e();end;if(c(g,1,1)==1)then a[2]=d[a[2]]end if(c(g,2,2)==1)then a[3]=d[a[3]]end if(c(g,3,3)==1)then a[4]=d[a[4]]end i[j]=a;end end;return j;end;local function o(a,b,f)a=(a==true and k())or a;return(function(...)local d=a[1];local e=a[3];local a=a[2];local l=l local b=1;local h=-1;local k={};local i={...};local j=j('#',...)-1;local a={};local c={};for a=0,j do if(a>=e)then k[a-e]=i[a+1];else c[a]=i[a+#{{970;415;644;261};}];end;end;local a=j-e+1 local a;local e;while true do a=d[b];e=a[1];if e<=22 then if e<=10 then if e<=4 then if e<=1 then if e>0 then local h;local e;c[a[2]]=f[a[3]];b=b+1;a=d[b];e=a[2];h=c[a[3]];c[e+1]=h;c[e]=h[a[4]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];else f[a[3]]=c[a[2]];end;elseif e<=2 then c[a[2]]=c[a[3]][a[4]];elseif e>3 then c[a[2]]=c[a[3]][a[4]];else c[a[2]][a[3]]=a[4];end;elseif e<=7 then if e<=5 then local a=a[2]local d,b=l(c[a](c[a+1]))h=b+a-1 local b=0;for a=a,h do b=b+1;c[a]=d[b];end;elseif e==6 then c[a[2]][a[3]]=c[a[4]];else local e;c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]][a[3]]=c[a[4]];b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];end;elseif e<=8 then b=a[3];elseif e>9 then local h;local e;c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];e=a[2];h=c[a[3]];c[e+1]=h;c[e]=h[a[4]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];e=a[2];h=c[a[3]];c[e+1]=h;c[e]=h[a[4]];b=b+1;a=d[b];c[a[2]]=a[3];else local d=a[2];local b=c[a[3]];c[d+1]=b;c[d]=b[a[4]];end;elseif e<=16 then if e<=13 then if e<=11 then f[a[3]]=c[a[2]];elseif e>12 then local d=a[2];local f=a[4];local e=d+2 local d={c[d](c[d+1],c[e])};for a=1,f do c[e+a]=d[a];end;local d=d[1]if d then c[e]=d b=a[3];else b=b+1;end;else c[a[2]]=f[a[3]];end;elseif e<=14 then local a=a[2]c[a]=c[a](c[a+1])elseif e==15 then local h;local e;c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];e=a[2];h=c[a[3]];c[e+1]=h;c[e]=h[a[4]];b=b+1;a=d[b];c[a[2]]=a[3];else local b=a[2];local d=c[a[3]];c[b+1]=d;c[b]=d[a[4]];end;elseif e<=19 then if e<=17 then c[a[2]]=c[a[3]];elseif e>18 then b=a[3];else local e;c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]]-a[4];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]]-a[4];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]][a[3]]=c[a[4]];b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]][a[3]]=a[4];b=b+1;a=d[b];c[a[2]]=f[a[3]];end;elseif e<=20 then c[a[2]]=c[a[3]]-a[4];elseif e>21 then local a=a[2]c[a](c[a+1])else local b=a[2]local e={c[b](g(c,b+1,h))};local d=0;for a=b,a[4]do d=d+1;c[a]=e[d];end end;elseif e<=34 then if e<=28 then if e<=25 then if e<=23 then local a=a[2]local d,b=l(c[a](c[a+1]))h=b+a-1 local b=0;for a=a,h do b=b+1;c[a]=d[b];end;elseif e>24 then c[a[2]][a[3]]=a[4];else if c[a[2]]then b=b+1;else b=a[3];end;end;elseif e<=26 then c[a[2]][a[3]]=c[a[4]];elseif e>27 then local b=a[2]c[b]=c[b](g(c,b+1,a[3]))else if(c[a[2]]==a[4])then b=b+1;else b=a[3];end;end;elseif e<=31 then if e<=29 then local b=a[2]c[b]=c[b](g(c,b+1,a[3]))elseif e>30 then c[a[2]]=a[3];else local d=a[2];local f=a[4];local e=d+2 local d={c[d](c[d+1],c[e])};for a=1,f do c[e+a]=d[a];end;local d=d[1]if d then c[e]=d b=a[3];else b=b+1;end;end;elseif e<=32 then local g;local e;c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];e=a[2];g=c[a[3]];c[e+1]=g;c[e]=g[a[4]];b=b+1;a=d[b];e=a[2]c[e]=c[e](c[e+1])b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](c[e+1])b=b+1;a=d[b];f[a[3]]=c[a[2]];b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]][a[3]]=a[4];elseif e==33 then local e;c[a[2]]=f[a[3]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];e=a[2]c[e](c[e+1])else if c[a[2]]then b=b+1;else b=a[3];end;end;elseif e<=40 then if e<=37 then if e<=35 then local h;local e;c[a[2]]=f[a[3]];b=b+1;a=d[b];e=a[2];h=c[a[3]];c[e+1]=h;c[e]=h[a[4]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];c[a[2]]=f[a[3]];b=b+1;a=d[b];e=a[2];h=c[a[3]];c[e+1]=h;c[e]=h[a[4]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=f[a[3]];elseif e>36 then if(c[a[2]]==a[4])then b=b+1;else b=a[3];end;else do return end;end;elseif e<=38 then do return end;elseif e==39 then c[a[2]]=c[a[3]]-a[4];else c[a[2]]=c[a[3]];end;elseif e<=43 then if e<=41 then local a=a[2]c[a]=c[a](c[a+1])elseif e>42 then local e;local i;local k,m;local j;local e;c[a[2]]=f[a[3]];b=b+1;a=d[b];e=a[2];j=c[a[3]];c[e+1]=j;c[e]=j[a[4]];b=b+1;a=d[b];c[a[2]]=a[3];b=b+1;a=d[b];e=a[2]c[e]=c[e](g(c,e+1,a[3]))b=b+1;a=d[b];c[a[2]]=c[a[3]][a[4]];b=b+1;a=d[b];e=a[2];j=c[a[3]];c[e+1]=j;c[e]=j[a[4]];b=b+1;a=d[b];e=a[2]k,m=l(c[e](c[e+1]))h=m+e-1 i=0;for a=e,h do i=i+1;c[a]=k[i];end;b=b+1;a=d[b];e=a[2]k={c[e](g(c,e+1,h))};i=0;for a=e,a[4]do i=i+1;c[a]=k[i];end b=b+1;a=d[b];b=a[3];else local d=a[2]local e={c[d](g(c,d+1,h))};local b=0;for a=d,a[4]do b=b+1;c[a]=e[b];end end;elseif e<=44 then c[a[2]]=a[3];elseif e==45 then local a=a[2]c[a](c[a+1])else c[a[2]]=f[a[3]];end;b=b+1;end;end);end;return o(true,{},n())();end)(string.byte,table.insert,setmetatable);