def ar_fin

bend-collections@1.0.0.0 · src/math/f64.bend:1221

import Base
import bend-collections@1.0.0.0/src/math/num.bend as N
import bend-collections@1.0.0.0/src/math/w64.bend as X

1221def ar_fin(+x: F64, big: Bool) -> Result<&2, &2, N.NumError, Ratio>:
1222  match big:
1223    case True{}:
1224      ar_big(signbit(x), dmant(x), Nat.sub(dexp(x), 3000n), Nat.is_le(Nat.add(Nat.sub(dexp(x), 3000n), Nat.sub(64n, X.clz(dmant(x)))), 64n))
1225    case False{}:
1226      ar_small(signbit(x), dmant(x), Nat.sub(3000n, dexp(x)), Nat.min(ctz(dmant(x)), Nat.sub(3000n, dexp(x))))