7 lines
144 B
Haskell
7 lines
144 B
Haskell
{-# Language LambdaCase #-}
|
|
import Data.MemoTrie
|
|
fib :: Integer -> Integer
|
|
fib = memo $ \case
|
|
0 -> 0
|
|
1 -> 1
|
|
n -> fib (n-1) + fib (n-2)
|