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
|
module Main where
import Criterion.Main
import qualified Data.Text as D
import qualified Data.Text.Lazy as C
import qualified Data.Text.Lazy.Builder as B
import qualified Text.Builder as A
import Prelude
main :: IO ()
main =
defaultMain
$ [ subjectBenchmark "builderSubject" builderSubject,
subjectBenchmark "lazyTextBuilderSubject" lazyTextBuilderSubject,
subjectBenchmark "plainTextPackingSubject" plainTextPackingSubject
]
subjectBenchmark :: String -> Subject -> Benchmark
subjectBenchmark title subject =
bgroup title
$ [ benchmark "Small input" smallInput subject,
benchmark "Medium input" mediumInput subject,
benchmark "Large input" largeInput subject
]
benchmark :: String -> [Int] -> Subject -> Benchmark
benchmark title input subject =
bench title $ nf subject $ input
type Subject =
[Int] -> Text
builderSubject :: Subject
builderSubject =
A.run . A.string . map chr
lazyTextBuilderSubject :: Subject
lazyTextBuilderSubject =
C.toStrict . B.toLazyText . B.fromString . map chr
plainTextPackingSubject :: Subject
plainTextPackingSubject =
D.pack . map chr
{-# NOINLINE smallInput #-}
smallInput :: [Int]
smallInput =
map ord ['a', 'b', 'Ф', '漢', chr 0x11000]
{-# NOINLINE mediumInput #-}
mediumInput :: [Int]
mediumInput =
mconcat (replicate 1000 smallInput)
{-# NOINLINE largeInput #-}
largeInput :: [Int]
largeInput =
mconcat (replicate 100000 smallInput)
|
