Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement