lcm

Die Funktion lcm berechnet das kleinste gemeinsame Vielfache zweier Ganzzahlen. Die Funktion wertet beide Argumente aus.

> (lcm 2 3)
6

> (lcm 3 11)
33

> (lcm 24 32)
96

> (lcm 18 27)
54

Die Funktion lcm liefert 0 wenn beide Argumente 0 sind und ansonsten den Betrag des Quotienten aus dem Produkt und dem größten gemeinsamen Teiler der Argumente:

(defproc lcm (a b)
  (if
    (and (zero? a) (zero? b))
    0
    (/ (abs (* a b)) (gcd a b))))