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))))
> (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))))