RosettaCodeData/Task/Fibonacci-sequence/Logo/fibonacci-sequence.logo
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
81 B
Text

to fib :n [:a 0] [:b 1]
if :n < 1 [output :a]
output (fib :n-1 :b :a+:b)
end