RosettaCodeData/Task/Factorial/ATS/factorial-3.ats
2015-11-18 06:14:39 +00:00

8 lines
157 B
Text

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