12 lines
938 B
C
12 lines
938 B
C
#include<math.h> // ngn/k, (c) 2019-2023 ngn, GNU AGPLv3 - https://codeberg.org/ngn/k/raw/branch/master/LICENSE
|
|
#include"a.h"
|
|
X1(neg,RE(neg(gZ(x)))Rzc(az(-gl(x)))Rf(af(-gf(x)))RC(neg(cG(x)))RmMA(e1f(neg,x))R_(et1(x))
|
|
RZF_E(Nn=xn;I(xw<3&&minfZ(0,x)==-1<<(8<<xw)-1,x=cT[tH+xw](x))Ay=xr>1?an(n,xt):x,z=x-y?x:au;n=((n<<xw)+31&~31)>>xw;
|
|
Mz(X(C(tG,i(n,yg=-xg))C(tH,i(n,yh=-xh))C(tI,i(n,yi=-xi))C(tL,i(n,yl=-xl))D(i(n,yf=-xf))))y))
|
|
X1(not,RmMA(e1f(not,x))RU(x(ai(x==au)))R_(eql(xtsS?as(0):ai(0),x)))
|
|
X1(nul,RmMA(e1f(nul,x))RU(x(ai(x==au)))RF(Ay=aG(xn);Mx(i(xn,yg=xf!=xf))y)Rf(x(ai(*xF!=*xF)))R_(eql(cn[xt],x)))
|
|
X1(flr,RmMA(e1f(flr,x))RcC(K1("{`c$x+32*~\"A[\"'x}",x))RsS(cS(flr(str(x))))RzZ(x)RfF(Ay=an(xn,xt+tl-tf);Mx(i(yn,yl=xf<0?(L)xf-(xf<(L)xf):(L)xf))y)R_(et1(x)))
|
|
|
|
#define h(k,f) X1(k,RfF(Ay=xr-1?an(xn,xt):x;i(xn+3&~3,yf=f(xf));x-y?x(y):y)RmMA(e1f(k,x))R_(k(N(cF(x)))))
|
|
h(ksin,sin)h(kcos,cos)h(klog,log)h(kexp,exp)h(sqr,__builtin_sqrt)
|