Boolean comparison folds, monadic only
This commit is contained in:
parent
47392acc33
commit
f1ca8793e3
@ -125,6 +125,10 @@ B fold_c1(Md1D* d, B x) { B f = d->f;
|
||||
case n_or: case n_ceil: r = bit_has (xp, ia, 1) ; break;
|
||||
case n_ne: r = fold_ne (xp, ia) ; break;
|
||||
case n_eq: r = fold_ne (xp, ia) ^ (1&~ia); break;
|
||||
case n_lt: r = bit_find(xp, ia, 1) == ia-1; break;
|
||||
case n_le: r = bit_find(xp, ia, 0) != ia-1; break;
|
||||
case n_gt: r = bit_find(xp, ia, 0) & 1; break;
|
||||
case n_ge: r =~bit_find(xp, ia, 1) & 1; break;
|
||||
}
|
||||
decG(x); return m_f64(r);
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user