reuse 𝕩 in ⌜ if possible
This commit is contained in:
parent
bad822447f
commit
0e46008596
@ -3,6 +3,11 @@
|
|||||||
B tbl_c1(B t, B f, B x) {
|
B tbl_c1(B t, B f, B x) {
|
||||||
if (!isArr(x)) return err("⌜: argument was atom");
|
if (!isArr(x)) return err("⌜: argument was atom");
|
||||||
usz ia = a(x)->ia;
|
usz ia = a(x)->ia;
|
||||||
|
if (v(x)->type==t_harr && reusable(x)) {
|
||||||
|
B* p = harr_ptr(x);
|
||||||
|
for (usz i = 0; i < ia; i++) p[i] = c1(f, p[i]);
|
||||||
|
return x;
|
||||||
|
}
|
||||||
HArr_p r = m_harrc(x);
|
HArr_p r = m_harrc(x);
|
||||||
BS2B xget = TI(x).get;
|
BS2B xget = TI(x).get;
|
||||||
for (usz i = 0; i < ia; i++) r.a[i] = c1(f, xget(x,i));
|
for (usz i = 0; i < ia; i++) r.a[i] = c1(f, xget(x,i));
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user