June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-4.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-4.hs
@ -1,5 +1,6 @@
-fib n = go n 0 1
-  where
-    go n a b
-      | n == 0 = a
-      | otherwise = go (n - 1) b (a + b)
+import Data.MemoTrie
+fib :: Integer -> Integer
+fib = memo f where
+   f 0 = 0
+   f 1 = 1
+   f n = fib (n-1) + fib (n-2)