fix handling of first element in /⁼
This commit is contained in:
parent
9af0d4b66f
commit
b9232a1f68
@ -648,9 +648,9 @@ B slash_im(B t, B x) {
|
|||||||
SLOW1("/⁼", x);
|
SLOW1("/⁼", x);
|
||||||
B* xp = arr_bptr(x);
|
B* xp = arr_bptr(x);
|
||||||
if (xp==NULL) { HArr* xa=cpyHArr(x); x=taga(xa); xp=xa->a; }
|
if (xp==NULL) { HArr* xa=cpyHArr(x); x=taga(xa); xp=xa->a; }
|
||||||
if(o2i64(xp[0])<0) thrM("/⁼: Argument cannot contain negative numbers");
|
i64 prev = o2i64(xp[0]);
|
||||||
|
if(prev<0) thrM("/⁼: Argument cannot contain negative numbers");
|
||||||
bool bitres = true;
|
bool bitres = true;
|
||||||
i64 prev = 0;
|
|
||||||
for (usz i = 1; i < xia; i++) {
|
for (usz i = 1; i < xia; i++) {
|
||||||
i64 c = o2i64(xp[i]);
|
i64 c = o2i64(xp[i]);
|
||||||
if (prev>=c) { bitres=false; if (prev>c) thrM("/⁼: Argument must be sorted"); }
|
if (prev>=c) { bitres=false; if (prev>c) thrM("/⁼: Argument must be sorted"); }
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user