def sm_case

bend-collections-laws-crypto@1.0.0.0 · src/math/f64.bend:296

import Base

296def sm_case(+x: F64, +y: F64, +s: Bool, +ea: Nat, +eb: Nat, c: Cmp) -> F64:
297  match c:
298    case EQ{}:
299      sm_eq(s, ea, frac(x), frac(y), Nat.is_eq(ea, 2047n))
300    case LT{}:
301      sm_big(y, Bool.not(s), eb, frac(y), ea, frac(x), Nat.is_eq(eb, 2047n))
302    case GT{}:
303      sm_big(x, s, ea, frac(x), eb, frac(y), Nat.is_eq(ea, 2047n))