1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
-- | Benchmarking utilities. For example, functions for generating
-- random 'ByteString's.
module Util.ByteString where
import qualified Data.ByteString as S
import qualified Data.ByteString.Char8 as C
import qualified Util.String as String
-- | Generate a number of fixed length 'ByteString's where the content
-- of the strings are letters in ascending order.
asc :: Int -- ^ Length of each string
-> Int -- ^ Number of strings
-> [S.ByteString]
asc strlen num = map C.pack $ String.asc strlen num
-- | Generate a number of fixed length 'ByteString's where the content
-- of the strings are letters in random order.
rnd :: Int -- ^ Length of each string
-> Int -- ^ Number of strings
-> [S.ByteString]
rnd strlen num = map C.pack $ String.rnd strlen num
-- | Generate a number of fixed length 'ByteString's where the content
-- of the strings are letters in random order, different from @rnd@.
rnd' :: Int -- ^ Length of each string
-> Int -- ^ Number of strings
-> [S.ByteString]
rnd' strlen num = map C.pack $ String.rnd' strlen num
|
