RosettaCodeData/Task/Fibonacci-sequence/SequenceL/fibonacci-sequence-2.sequencel
2016-12-05 23:44:36 +01:00

8 lines
172 B
Text

fibonacci(n) := fibonacciHelper(0, 1, n);
fibonacciHelper(prev, next, n) :=
prev when n < 1
else
next when n = 1
else
fibonacciHelper(next, next + prev, n - 1);