22 lines
297 B
Text
22 lines
297 B
Text
#APPTYPE CONSOLE
|
|
|
|
FUNCTION Fibonacci(n)
|
|
IF n < 0 THEN
|
|
RETURN "Nuts!"
|
|
ELSE
|
|
RETURN Fib(n)
|
|
END IF
|
|
FUNCTION Fib(m)
|
|
IF m < 2 THEN
|
|
Fib = m
|
|
ELSE
|
|
Fib = Fib(m - 1) + Fib(m - 2)
|
|
END IF
|
|
END FUNCTION
|
|
END FUNCTION
|
|
|
|
PRINT Fibonacci(-1.5)
|
|
PRINT Fibonacci(1.5)
|
|
PRINT Fibonacci(13.666)
|
|
|
|
PAUSE
|