RosettaCodeData/Task/Fibonacci-sequence/HicEst/fibonacci-sequence.hicest

5 lines
128 B
Plaintext

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