5 lines
115 B
Text
5 lines
115 B
Text
let factorial n =
|
|
let rec loop i accum =
|
|
if i > n then accum
|
|
else loop (i + 1) (accum * i)
|
|
in loop 1 1
|