RosettaCodeData/Task/Fibonacci-sequence/SequenceL/fibonacci-sequence-2.sequencel

9 lines
172 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
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);