RosettaCodeData/Task/Factorial/Sisal/factorial-2.sisal
2023-07-01 13:44:08 -04:00

11 lines
129 B
Text

define main
function main(x : integer returns integer)
if x = 0 then
1
else
x * main(x - 1)
end if
end function