1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-- | Benchmarking utilities. For example, functions for generating
-- random integers.
module Util.Int where
import System.Random (mkStdGen, randomRs)
-- | Generate a number of uniform random integers in the interval
-- @[0..upper]@.
rnd :: Int -- ^ Upper bound (inclusive)
-> Int -- ^ Number of integers
-> [Int]
rnd upper num = take num $ randomRs (0, upper) $ mkStdGen 1234
-- | Generate a number of uniform random integers in the interval
-- @[0..upper]@ different from @rnd@.
rnd' :: Int -- ^ Upper bound (inclusive)
-> Int -- ^ Number of integers
-> [Int]
rnd' upper num = take num $ randomRs (0, upper) $ mkStdGen 5678
|
