10 lines
216 B
Text
10 lines
216 B
Text
const func bigInteger: factorial (in bigInteger: n) is func
|
|
result
|
|
var bigInteger: fact is 1_;
|
|
local
|
|
var bigInteger: i is 0_;
|
|
begin
|
|
for i range 1_ to n do
|
|
fact *:= i;
|
|
end for;
|
|
end func;
|