19 lines
298 B
Text
19 lines
298 B
Text
// recursive
|
|
sub factorial(n)
|
|
if n > 1 then return n * factorial(n - 1) else return 1 end if
|
|
end sub
|
|
|
|
//iterative
|
|
sub factorial2(n)
|
|
local i, t
|
|
|
|
t = 1
|
|
for i = 1 to n
|
|
t = t * i
|
|
next
|
|
return t
|
|
end sub
|
|
|
|
for n = 0 to 9
|
|
print "Factorial(", n, ") = ", factorial(n)
|
|
next
|