Another update from ingydotnet^djgoku

Task/Loops-For/Ela/loops-for-1.ela

@@ -0,0 +1,13 @@
+open monad io
+
+loop m n | n < m = do
+            loop' n 0
+            putStrLn ""
+            loop m (n + 1)
+         | else = do return ()
+          where loop' m n | n <= m = do
+                              putStr "*"
+                              loop' m (n + 1)
+                          | else = do return ()
+
+_ = loop 10 1 ::: IO

Task/Loops-For/Ela/loops-for-2.ela

@@ -0,0 +1,9 @@
+**
+***
+****
+*****
+******
+*******
+********
+*********
+**********

Task/Loops-For/Ela/loops-for.ela

@@ -1,6 +0,0 @@
-open console
-
-loop m n | n < m = loop' n 0 $ writen "" $ loop m (n+1)
-         | else = ()
-         where loop' m n | n <= m = write "*" $ loop' m (n+1)
-                         | else = ()