One case for dyadic constant-each
This commit is contained in:
parent
ed5fac7cc9
commit
93e590fd9d
@ -38,6 +38,10 @@ B eachd_fn(B fo, B w, B x, FC2 f) {
|
||||
B rb;
|
||||
if (ria==0) {
|
||||
rb = rM==1? emptyHVec() : m_harrUc(bo).b;
|
||||
} else if (f == arr_c2) {
|
||||
MAKE_MUT(rm, ria);
|
||||
mut_fill(rm, 0, fo, ria);
|
||||
rb = mut_fc(rm, bo);
|
||||
} else {
|
||||
M_HARR(r, ria)
|
||||
if (wr==xr) { SGet(x) SGet(w) for(usz ri=0; ri<ria; ri++) HARR_ADD(r, ri, f(fo, Get(w,ri), Get(x,ri))); }
|
||||
@ -128,4 +132,4 @@ B arith_recd(FC2 f, B w, B x) {
|
||||
popCatch();
|
||||
return withFill(r, asFill(fr));
|
||||
}
|
||||
#endif
|
||||
#endif
|
||||
|
||||
Loading…
Reference in New Issue
Block a user