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
|
{-# LANGUAGE BangPatterns #-}
module SimpleVersus
( benchmarks -- :: [Benchmark]
) where
import Control.DeepSeq
import Criterion.Main
import qualified Data.Binary as Binary
import qualified Codec.Serialise as Serialise
import qualified Data.ByteString as ByteStringStrict
import qualified Data.ByteString.Lazy as ByteString
import qualified Data.Serialize as Cereal
import qualified Data.Store as Store
import Data.Vector.Serialize ()
import qualified Data.Vector.Unboxed as Unboxed
benchmarks :: [Benchmark]
benchmarks =
[ bgroup "unboxed-vector"
[ bgroup "serialise"
[ bench "binary" $ nf binarySerialise vector
, bench "cbor" $ nf cborSerialise vector
, bench "cereal" $ nf cerealSerialise vector
, bench "store" $ nf storeSerialise vector
]
, bgroup "deserialise"
[ bench "binary" $ nf binaryDeserialise binaryVector
, bench "cbor" $ nf cborDeserialise cborVector
, bench "cereal" $ nf cerealDeserialise cerealVector
, bench "store" $ nf storeDeserialise storeVector
]
]
]
where
cborVector, cerealVector, binaryVector :: ByteString.ByteString
!cborVector = force $ cborSerialise vector
!cerealVector = force $ cerealSerialise vector
!binaryVector = force $ binarySerialise vector
storeVector :: ByteStringStrict.ByteString
!storeVector = force $ storeSerialise vector
!vector = Unboxed.fromList list
list :: [Int]
list = [1.. 1024 * 1024]
binarySerialise, cborSerialise, cerealSerialise
:: Unboxed.Vector Int -> ByteString.ByteString
binarySerialise = Binary.encode
cborSerialise = Serialise.serialise
cerealSerialise = Cereal.encodeLazy
storeSerialise :: Unboxed.Vector Int -> ByteStringStrict.ByteString
storeSerialise = Store.encode
binaryDeserialise, cborDeserialise, cerealDeserialise
:: ByteString.ByteString -> Unboxed.Vector Int
binaryDeserialise = Binary.decode
cerealDeserialise = (\(Right x) -> x) . Cereal.decodeLazy
cborDeserialise = Serialise.deserialise
storeDeserialise :: ByteStringStrict.ByteString -> Unboxed.Vector Int
storeDeserialise = (\(Right x) -> x) . Store.decode
|
