RosettaCodeData/Task/Fibonacci-sequence/Wart/fibonacci-sequence-2.wart

6 lines
69 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
def (fib n)
(+ (fib n-1) (fib n-2))
def (fib n) :case (n < 2)
n