6 lines
115 B
Text
6 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
|