TT/kjr/a.c

#define R(t,n,z) r(t_(t,n),z) //:+-*%&|<>=~$.!@?#_^, '/\ 0bcieE
#include"a.h"//ACDEMNOPS|FGIQRTUW (HJKL[XYZ]) At B Cut Equal Flipflop Less More Num Order Prd q Ret Sum t u Vcat Writework
typedef float complex Float;float fabsf(float),sqrtf(float),expf(float),logf(float),log2f(float),cabsf(Float);Float csqrtf(Float),cexpf(Float),clogf(Float);Ze rf(ee){return 1/e;}ZE crf(EE){return 1/E;}
double atof();void*malloc(),free(),*memcpy();long write(),read();int abs(),atoi(),stat(),open(),close(),sprintf(char*,const char*,...);G(mc,(u)memcpy((char*)f,sa,x))nu(vc,++T;sx[nx++]=n;x)
G(w_,write(f,sa,x))G(_w,read(f,sa,x))f(_h,close(x))F(h,stat(sa,sx))F(h_,open(sa,x))f(W_,(u)malloc(x))f(_W,free(sx);0)f(w,127>x?w_(2,(u)&x,1):w_(2,x,sl(sx)))f(uz,5>ax?ix:_(EE=Ex;*(u*)&E))
u(t_,ii=(u)n<<lt[t];T+=i;ux=W_(8+n3(i)*8+(2==t));*(u*)x=t<<24|(u)n<<32;x+8,it,in)f(_t,T-=Nx;_W(x-8);0)f(r_,pax?x:(++xr,x))f(_r,pax?0:(1<<24)-1&xr?(--xr,0):_(if(!tx)N(_r(xu))_t(x)))
f(v,R(ax,1,*(u*)r=uz(x)))ns(kns,mc(t_(2,n),(u)s,n))us(ks,kns(sl(s),s))nu(nz,ua=uz(x);if(3>ax)(a|=a<<8,a|=a<<16);if(5>ax)a|=a<<32;R(ax,n,i(n3(Nr),ru=a)))
f(wx,_x(w_(2,x,nx));0)F(err,w(a);w(58);w(x);w(10);Q)ns(prr,w((u)s);w(10);wx(vc(94,nz(n,tc(32))));w(10);Q)f(s_,in=0;N(n+=xc)n)f(m_,in=0;N(n=m(n,xi))n)
Zu at(),es(),ws();f(qf,!ax&&!tx&&1==nx&&2==txx)us(def,r(v(ks(s)),sr[nr]=0))F(fa,U[23]=x;es(xx))f(foo,ws("a:2")) //U[0]=def("x");0) //ws("a"))
u(tE,ua=*(u*)&E;a>>32?a:1l<<63|a,EE)u(_n,r3(n,i),in)G(c,mc(t_(tx,a),x+(f<<lx),a<<lx))iu(a_,tx?t(tx,ci,xe,xE):r_(xu))u(e1,T0(g(a_(i,x))),_ g,ux)u(e2,QZ,_ g,ua,ux)
F(A,_ax(R(ta,nx,C4(la,i(nx,sr[i]=sa[xi]),,i(nx,re=((float*)a)[xi]),i(nx,rE=((Float*)a)[xi])))))
F(V,_a(R(tx,na+nx,mc(r,a,Na);mc(r+Na,x,Nx))))F(cC,_x(R(2,0,N(r=vc(a,V(r,xu))))))nu(cv,V(v(tc(n)),x))us(i$,ti(atoi(s)))us(e$,te(atof(s)))ns(E$,tE((float)atof(s)+I*atof(s+n)))
u($i,kns(sprintf(b,"%d",i),b),int i)u($e,kns(sprintf(b,"%g",e&&1e-6<fabsf(e)?e:0.),b),ee)f($E,ua=ix?$e(ex):0;x>>=32;x=x?$e(ex):0;a?x?V(vc(58,a),x):a:cv(46,x))
f($,px?ks("?"):ax?4>ax?$i(x):5>ax?$e(ex):$E(x):2==tx?x:e1($,x))f($_,pax||!lx?$(x):tx?cC(32,e1($,x)):ks("."))f(w$,wx(vc(10,pax||tx?$_(x):cC(10,e1($_,x)))))f(wo,w$(r_(x));x)
f(ind,_x(R(3,s_(x),unsigned*s=(unsigned*)sr;N(if(xc)*s++=i))))nu(ec,r1(nx,n==xc))F(C,_a(T0(c(xi,(i+1<nx?((unsigned*)x)[i+1]:na)-xi-1,a))))f(Cc,ua=ec(sx[nx-1],x);a=_a(c(-1,na,a));*sa=1;C(x,ind(a)))
tu(Ua,t(t,ix,ix,4>ax?ix:ex))tu(Ut,T(t,xc,xc,xi,4>tx?xi:xe))f(q0,ax&&!uz(x))iu(set,u*a=U+i;_r(*a);*a=r_(x))
#define a(g,t,a,v) f(g,ax?ue(t,a):tx?uE(t,v):e1(g,x))
#define a4(f,c,d) a(f,4,5>ax?te(c(ex)):tE(d(Ex)),5>tx?R4(c(xe)):R5(d(xE)))
a(_e,0,tb(!ix),R1(!ci))a(_s,2,t(ax,-ix,-ex,-Ex),T(tx,-xc,-xi,-xe,-xE))a(ab,0,3>ax?x:4>ax?ti(abs((int)ix)):te(5>ax?fabsf(ex):cabsf(Ex)),3>tx?x:4>tx?R3(abs((int)xi)):R5(5>tx?fabsf(xe):cabsf(xE)))
a(_d,4,5>ax?tE(I*ex):4l<<51|x>>32,5>tx?R5(I*xe):R4(((float*)x)[2*i+1]))a4(_p,rf,crf)a4(_l,expf,cexpf)a4(q_,sqrtf,csqrtf)a4(l_,logf,clogf)f($q,1+ix?q_(x):tE(I))f($l,1+ix?l_(x):tE(I*pi))
#define SP(g,o) F(g,ax?aa?uu(ue(2,t(ax,ia o ix,ea o ex,Ea o Ex))):g(x,a):(aa?:ta)&&tx?UU(uE(2,T(tx,ai o xc,ai o xi,ae o xe,aE o xE))):e2(g,a,x))
#define LE(g,o) F(g,ax?aa?uu(tb((int)ia o(int)ix)):L_==g?g(_s(x),_s(a)):g(x,a):(aa?:ta)&&tx?UU(R1((int)ai o(int)ci)):e2(g,a,x))
#define LM(g,o) F(g,Qt(1!=(aa?:ta)||1!=(ax?:tx))ax?tb(ia o ix):(aa?:ta)&&tx?R1(ai o xc):e2(g,a,x))
SP(S$,+)SP(P_,*)LM(_M,&)LM(M_,|)LE(L_,<)LE(E_,==)F(S_,q0(a)?x:S$(a,x))F(_S,S_(_s(x),a))F(_P,P_(q0(a)?x:_p(x),a))F(_L,L_(x,a))F(_E,Qr(!ax)_e(E_(a,x)))
F(A_,P(aa,P_(a,x))ax?_(Qd(ix>=na)a_(ix,a)):uE(3,Qt(3<tx)Qd(m_(x)>=na)A(a,x)))F(_A,P(aa,_P(a,x))Qr(aa)QZ)F(F_,QZ)f(f_,Qr(ax)A(x,r3(nx,nx-1-i)))f(n,Qr(ax)_x(ti(nx)))f(_v,Qr(ax)_x(a_(0,x)))f(x_,0)F(X_,_a(x))
#define Qi(_) Qr(!a##_)Qt(3<a##_)Qd(i##_>>31)
f(n$,Qi(x)_n(ix))f(p$,Qi(x)Qd(ix&ix-1)r5(ix,cexpf(i*pi/ix*I)))F(N$,Qi(a)QZ)F(_N,Qi(a)P(ax,nz(ia,x))P(2>nx,nz(ia,_v(x)))Qd(ia>nx)_x(c(0,ia,x)))F(N_,Qi(a)Qr(ax)Qd(ia>nx)_x(c(ia,nx-ia,x)))F(C_,Qi(a)QZ)
F(V_,a=aa?v(a):a;x=ax?v(x):x;Qt(ta!=tx)_x(V(a,x)))f(_o,QZ)f(o_,_o(_e(x)))f(o,P(ax,p$(x))QZ)F(D_,QZ)F(_$,QZ)f(_z,QZ)f(z_,QZ)
Z_// :  +  -  *  %  &  |  <  >  =   ~  $  . !  @  ?  #  _  ^  ,  *e %log &Flip |flop <asc >desc =group ?nub ^order [&|<>=@?#^]i   i[#_^]i  (#?) (#'=)
f[]={x_,ab,_s,_l,$l,F_,f_,_o,o_,z_,_e, $,_d,n$,_v,_z,n ,$q,o ,v },F[]={X_,S_,_S,P_,_P,_M,M_,L_,_L,E_,_E,_$,D_,N$,at,_A,_N,N_,C_,V_};F(at,Qd(px)pa?f[a](x):qf(a)?fa(a,x):A_(a,x))
Zs vm="+    - *  %    &and  |or   <    >     =      ~not $ . !index @at    ?find #take  _drop ^cut   ,\n+abs - *e %log &flip |flop <asc >desc =group ~not $ . !index @first ?nub  #count _sqrt ^order ,";
Zs//!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  {"0a([.(while if :)
B=" m_pkdet  casblu__________  gihon                           v rq __________________________ f j";us(ps,i(sl(s),P(58==si?26u<=s[i-1]-97:33>B[si-32],prr(i,s)))0)f(p,x=31&B[x-32];31>x?x:0)
us(np,P(34==*s,is(34,s+1)+1)st=s;W(13u>*++t-46&&47-*t);t-s)ns(nq,P(34==*s,kns(n-2,s+1))mc((u)b,(u)s,n=l(21,n));b[n]=0;n=is(58,b);n?E$(n,s):is(46,b)?e$(s):i$(s))
us(e,P(58==s[1],q(e(s+2))set(*s-97,x))ua=p(*s)?:26u>*s-97?r_(U[*s-97]):r(nq(a=np(s),s),s+=a-1);!*++s?a:32>a||!p(*s)?_(q(e(s))32>a?f[a](x):at(a,x)):_(q(e(s+1))F[p(*s)](a,x)))
us(es,q(92-*s?e(s):ys(s+1))58==s[1]?_x(0):x)us(ws,if(92-*s)Q(ps(s))q(es(s))x?w$(x):0)us(ts,if(92-*s)Q(ps(s))in=1e6;uf=ut()+30*n;i(n,q(es(s))_r(x))ti((m(f,ut())-f)/(O?2.4e6:2.4e4)))
us(f1,ux[18];in=!h((u)s,(u)x)&&1&((int*)x)[O?6:1]>>15?x[O?6:12]:0;Qs(!n,s)R(2,n,ii=h_((u)s,0);_w(i,r,n);_h(i)))us(f0,q(f1(s))Cc(x))
us(ls,q(f0(s))ii=-1;W(++i<nx&&nxu)if(39!=*sxu)Q(ws(sxu))_x(0))us(ys,c4(is(*s,"ltw"),ks(vm),ls(s+2),ts(s+2),ti(T)))int main(int _,char**a){O=(u)a>>46;bu(ia32_ldmxcsr)(0x9fc0);
foo(0);*++a?ls(*a):(w((u)"k/fun (c)atw "__DATE__),w(10));char b[64];W(1)w(32),b[_w(0,(u)b,64)-1]=0,*b?ws(b):0;}