RosettaCodeData/Task/Factorial/Hexiscript/factorial-1.hexi

8 lines
91 B
Plaintext

fun fac n
let acc 1
while n > 0
let acc (acc * n--)
endwhile
return acc
endfun