RosettaCodeData/Task/Factorial/Clojure/factorial-3.clj
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

6 lines
114 B
Clojure

(defn factorial [x]
(loop [x x
acc 1]
(if (< x 2)
acc
(recur (dec x) (* acc x)))))