Data update

2025-02-27 18:35:13 -05:00 · 2025-02-27 18:35:13 -05:00 · 72eb4943cb
commit 72eb4943cb
parent 8e4e15fa56
1853 changed files with 35514 additions and 9441 deletions
--- a/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-20.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-20.hs
@ -1 +1,8 @@
-g (n,(a,b)) = (2*n,(2*a*b-a*a,a*a+b*b))     -- iterate g (1,(1,1)) ; a is nth
+import Data.Functor.Identity (Identity (..))
+
+fibs :: [Integer]
+fibs = runIdentity (hsequence (repeat f))
+    where f []  = Identity 1
+          f [_] = Identity 1
+          f xs  = Identity ((xs !! (i-1)) + (xs !! i))
+              where i = length xs-1