12 lines
296 B
Plaintext
12 lines
296 B
Plaintext
local fn Fibonacci( n as long ) as long
|
|
if n < 0 then printf @"Invalid argument: \b" : return n
|
|
if n < 2 then return n else return fn Fibonacci( n - 1 ) + fn Fibonacci( n - 2 )
|
|
end fn = 0
|
|
|
|
print fn Fibonacci(20)
|
|
print fn Fibonacci(30)
|
|
print fn Fibonacci(-10)
|
|
print fn Fibonacci(10)
|
|
|
|
handleevents
|