3 lines
98 B
Text
3 lines
98 B
Text
fact = fact' 1L
|
|
where fact' acc 0 = acc
|
|
fact' acc n = fact' (n * acc) (n - 1)
|