def fm_qr

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

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

1072# the last quotient digit and remainder of mant(x) * 2^(e(x) - e(y)) by mant(y)
1073def fm_qr(+x: F64, +y: F64) -> W.U64 & W.U64:
1074  fm_go(Nat.sub(dexp(x), dexp(y)), dmant(y), Nat.sub(dexp(x), dexp(y)), X.divmod(dmant(x), dmant(y)))