fix various F⌾(G⊸Specialized)x

This commit is contained in:
dzaima 2025-01-16 01:00:35 +02:00
parent 64a3f44f3f
commit 8b0d0399e4
2 changed files with 15 additions and 1 deletions

View File

@ -179,7 +179,7 @@ B under_c2(Md2D* d, B w, B x) { B f=d->f; B g=d->g;
}
B before_uc1(Md2* t, B o, B f, B g, B x) {
if (!isFun(g)) return def_m2_uc1(t, o, f, g, x);
if (!isFun(g) || isCallable(f)) return def_m2_uc1(t, o, f, g, x);
return TI(g,fn_ucw)(g, o, inc(f), x);
}
B before_im(Md2D* d, B x) { return isFun(d->g) && !isCallable(d->f)? TI(d->g,fn_ix)(d->g, inc(d->f), x) : def_m2_im(d, x); }

View File

@ -6,6 +6,20 @@
# !% ⊢⌾(⊢¨) 4 # TODO enable
# !% ⊢⌾(⊢˘) 4 # TODO enable
# ⌾(F⊸Op)
10+((2÷˜)) 10 %% 01234156789
10+((2÷˜)) 10 %% 01234156789
10+((2÷˜)) 10 %% 101112131456789
10+((2÷˜)) 10 %% 101112131456789
10+((2÷˜)) 10 %% 101112131456789
10+((<2÷˜)/) 10 %% 101112131456789
10+((2÷˜)) 10 %% 012341516171819
(10)+((2÷˜)) 10×10 %% 5162738495061728394
((¯1+=)) 339 %% 33210543876
!"Expected integer, got function" % 1+((¯1+)˙)"ab"
!"⊑: 𝕨 must be a numeric array" % ((@,@,¯1+˙))"ab"
!"◶: 𝕘 must have rank 1 when index is a number" % (@,@,¯1+)"ab"
# ⊑