RosettaCodeData/Task/Loops-Continue/Ela/loops-continue-2.ela

open monad io

loop [] = return ()
loop (x::xs) = do
      putStr (show x)
      putStr f
      loop xs
  where f | x % 5 == 0 = "\r\n"
          | else = ", "

_ = loop [1..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 [] = return ()`
			`loop (x::xs) = do`
			`putStr (show x)`
			`putStr f`
			`loop xs`
			`where f \| x % 5 == 0 = "\r\n"`
			`\| else = ", "`
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 [1..10] ::: IO`