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

7 lines
233 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
def (fib n saved)
2017-09-23 10:01:46 +02:00
# all args in Wart are optional, and we expect callers to not provide `saved`
2016-12-05 23:44:36 +01:00
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