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