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

6 lines
69 B
Plaintext

def (fib n)
(+ (fib n-1) (fib n-2))
def (fib n) :case (n < 2)
n