Data commit

Task/Nested-function/Haskell/nested-function-1.hs

@@ -0,0 +1,16 @@
+import Control.Monad.ST
+import Data.STRef
+
+makeList :: String -> String
+makeList separator = concat $ runST $ do
+  counter <- newSTRef 1
+  let makeItem item = do
+        x <- readSTRef counter
+        let result = show x ++ separator ++ item ++ "\n"
+        modifySTRef counter (+ 1)
+        return result
+  mapM makeItem ["first", "second", "third"]
+
+
+main :: IO ()
+main = putStr $ makeList ". "

Task/Nested-function/Haskell/nested-function-2.hs

@@ -0,0 +1,7 @@
+makeList :: String -> String
+makeList separator =
+  let makeItem = (<>) . (<> separator) . show
+   in unlines $ zipWith makeItem [1 ..] ["First", "Second", "Third"]
+
+main :: IO ()
+main = putStrLn $ makeList ". "

Task/Nested-function/Haskell/nested-function-3.hs

@@ -0,0 +1,7 @@
+makeList :: String -> String
+makeList separator =
+  let makeItem = unlines . zipWith ((<>) . (<> separator) . show) [1..]
+   in makeItem ["First", "Second", "Third"]
+
+main :: IO ()
+main = putStrLn $ makeList ". "