make division not care about sign of 𝕩
This commit is contained in:
parent
08885fabad
commit
51e34c55d3
@ -171,7 +171,7 @@ static B modint_AS(B w, B xv) { return modint_AA(w, C2(shape, C1(fne, incG(w))
|
|||||||
} \
|
} \
|
||||||
thrM(SYMB ": Unexpected argument types"); \
|
thrM(SYMB ": Unexpected argument types"); \
|
||||||
}
|
}
|
||||||
GC2f("÷", div , w.f/x.f,
|
GC2f("÷", div , w.f/(x.f+0),
|
||||||
, /*INT_SA*/
|
, /*INT_SA*/
|
||||||
, /*INT_AS*/ if(q_i32(x)) { r = divint_AS(w, o2iG(x)); /*decG(w); */ return r; }
|
, /*INT_AS*/ if(q_i32(x)) { r = divint_AS(w, o2iG(x)); /*decG(w); */ return r; }
|
||||||
, /*INT_AA*/ r = divint_AA(w, x); /*decG(w); decG(x);*/ return r;
|
, /*INT_AA*/ r = divint_AA(w, x); /*decG(w); decG(x);*/ return r;
|
||||||
@ -425,7 +425,7 @@ B not_c2(B t, B w, B x) {
|
|||||||
AR_F_TO_ARR(NAME) \
|
AR_F_TO_ARR(NAME) \
|
||||||
thrM(CHR ": Unexpected argument types"); \
|
thrM(CHR ": Unexpected argument types"); \
|
||||||
}
|
}
|
||||||
AR_F_SCALAR("÷", div , w.f/x.f)
|
AR_F_SCALAR("÷", div , w.f/(x.f+0))
|
||||||
AR_F_SCALAR("⋆", pow , pow(w.f, x.f))
|
AR_F_SCALAR("⋆", pow , pow(w.f, x.f))
|
||||||
AR_F_SCALAR("√", root , pow(x.f, 1.0/w.f))
|
AR_F_SCALAR("√", root , pow(x.f, 1.0/w.f))
|
||||||
AR_F_SCALAR("|", stile, pfmod(x.f, w.f))
|
AR_F_SCALAR("|", stile, pfmod(x.f, w.f))
|
||||||
|
|||||||
@ -113,7 +113,7 @@ GC1i("¬", not, 1-v, el_bit, bit_negate(x), NOT_BODY)
|
|||||||
thrM(MSG); \
|
thrM(MSG); \
|
||||||
}
|
}
|
||||||
|
|
||||||
GC1f( div, 1/xv, "÷: Argument contained non-number")
|
GC1f( div, 1/(xv+0), "÷: Argument contained non-number")
|
||||||
GC1f(root, sqrt(xv), "√: Argument contained non-number")
|
GC1f(root, sqrt(xv), "√: Argument contained non-number")
|
||||||
#undef GC1i
|
#undef GC1i
|
||||||
#undef LOOP_BODY
|
#undef LOOP_BODY
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user