Data commit

Task/Sylvesters-sequence/Haskell/sylvesters-sequence-1.hs

@@ -0,0 +1,16 @@
+sylvester :: [Integer]
+sylvester = map s [0 ..]
+  where
+    s 0 = 2
+    s n = succ $ foldr ((*) . s) 1 [0 .. pred n]
+
+main :: IO ()
+main = do
+  putStrLn "First 10 elements of Sylvester's sequence:"
+  putStr $ unlines $ map show $ take 10 sylvester
+
+  putStr "\nSum of reciprocals by sum over map: "
+  print $ sum $ map ((1 /) . fromInteger) $ take 10 sylvester
+
+  putStr "Sum of reciprocals by fold: "
+  print $ foldr ((+) . (1 /) . fromInteger) 0 $ take 10 sylvester

Task/Sylvesters-sequence/Haskell/sylvesters-sequence-2.hs

@@ -0,0 +1,2 @@
+sylvester :: [Integer]
+sylvester = iterate (\x -> x * (x-1) + 1) 2

Task/Sylvesters-sequence/Haskell/sylvesters-sequence-3.hs

@@ -0,0 +1,2 @@
+sylvester :: [Integer]
+sylvester = iterate (succ . ((*) <*> pred)) 2