summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2024-02-10 13:04:38 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2024-02-10 13:04:38 -0500
commitb9506ceaa52093f048ded6ad34ad967b8ee60f53 (patch)
tree18703ed8f29294a7bf0ab5bbd00084eba1f61c80
parent72d14c6488790948a7afd27eaef446d3f9b389c2 (diff)
`c$f
-rw-r--r--c.c2
-rw-r--r--t/t.k1
2 files changed, 2 insertions, 1 deletions
diff --git a/c.c b/c.c
index d169c697..eea255a5 100644
--- a/c.c
+++ b/c.c
@@ -15,7 +15,7 @@ Z A2(cT,UC t=xv,u=yt,i=t-tB,j=u-tB;Q(i<8);P(j>7,et(y))
P((1<<t|1<<u)==(1<<tG|1<<tC),AT(t,mut(y)))
cT(t,N(cT(u==tB?tG:G(tG,tI,tI,tL,tI,tL,tG,tC)[i],y))))
NI A2(ct,UC t=xv,u=yt;Q(xti||x==t)Q(tB<=t&&t<=tS)P(t==TT[u],y)
- Y(RmMA(r2f(ct,x,y))RE(cT(x,gZ(y)))Rf(ct(x,N(cL(y))))Rilc(L v=gl(y);S(t,R4(tB,tG,tH,tI,ai(v))RC(ac(v))RL(al(v))RF(af(v))RS(u==tc?as(yv):et0()))0)R_(cT(x,y)))et(y))
+ Y(RmMA(r2f(ct,x,y))RE(cT(x,gZ(y)))Rf(ct(x,al(gf(y))))Rilc(L v=gl(y);S(t,R4(tB,tG,tH,tI,ai(v))RC(ac(v))RL(al(v))RF(af(v))RS(u==tc?as(yv):et0()))0)R_(cT(x,y)))et(y))
A1(cB,ct(tB,x))A1(cG,ct(tG,x))A1(cH,ct(tH,x))A1(cI,ct(tI,x))A1(cL,ct(tL,x))A1(cF,ct(tF,x))A1(cC,ct(tC,x))A1(cS,ct(tS,x))
Z X1(csti,RmMA(e1f(csti,x))RF(sqzZ(cL(x)))Rf(az(gf(x)))RC(cG(x))Rc(ai(xv))Ruvw(ai(xv))RilEGHIL(x)R_(et(x)))
Z X1(prsI,RmMA(e1f(prsI,x))Rc(prsI(enl(x)))RC(x=str0(x);S s=xV;P(!*s,x(_R(cn[tl])))L v=pl(&s);x(*s?_R(cn[tl]):az(v) ))R_(et(x)))
diff --git a/t/t.k b/t/t.k
index 96135cee..e14c2767 100644
--- a/t/t.k
+++ b/t/t.k
@@ -352,6 +352,7 @@ $`a`b!(0;1 2) / `a`b!(,"0";(,"1";,"2"))
`c$("";234;()) / ("";0xea;())
`i$("";0xff;"AB";2345;()) / (!0;-1;65 66;2345;0#,!0)
`c$"A",66 / "AB"
+`c$65.0 / "A"
`i$1000.0 / 1000
`f$1000 / 1000.0
`i$12.34 -5.6 / 12 -5