36 lines
578 B
Plaintext
36 lines
578 B
Plaintext
window 1, @"Factorial", ( 0, 0, 300, 550 )
|
|
|
|
local fn factorialIterative( n as long ) as double
|
|
double f
|
|
long i
|
|
|
|
if ( n > 1 )
|
|
f = 1
|
|
for i = 2 to n
|
|
f = f * i
|
|
next
|
|
else
|
|
f = 1
|
|
end if
|
|
end fn = f
|
|
|
|
local fn factorialRecursive( n as long ) as double
|
|
double f
|
|
|
|
if ( n < 2 )
|
|
f = 1
|
|
else
|
|
f = n * fn factorialRecursive( n -1 )
|
|
end if
|
|
end fn = f
|
|
|
|
long i
|
|
|
|
for i = 0 to 12
|
|
print "Iterative:"; using "####"; i; " = "; fn factorialIterative( i )
|
|
print "Recursive:"; using "####"; i; " = "; fn factorialRecursive( i )
|
|
print
|
|
next
|
|
|
|
HandleEvents
|