RosettaCodeData/Task/Loops-Do-while/Ela/loops-do-while.ela

open monad io

loop n | n % 6 == 0 = do return ()
       | else = do
          putStrLn (show n)
          loop (n+1)

_ = loop 10 ::: IO
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`open monad io`
A-M baby 2013-04-10 21:29:02 -07:00
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`loop n \| n % 6 == 0 = do return ()`
			`\| else = do`
			`putStrLn (show n)`
			`loop (n+1)`

			`_ = loop 10 ::: IO`