RosettaCodeData/Task/Factorial/OCaml/factorial-1.ocaml
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

3 lines
68 B
Text

let rec factorial n =
if n <= 0 then 1
else n * factorial (n-1)