def mul_b

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

import Base
import bend-collections-laws-crypto@1.0.0.0/src/math/u64.bend as W

347def mul_b(+s: Bool, +ea: Nat, +fa: W.U64, +eb: Nat, +fb: W.U64, top: Bool) -> F64:
348  match top:
349    case True{}:
350      inf_or_nan(s, Bool.or(nz(fb), fin_zero(ea, fa)))
351    case False{}:
352      mul_z(s, ea, fa, eb, fb, Bool.or(fin_zero(ea, fa), fin_zero(eb, fb)))