summaryrefslogtreecommitdiff
path: root/h.c
diff options
context:
space:
mode:
authorn <@>2023-11-27 15:30:28 +0200
committern <@>2023-11-28 08:26:14 +0200
commita1bd84c4d04889e3b7141316d57aae553d0513e8 (patch)
treebda1976a4b8b0edd3a4654dc7a6465f606718217 /h.c
parent65770b15e52b4793cb512cc29e38b0cb2a1b5b77 (diff)
c.c
Diffstat (limited to 'h.c')
-rw-r--r--h.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/h.c b/h.c
index 4fdd7c4f..c16bccf6 100644
--- a/h.c
+++ b/h.c
@@ -38,13 +38,13 @@ A2(cat10,
YE(y=gZ(yR);y(cat10(x,y)))
P(xtB&&ytB,U m=xn,n=yn,d=m&63;x=room(m+n,x);P(!d,MC(xV+(m>>3),yV,n+63>>6<<3);x)
L*a=xL+(m>>6),*b=yL,v=*a&~(-1ll<<d);i(n+63>>6,v|=*b<<d;*a++=v;v=(W)*b++>>64-d;)*a=v;x)
- P(xtT&&ytT,P(!yn,x)P(!xn,x(yR))P(xt-yt,P(xtZ&&ytZ,yR;N(sup(&x,&y));cat11(x,y))cat11(cA(x),cA(yR)))
+ P(xtT&&ytT,P(!yn,x)P(!xn,x(yR))P(xt-yt,P(xtZ&&ytZ,yR;N(sup(&x,&y));cat11(x,y))cat11(blw(x),blw(yR)))
U m=xn,n=yn,w=xW;x=room(m+n,x);
MC(xV+m*w,yV,n*w);I(ytA,mRa(y))x)
P(xtm&&ytm,a4(x,yx,av,yy))
Xmt(cat10(enl(x),y))
Ymt(apd(x,yR))
- P(xtM||ytM,P(xtT||ytT,x=N(cA(x));y=Nx(cA(yR));cat11(x,y))P(!xtM||!ytM,et1(x))P(!mtc_(xx,yx),ed1(x))A z=e2f(cat,xy,_R(yy));x(z?aM(_R(xx),z):0))
+ P(xtM||ytM,P(xtT||ytT,x=N(blw(x));y=Nx(blw(yR));cat11(x,y))P(!xtM||!ytM,et1(x))P(!mtc_(xx,yx),ed1(x))A z=e2f(cat,xy,_R(yy));x(z?aM(_R(xx),z):0))
Q(0);0)
A2(cat11,y(cat10(x,y)))
A2(cat,/*01*/cat11(xR,y))
@@ -56,8 +56,8 @@ A2(apd,/*11*/Q(xtMT);U n=xN;P(!n,enl(x(y)))
P(xtL&&ytl||xtF&&ytf ,x=room(n+1,x);xL[n]=gl(y);x)
P(xtB&&yti&&yv==(1&yv),x=room(n+1,x);xG[n>>3]|=yv<<(n&7);x)
P(xtZ&&ytz,N(sup(&x,&y));apd(x,y))
- XM(P(!ytm||!mtc_(xx,yx),apd(Ny(cA(x)),y))x=mut(x);A z=xy=mut(xy);i(zn|!zn,_q(za,ii(yy,i)))I(!zn,zx=mkn(zx))y(x))
- P(!xtA&&(!ytt||xt-TT[yt]),apd(Ny(cA(x)),y))
+ XM(P(!ytm||!mtc_(xx,yx),apd(Ny(blw(x)),y))x=mut(x);A z=xy=mut(xy);i(zn|!zn,_q(za,ii(yy,i)))I(!zn,zx=mkn(zx))y(x))
+ P(!xtA&&(!ytt||xt-TT[yt]),apd(Ny(blw(x)),y))
L v=xtA?(L)y:gl(y);apv(x,&v))
A apv(A x/*1*/,O V*v )_(Q(xtT); U n=xn;x=room(n+1,x);MC(xV+n*xW,v,xW);x)
A apc(A x/*1*/,C c )_(Q(xtC||xtG);U n=xn;x=room(n+1,x);xC[n]=c;x)
@@ -72,6 +72,6 @@ A3(ins3,/*100*/
Zmt(z=enl(zR);z(ins3(x,y,z)))
XM(P(!ztM,et1(x))P(!mtc_(xx,zx),ed1(x))y=prj(QUE,A((A)GAP,yR,GAP),3);A u=Nx(y(e2(y,xy,_R(zy))));x(aM(_R(xx),u)))
P(xtZ&&ztZ&&xt-zt,zR;N(sup(&x,&z));z(ins3(x,y,z)))
- P(xt-zt,z=cA(zR);z(ins3(cA(x),y,z)))
+ P(xt-zt,z=blw(zR);z(ins3(blw(x),y,z)))
Y(Ril(L i=gl_(y);insL(x,i,i,z))REGHIL(P(yn-2,el1(x))insL(x,gl_(ii(y,0)),gl_(ii(y,1)),z))R_(et1(x)))0)
AA(ins,/*10..0*/P(n==3,ins3(*a,a[1],a[2]))en1(*a))