12 lines
223 B
Clojure
12 lines
223 B
Clojure
|
(defn gcd
|
||
|
|
[a b]
|
||
|
|
(if (zero? b)
|
||
|
|
a
|
||
|
|
(recur b, (mod a b))))
|
||
|
|
|
||
|
|
(defn lcm
|
||
|
|
[a b]
|
||
|
|
(/ (* a b) (gcd a b)))
|
||
|
|
;; to calculate the lcm for a variable number of arguments
|
||
|
|
(defn lcmv [& v] (reduce lcm v))
|