Ticket #4218: TestRandomRs.hs

File TestRandomRs.hs, 338 bytes (added by EyalLotem, 9 years ago)
Line 
1module TestRandomRs where
2
3import Control.Monad
4import System.Random
5import Data.List
6
7force = foldr (\x r -> x `seq` (x:r)) []
8
9blowsTheHeap :: IO Integer
10blowsTheHeap = (last . take 10000000 . randomRs (0, 1000000)) `liftM` getStdGen
11
12works :: IO Integer
13works = (last . take 10000000 . force . randomRs (0, 1000000)) `liftM` getStdGen