RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-7.hs

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