RosettaCodeData/Task/Factorial/Hy/factorial.hy

8 lines
95 B
Hy

(defn ! [n]
(reduce *
(range 1 (inc n))
1))
(print (! 6)) ; 720
(print (! 0)) ; 1