September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-13.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-13.hs
@ -1,2 +1 @@
- *Main> take 10 $ show $ fst $ fibN2 (10^6)
- "1953282128"
+f (n,(a,b)) = (2*n,(a*a+b*b,2*a*b+b*b))     -- iterate f (1,(0,1)) ; b is nth