Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Loops-Do-while/Ela/loops-do-while.ela
+++ b/Task/Loops-Do-while/Ela/loops-do-while.ela
@ -1,5 +1,8 @@
-open console
+open monad io

-loop n | n % 6 == 0 = out ()
-       | else = out `seq` loop (n+1)
-        where out = & writen n
+loop n | n % 6 == 0 = do return ()
+       | else = do
+          putStrLn (show n)
+          loop (n+1)
+
+_ = loop 10 ::: IO