def sqrt_fin

bend-collections-laws-math@1.0.0.0 · spec/math/f64.bend:238

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

238def sqrt_fin(+x: F.F64) -> F.F64:
239  pick(F.F64, Nat.is_eq(Nat.mod(xexp(x), 2n), 0n), sqrt_even(mant(x), xexp(x)), sqrt_even(Nat.mul(2n, mant(x)), Nat.sub(xexp(x), 1n)))