def fclamp_pick

bend-collections-laws-crypto@1.0.0.0 · spec/math/generic.bend:224

import Base
import bend-collections-laws-crypto@1.0.0.0/src/math/num.bend as N

224def fclamp_pick(~T: Data, ~test: N.Test<T> -> Bool, +x: T, +lo: T, +hi: T, bad: Bool) -> Result<&2, &2, N.NumError, T>:
225  match bad:
226    case True{}:
227      Fail{N.BadDomain{}}
228    case False{}:
229      Done{pick(T, test(N.Lt{hi, pick(T, test(N.Lt{x, lo}), lo, x)}), hi, pick(T, test(N.Lt{x, lo}), lo, x))}