11 lines
223 B
Clojure
11 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))
|