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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
module Main
( main
) where
#if __GLASGOW_HASKELL__ > 702
#if !MIN_VERSION_bytestring(0,10,0)
import Control.DeepSeq (NFData(rnf))
#endif
import Criterion
import Criterion.Main
import qualified Data.ByteString as BS
import qualified Data.ByteString.Base64 as B64
#endif
main :: IO ()
main =
#if __GLASGOW_HASKELL__ < 704
return ()
#else
defaultMain
[ env bs $ \ ~(bs25,bs100,bs1k,bs10k,bs100k,bs1mm) ->
bgroup "encode"
[ bgroup "25"
[ bench "base64" $ whnf B64.encode bs25
]
, bgroup "100"
[ bench "base64" $ whnf B64.encode bs100
]
, bgroup "1k"
[ bench "base64" $ whnf B64.encode bs1k
]
, bgroup "10k"
[ bench "base64" $ whnf B64.encode bs10k
]
, bgroup "100k"
[ bench "base64" $ whnf B64.encode bs100k
]
, bgroup "1mm"
[ bench "base64" $ whnf B64.encode bs1mm
]
]
, env bs' $ \ ~(bs25,bs100,bs1k,bs10k,bs100k,bs1mm) ->
bgroup "decode"
[ bgroup "25"
[ bench "base64" $ whnf B64.decode bs25
]
, bgroup "100"
[ bench "base64" $ whnf B64.decode bs100
]
, bgroup "1k"
[ bench "base64" $ whnf B64.decode bs1k
]
, bgroup "10k"
[ bench "base64" $ whnf B64.decode bs10k
]
, bgroup "100k"
[ bench "base64" $ whnf B64.decode bs100k
]
, bgroup "1mm"
[ bench "base64" $ whnf B64.decode bs1mm
]
]
]
where
bss :: BS.ByteString
bss = "ab%de^ghi*"
bs = do
let !a = BS.concat $ replicate 3 bss
!b = BS.concat $ replicate 10 bss
!c = BS.concat $ replicate 100 bss
!d = BS.concat $ replicate 1000 bss
!e = BS.concat $ replicate 10000 bss
!f = BS.concat $ replicate 100000 bss
return (a,b,c,d,e,f)
bs' = do
let !a = B64.encode (BS.concat $ replicate 3 bss)
!b = B64.encode (BS.concat $ replicate 10 bss)
!c = B64.encode (BS.concat $ replicate 100 bss)
!d = B64.encode (BS.concat $ replicate 1000 bss)
!e = B64.encode (BS.concat $ replicate 10000 bss)
!f = B64.encode (BS.concat $ replicate 100000 bss)
return (a,b,c,d,e,f)
#if !MIN_VERSION_bytestring(0,10,0)
instance NFData BS.ByteString where
rnf bs = bs `seq` ()
#endif
#endif
|
