RosettaCodeData/Task/Factorial/Clojure/factorial-2.clj

5 lines
77 B
Clojure

(defn factorial [x]
(if (< x 2)
1
(*' x (factorial (dec x)))))