Data commit

Task/Loops-Continue/Ela/loops-continue-1.ela

@@ -0,0 +1,13 @@
+open monad io
+
+loop n =
+  if n > 10 then do
+      return ()
+    else do
+      putStr (show n)
+      putStr f
+      loop (n + 1)
+  where f | n % 5 == 0 = "\r\n"
+          | else = ", "
+
+_ = loop 1 ::: IO

Task/Loops-Continue/Ela/loops-continue-2.ela

@@ -0,0 +1,11 @@
+open monad io
+
+loop [] = return ()
+loop (x::xs) = do
+      putStr (show x)
+      putStr f
+      loop xs
+  where f | x % 5 == 0 = "\r\n"
+          | else = ", "
+
+_ = loop [1..10] ::: IO