15 lines
263 B
Text
15 lines
263 B
Text
print Fibonacci(-10)
|
|
print Fibonacci(10)
|
|
|
|
|
|
sub Fibonacci(number)
|
|
|
|
If number < 0 print "Invalid argument: "; : return number
|
|
|
|
If number < 2 Then
|
|
Return number
|
|
Else
|
|
Return Fibonacci(number - 1) + Fibonacci(number - 2)
|
|
EndIf
|
|
|
|
end sub
|