A-M baby

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

@@ -0,0 +1,8 @@
+open console imperative
+
+loop n | n > 10 = ()
+       | else = rec write (show n) f `seq` loop (n+1)
+                where f | n % 5 == 0 = "\r\n"
+                        | else = ", "
+
+loop 1

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

@@ -0,0 +1,8 @@
+open console imperative
+
+loop [] = ()
+loop (x::xs) = rec (write << show) x c `seq` loop xs
+               where c | x % 5 == 0 = "\r\n"
+                       | else = ", "
+
+loop [1..10]