11 lines
185 B
Text
11 lines
185 B
Text
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
|