RosettaCodeData/Task/Fibonacci-sequence/Wart/fibonacci-sequence-3.wart
2017-09-25 22:28:19 +02:00

6 lines
233 B
Text

def (fib n saved)
# all args in Wart are optional, and we expect callers to not provide `saved`
default saved :to (table 0 0 1 1) # pre-populate base cases
default saved.n :to
(+ (fib n-1 saved) (fib n-2 saved))
saved.n