Don't like ads? PRO users don't see any ads ;-)
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
- memoized_fib :: Int -> Integer
- memoized_fib = (map fib [0..] !!)
- where fib 0 = 0
- fib 1 = 1
- fib n = memoized_fib(n - 2) + memoized_fib(n - 1)
- memoized_fib2 :: Int -> Integer
- memoized_fib2 n = (map fib[0..]) !! n
- where fib 0 = 0
- fib 1 = 1
- fib n = memoized_fib2(n - 2) + memoized_fib2(n - 1)
create a new version of this paste
RAW Paste Data