For the code below, if I CNTL-C after the list is printed, and run it again, I get a different list of colors, each time. This doesn't seem to be happening with my earlier example.
Michael
=============
import System.Random
import Data.Ord
data Color
= Red
| Blue
| Green
| Yellow
| Orange
| Brown
deriving (Show, Read, Eq, Enum, Ord, Bounded)
main = do
gen <- getStdGen
let code = map toEnum $ take 4 $ randomRs (0,5) gen :: [Color]
putStrLn $ "List is " ++ show code
guessString <- getLine
newGen <- newStdGen
main
--- On Sun, 10/11/09, Felipe Lessa
btw I always find it amusing to play with interact and lazy IO:
I always find it frightening to play with lazy IO :). -- Felipe. _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe