lcm   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/init.xtm

Implementation

(define (lcm a b)
  (if (or (= a 0) (= b 0))
      0
      (abs (* (quotient a (gcd a b)) b))))


Back to Index