>>872
fib_mem :: Int -> Integer
fib_mem = (map fib [0..] !!)
　where
　　fib 0 = 1
　　fib 1 = 1
　　fib n = fib_mem (n-2) + fib_mem (n-1)
https://www.packtpub.com/mapt/book/Application%20Development/9781786464217/1/ch01lvl1sec09/Memoization+and+CAFs

そ の 発 想 は な か っ た !
英語わからずコード眺めるだけでも目から鱗だなこれ。