RosettaCodeData/Task/Factorial/ATS/factorial-2.ats

6 lines
95 B
Plaintext

fun
factorial
(n:int): int =
if n > 0 then n * factorial(n-1) else 1
// end of [factorial]