7 lines
91 B
Text
7 lines
91 B
Text
fun fac n
|
|
let acc 1
|
|
while n > 0
|
|
let acc (acc * n--)
|
|
endwhile
|
|
return acc
|
|
endfun
|