Ticket #4219: TestRandomIO.hs

File TestRandomIO.hs, 147 bytes (added by EyalLotem, 3 years ago)
Line 
1import Control.Monad
2import Control.Exception
3import System.Random
4
5main = do
6  replicateM 10000000 (evaluate =<< randomIO) :: IO [Int]
7  return ()