9 lines
169 B
Text
9 lines
169 B
Text
|
procedure factorial(n) #: return n! (n factorial)
|
||
|
|
local i
|
||
|
|
n := integer(n) | runerr(101, n)
|
||
|
|
if n < 0 then fail
|
||
|
|
i := 1
|
||
|
|
every i *:= 1 to n
|
||
|
|
return i
|
||
|
|
end
|