def lcm_ok

bend-collections@1.0.0.0 · src/math/generic.bend:316

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

316def lcm_ok(~T: Data, ~op: N.Op<T> -> T, ~test: N.Test<T> -> Bool, +a: T, +b: T, zero: Bool) -> Result<&2, &2, N.NumError, T>:
317  match zero:
318    case True{}:
319      Done{op(N.ZeroOp{})}
320    case False{}:
321      ok(T, cmul(~T, ~op, ~test, op(N.Quot{a, gcd(~T, ~op, ~test, a, b)}), b))