import qualified Data.Vector.Unboxed as U
import System.Random.Mersenne.Pure64
import qualified Data.Vector.Random.Mersenne as G
main = do
h <- newPureMT
let b = G.randoms h 10 :: U.Vector Bool
print b
*Main> main
fromList [True,True,True,True,True,True,True,True,True,True]
_______________________________________________
Libraries mailing list
Libraries@haskell.org
http://www.haskell.org/mailman/listinfo/libraries