reuse 𝕩 in ⌜ if possible

This commit is contained in:
dzaima 2021-03-30 02:35:48 +03:00
parent bad822447f
commit 0e46008596

View File

@ -3,6 +3,11 @@
B tbl_c1(B t, B f, B x) {
if (!isArr(x)) return err("⌜: argument was atom");
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);
BS2B xget = TI(x).get;
for (usz i = 0; i < ia; i++) r.a[i] = c1(f, xget(x,i));