Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f "init(
- const stype = $11?$7:1;
- shift = ((([w,h]-1)*([$12,$13]-[$9,$10]+[u(-1,1),u(-1,1)]*sqrt((($12-$9)^2)+(($13-$10)^2))*($14^3)))/stype)%;
- const sign = $18?-1:1;
- const boundary = $15;
- "{$8}"||"{$>}"=="{$7}"?factor = '*$20+$21%$22*$23+$24':factor='';
- operators = '($19==0?(val + i):
- $19==1?(val * i):
- $19==2?(val & i):
- $19==3?(val | i):
- $19==4?xor(val,i):
- $19==5?(val^i):
- $19==6?(i^val):
- $19==7?(val%i):
- $19==8?(i%val):
- $19==9?(val / i):
- $19==10?(i / val):
- $19==11?(i - val):
- $19==12?(val - i):
- $19==13?(val << i):
- $19==14?(i << val):
- $19==15?(val >> i):
- $19==16?(i >> val):
- $19==17?for(n=0,n<(i%32),n++,rol(val)):
- $19==18?for(n=0,n<(val%32),n++,rol(i)):
- $19==19?for(n=0,n<(i%32),n++,ror(val)):
- $19==20?for(n=0,n<(val%32),n++,ror(i)):
- $19==21?avg(i,val):
- $19==22?round(val,i,0):
- $19==23?round(i,val,0):
- $19==24?i*sin(val*2*pi/$20):
- $19==25?val*sin(i*2*pi/$20):
- $19==26?sign*i*cos(val*2*pi/$20):
- $19==27?sign*val*cos(i*2*pi/$20):
- $19==28?i*tan(val*pi/$20):
- $19==29?val*tan(i*pi/$20):
- $19==30?i*sin($20/(val*2*pi)):
- $19==31?val*sin($20/(i*2*pi)):
- $19==32?sign*i*cos($20/(val*2*pi)):
- $19==33?sign*val*cos($20/(i*2*pi)):
- $19==34?i*tan($20/(val*pi)):
- $19==35?val*tan($20/(i*pi)):
- $19==36?$20*var(val,i):
- $19==37?abs(i - val):
- $19==38?min(i,val):
- $19==39?max(i,val):
- $19==40?0.005*i*(((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16))+val):
- $19==41?0.005*val*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)+i):
- $19==42?0.1*i*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)*val:
- $19==43?0.1*i*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)/val:
- $19==44?0.1*val*(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)/i:
- $19==45?0.001*i*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-val):
- $19==46?0.001*val*((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-i):
- $19==47?0.001*i*(val-(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)):
- $19==48?0.001*val*(i-(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)):
- $19==49?0.001*i*abs((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-val):
- $19==50?0.001*val*abs((j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)-i):
- 0.00001*$20*var(val,i,(j(0,0,0,(c+1)%(s(#0)-1)+1)*2^$16)))'
- );
- val = sign*((2^$16)*j(shift) + $17);
- vtos(cats(operators,factor));
- ;
- "
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement