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-1.hs
+++ b/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-1.hs
@ -1 +1,6 @@
-[floor(0.01+(1/p**n+p**n)/sqrt 5)|let p=(1+sqrt 5)/2, n<-[0..42]]
+main :: IO ()
+main =
+  print
+    [ floor (0.01 + (1 / p ** n + p ** n) / sqrt 5)
+    | let p = (1 + sqrt 5) / 2
+    , n <- [0 .. 42] ]