Loops/Continue: Difference between revisions

Content added Content deleted

Inline

@@ Line 380: / Line 380: @@
 ===Using list===
-<lang ela>open console imperative
+<lang ela>open monad io
-loop [] = ()
+loop [] = return ()
-loop (x::xs) = rec (write << show) x c `seq` loop xs
+loop (x::xs) = do
+      putStr (show x)
-               where c | x % 5 == 0 = "\r\n"
+      putStr f
-                       | else = ", "
+      loop xs
+  where f | x % 5 == 0 = "\r\n"
+          | else = ", "
-loop [1..10]</lang>
+_ = loop [1..10] ::: IO</lang>
 This version is more generic and can work for any given range of values.