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

5 lines
76 B
Clojure

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