June 2018 Update

Task/Loops-N-plus-one-half/Haskell/loops-n-plus-one-half-1.hs

@@ -1,5 +1,4 @@
-loop :: IO ()
-loop = mapM_ action [1 .. 10]
-  where action n = do
+main :: IO ()
+main = forM_ [1 .. 10] $ \n -> do
             putStr $ show n
             putStr $ if n == 10 then "\n" else ", "

Task/Loops-N-plus-one-half/Haskell/loops-n-plus-one-half-2.hs

@@ -0,0 +1 @@
+intercalate ", " (map show [1..10])