Loops/Continue: Difference between revisions

Line 283:
 
<lang ela>open console imperative
 
loop [] = ()
loop (x::xs) = rec (write << show) x c $`seq` loop xs
where c | x % 5 == 0 = "\r\n"
| else = ", "
 
loop [1..10]</lang>
 
Anonymous user