Loops/Continue: Difference between revisions

Content added Content deleted

Inline

@@ Line 365: / Line 365: @@
 ===Direct Approach===
-<lang ela>open console imperative
+<lang ela>open monad io
-loop n | n > 10 = ()
+loop n =
+  if n > 10 then do
-       | else = rec write (show n) f `seq` loop (n+1)
+      return ()
-                where f | n % 5 == 0 = "\r\n"
-                        | else = ", "
+    else do
+      putStr (show n)
+      putStr f
-loop 1</lang>
+      loop (n + 1)
+  where f | n % 5 == 0 = "\r\n"
+          | else = ", "
+_ = loop 1 ::: IO</lang>
-Function rec creates a cyclic version of a given function, it is defined in imperative module as 'rec f x = f x `seq` rec f' where 'seq' is a sequencing operator.
 ===Using list===