def rm_far
import bend-collections@1.0.0.0/src/math/f64.bend as F64import Base
1131def rm_far(+x: F64, +y: F64, far: Bool) -> F64:
1132 match far:
1133 case True{}:
1134 rm_near(x, y, Nat.is_eq(Nat.sub(dexp(y), dexp(x)), 1n))
1135 case False{}:
1136 rm_qr(x, y, fm_qr(x, y))