native dyadic ˝
This commit is contained in:
parent
3f79fc3773
commit
d2682c595b
@ -479,7 +479,21 @@ B insert_c1(Md1D* d, B x) { B f = d->f;
|
|||||||
E_SLICES(x)
|
E_SLICES(x)
|
||||||
return r;
|
return r;
|
||||||
}
|
}
|
||||||
B insert_c2(Md1D* d, B w, B x) { return m1c2(rt_insert, d->f, w, x); }
|
B insert_c2(Md1D* d, B w, B x) { B f = d->f;
|
||||||
|
if (isAtm(x) || rnk(x)==0) thrM("˝: 𝕩 must have rank at least 1");
|
||||||
|
usz xia = a(x)->ia;
|
||||||
|
B r = w;
|
||||||
|
if (xia!=0) {
|
||||||
|
S_SLICES(x)
|
||||||
|
usz p = xia;
|
||||||
|
while(p!=0) {
|
||||||
|
p-= x_csz;
|
||||||
|
r = c2(f, SLICE(x, p), r);
|
||||||
|
}
|
||||||
|
E_SLICES(x)
|
||||||
|
}
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
|
||||||
#pragma GCC diagnostic pop
|
#pragma GCC diagnostic pop
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user