~/jendhub

def am_case

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

import bend-collections-laws-crypto@1.0.0.0/src/math/f64.bend as F64
import Base

239def am_case(+x: F64, +y: F64, +s: Bool, +ea: Nat, +eb: Nat, c: Cmp) -> F64:
240  match c:
241    case EQ{}:
242      am_eq(x, s, ea, frac(x), frac(y))
243    case LT{}:
244      am_big(y, s, eb, frac(y), ea, frac(x), Nat.is_eq(eb, 2047n))
245    case GT{}:
246      am_big(x, s, ea, frac(x), eb, frac(y), Nat.is_eq(ea, 2047n))

Uses (8)

Used by (1)