picoSec :: IO Integer
picoSec = do
t - ctPicosec `liftM` (getClockTime = toCalendarTime)
return t
rollDice :: Int - IO Int
rollDice n = do
ps - picoSec
return $ (take 1 $ randomRs (1,n) $ mkStdGen $ fromInteger ps) !! 0
The above code uses `ctPicosec` as seed. Is it better to
Admittedly, I don't know much about this from the haskell end or about the
particular api.
If you want statistical randomness, your seed doesn't matter; just the PRNG.
I might even have seeded with a constant or taken the seed from the user.
Seeding from urandom will make your output more
It probably is, but definitly not portable. Try to find /dev/urandom
under Windows.
___
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe