Loops/Infinite: Difference between revisions

Line 391:
===Non-strict version===
 
<lang ela>open consolemonad listio
 
loop ()xs = writen "SPAM" :: (& loop!)xs
 
takeit 0 _ = do return ()
take 10 <| loop! //prints SPAM only first 10 times</lang>
takeit num (x::xs) = do
putStrLn x
takeit (num - 1) xs
 
_ = takeit 10 xs ::: IO</lang>
 
=={{header|Erlang}}==
Anonymous user