mark input of ∊𝕩 as fl_asc|fl_dsc if it's all same
This commit is contained in:
parent
7326348c79
commit
1eee4d7450
@ -275,7 +275,12 @@ B memberOf_c1(B t, B x) {
|
|||||||
i++;
|
i++;
|
||||||
}
|
}
|
||||||
allSame:;
|
allSame:;
|
||||||
|
if (v(x)->refc > 1) {
|
||||||
|
FL_SET(x, fl_asc|fl_dsc);
|
||||||
|
incByG(x, -1);
|
||||||
|
} else {
|
||||||
decG(x);
|
decG(x);
|
||||||
|
}
|
||||||
Arr* r = allZeroes(n);
|
Arr* r = allZeroes(n);
|
||||||
bitarrv_ptr((TyArr*) r)[0] = 1;
|
bitarrv_ptr((TyArr*) r)[0] = 1;
|
||||||
return taga(arr_shVec(r));
|
return taga(arr_shVec(r));
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user