Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (12 sloc) 288 Bytes
(fn [& args]
(letfn [(gcd [x y]
(let [a (max x y)
b (min x y)
m (mod a b)]
(if (zero? m)
b
(recur b m))))
(lcm [a b]
(/ (* a b) (gcd a b)))]
(reduce lcm args)
))