5 lines
128 B
Text
5 lines
128 B
Text
|
REAL :: Fibonacci(10)
|
||
|
|
|
||
|
|
Fibonacci = ($==2) + Fibonacci($-1) + Fibonacci($-2)
|
||
|
|
WRITE(ClipBoard) Fibonacci ! 0 1 1 2 3 5 8 13 21 34
|