[Haskell-cafe] infinite lists

[Matthew Brecknell]

Matthias Fischmann:
> g = do
>     n <- randomRIO (0,5)
>     let l = replicate n '*'
>         i | null l = []
>           | otherwise = join $ repeat l
>     print (take 12 i)

If you had written (cycle l) instead of (join $ repeat l), you would
have figured it out much quicker. :-)

Prelude> cycle []
*** Exception: Prelude.cycle: empty list