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

7 lines
233 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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