git.iko.soy/streamly
on 57fad21 help sign in
streamly/benchmark/BaseStreams.hs
262 lines 13 kB history raw
1-- |
2-- Module : Main
3-- Copyright : (c) 2018 Harendra Kumar
4--
5-- License : BSD3
6-- Maintainer : harendra.kumar@gmail.com
8{-# LANGUAGE CPP #-}
10import Control.DeepSeq (NFData)
11-- import Data.Functor.Identity (Identity, runIdentity)
12import System.Random (randomRIO)
14import Gauge
15import qualified StreamDOps as D
16import qualified StreamKOps as K
18-- We need a monadic bind here to make sure that the function f does not get
19-- completely optimized out by the compiler in some cases.
20{-# INLINE benchIO #-}
21benchIO :: String -> (a IO Int -> IO ()) -> (Int -> a IO Int) -> Benchmark
22benchIO name run f = bench name $ nfIO $ randomRIO (1,1) >>= run . f
24benchFold :: NFData b
25 => String -> (t IO Int -> IO b) -> (Int -> t IO Int) -> Benchmark
26benchFold name f src = bench name $ nfIO $ randomRIO (1,1) >>= f . src
28-- | Takes a source, and uses it with a default drain/fold method.
29{-# INLINE benchD #-}
30benchD :: String -> (Int -> D.Stream IO Int) -> Benchmark
31benchD name f = bench name $ nfIO $ randomRIO (1,1) >>= D.toNull . f
33{-# INLINE benchK #-}
34benchK :: String -> (Int -> K.Stream IO Int) -> Benchmark
35benchK name f = bench name $ nfIO $ randomRIO (1,1) >>= K.toNull . f
37{-
38_benchId :: NFData b => String -> (Ops.Stream m Int -> Identity b) -> Benchmark
39_benchId name f = bench name $ nf (runIdentity . f) (Ops.source 10)
40-}
42main :: IO ()
43main =
44 defaultMain
45 [ bgroup "streamD"
46 [ bgroup "generation"
47 [ benchIO "unfoldr" D.toNull D.sourceUnfoldr
48 , benchIO "unfoldrM" D.toNull D.sourceUnfoldrM
49 , benchIO "fromEnum" D.toNull D.sourceFromEnum
51 , benchIO "fromList" D.toNull D.sourceFromList
52 -- , benchIO "fromFoldableM" D.sourceFromFoldableM
53 ]
54 , bgroup "elimination"
55 [ benchIO "toNull" D.toNull D.sourceUnfoldrM
56 , benchIO "uncons" D.uncons D.sourceUnfoldrM
57 , benchFold "tail" D.tail D.sourceUnfoldrM
58 , benchIO "nullTail" D.nullTail D.sourceUnfoldrM
59 , benchIO "headTail" D.headTail D.sourceUnfoldrM
60 , benchFold "toList" K.toList K.sourceUnfoldrM
61 , benchFold "fold" K.foldl K.sourceUnfoldrM
62 , benchFold "last" K.last K.sourceUnfoldrM
63 ]
64 , bgroup "transformation"
65 [ benchIO "scan" (D.scan 1) D.sourceUnfoldrM
66 , benchIO "map" (D.map 1) D.sourceUnfoldrM
67 , benchIO "fmap" (D.fmap 1) D.sourceUnfoldrM
68 , benchIO "mapM" (D.mapM 1) D.sourceUnfoldrM
69 , benchIO "mapMaybe" (D.mapMaybe 1) D.sourceUnfoldrM
70 , benchIO "mapMaybeM" (D.mapMaybeM 1) D.sourceUnfoldrM
71 ]
72 , bgroup "transformationX4"
73 [ benchIO "scan" (D.scan 4) D.sourceUnfoldrM
74 , benchIO "map" (D.map 4) D.sourceUnfoldrM
75 , benchIO "fmap" (D.fmap 4) D.sourceUnfoldrM
76 , benchIO "mapM" (D.mapM 4) D.sourceUnfoldrM
77 , benchIO "mapMaybe" (D.mapMaybe 4) D.sourceUnfoldrM
78 , benchIO "mapMaybeM" (D.mapMaybeM 4) D.sourceUnfoldrM
79 ]
80 , bgroup "filtering"
81 [ benchIO "filter-even" (D.filterEven 1) D.sourceUnfoldrM
82 , benchIO "filter-all-out" (D.filterAllOut 1) D.sourceUnfoldrM
83 , benchIO "filter-all-in" (D.filterAllIn 1) D.sourceUnfoldrM
84 , benchIO "take-all" (D.takeAll 1) D.sourceUnfoldrM
85 , benchIO "takeWhile-true" (D.takeWhileTrue 1) D.sourceUnfoldrM
86 , benchIO "drop-one" (D.dropOne 1) D.sourceUnfoldrM
87 , benchIO "drop-all" (D.dropAll 1) D.sourceUnfoldrM
88 , benchIO "dropWhile-true" (D.dropWhileTrue 1) D.sourceUnfoldrM
89 , benchIO "dropWhile-false" (D.dropWhileFalse 1) D.sourceUnfoldrM
90 ]
91 , bgroup "filteringX4"
92 [ benchIO "filter-even" (D.filterEven 4) D.sourceUnfoldrM
93 , benchIO "filter-all-out" (D.filterAllOut 4) D.sourceUnfoldrM
94 , benchIO "filter-all-in" (D.filterAllIn 4) D.sourceUnfoldrM
95 , benchIO "take-all" (D.takeAll 4) D.sourceUnfoldrM
96 , benchIO "takeWhile-true" (D.takeWhileTrue 4) D.sourceUnfoldrM
97 , benchIO "drop-one" (D.dropOne 4) D.sourceUnfoldrM
98 , benchIO "drop-all" (D.dropAll 4) D.sourceUnfoldrM
99 , benchIO "dropWhile-true" (D.dropWhileTrue 4) D.sourceUnfoldrM
100 , benchIO "dropWhile-false" (D.dropWhileFalse 4) D.sourceUnfoldrM
101 ]
102 , bgroup "zipping"
103 [ benchFold "eqBy" D.eqBy D.sourceUnfoldrM
104 , benchFold "cmpBy" D.cmpBy D.sourceUnfoldrM
105 , benchIO "zip" D.zip D.sourceUnfoldrM
106 ]
107 , bgroup "mixed"
108 [ benchIO "scan-map" (D.scanMap 1) D.sourceUnfoldrM
109 , benchIO "drop-map" (D.dropMap 1) D.sourceUnfoldrM
110 , benchIO "drop-scan" (D.dropScan 1) D.sourceUnfoldrM
111 , benchIO "take-drop" (D.takeDrop 1) D.sourceUnfoldrM
112 , benchIO "take-scan" (D.takeScan 1) D.sourceUnfoldrM
113 , benchIO "take-map" (D.takeMap 1) D.sourceUnfoldrM
114 , benchIO "filter-drop" (D.filterDrop 1) D.sourceUnfoldrM
115 , benchIO "filter-take" (D.filterTake 1) D.sourceUnfoldrM
116 , benchIO "filter-scan" (D.filterScan 1) D.sourceUnfoldrM
117 , benchIO "filter-map" (D.filterMap 1) D.sourceUnfoldrM
118 ]
119 , bgroup "mixedX2"
120 [ benchIO "scan-map" (D.scanMap 2) D.sourceUnfoldrM
121 , benchIO "drop-map" (D.dropMap 2) D.sourceUnfoldrM
122 , benchIO "drop-scan" (D.dropScan 2) D.sourceUnfoldrM
123 , benchIO "take-drop" (D.takeDrop 2) D.sourceUnfoldrM
124 , benchIO "take-scan" (D.takeScan 2) D.sourceUnfoldrM
125 , benchIO "take-map" (D.takeMap 2) D.sourceUnfoldrM
126 , benchIO "filter-drop" (D.filterDrop 2) D.sourceUnfoldrM
127 , benchIO "filter-take" (D.filterTake 2) D.sourceUnfoldrM
128 , benchIO "filter-scan" (D.filterScan 2) D.sourceUnfoldrM
129 , benchIO "filter-map" (D.filterMap 2) D.sourceUnfoldrM
130 ]
131 , bgroup "mixedX4"
132 [ benchIO "scan-map" (D.scanMap 4) D.sourceUnfoldrM
133 , benchIO "drop-map" (D.dropMap 4) D.sourceUnfoldrM
134 , benchIO "drop-scan" (D.dropScan 4) D.sourceUnfoldrM
135 , benchIO "take-drop" (D.takeDrop 4) D.sourceUnfoldrM
136 , benchIO "take-scan" (D.takeScan 4) D.sourceUnfoldrM
137 , benchIO "take-map" (D.takeMap 4) D.sourceUnfoldrM
138 , benchIO "filter-drop" (D.filterDrop 4) D.sourceUnfoldrM
139 , benchIO "filter-take" (D.filterTake 4) D.sourceUnfoldrM
140 , benchIO "filter-scan" (D.filterScan 4) D.sourceUnfoldrM
141 , benchIO "filter-map" (D.filterMap 4) D.sourceUnfoldrM
142 ]
143 , bgroup "iterated"
144 [ benchD "mapM" D.iterateMapM
145 , benchD "scan(1/10)" D.iterateScan
146 , benchD "filterEven" D.iterateFilterEven
147 , benchD "takeAll" D.iterateTakeAll
148 , benchD "dropOne" D.iterateDropOne
149 , benchD "dropWhileFalse(1/10)" D.iterateDropWhileFalse
150 , benchD "dropWhileTrue" D.iterateDropWhileTrue
151 ]
152 ]
153 , bgroup "streamK"
154 [ bgroup "generation"
155 [ benchIO "unfoldr" K.toNull K.sourceUnfoldr
156 , benchIO "unfoldrM" K.toNull K.sourceUnfoldrM
157 -- , benchIO "fromEnum" K.toNull K.sourceFromEnum
159 , benchIO "fromFoldable" K.toNull K.sourceFromFoldable
160 -- , benchIO "fromFoldableM" K.toNull K.sourceFromFoldableM
162 -- appends
163 , benchIO "foldMapWith" K.toNull K.sourceFoldMapWith
164 , benchIO "foldMapWithM" K.toNull K.sourceFoldMapWithM
165 ]
166 , bgroup "elimination"
167 [ benchIO "toNull" K.toNull K.sourceUnfoldrM
168 , benchIO "uncons" K.uncons K.sourceUnfoldrM
169 , benchFold "init" K.init K.sourceUnfoldrM
170 , benchFold "tail" K.tail K.sourceUnfoldrM
171 , benchIO "nullTail" K.nullTail K.sourceUnfoldrM
172 , benchIO "headTail" K.headTail K.sourceUnfoldrM
173 , benchFold "toList" K.toList K.sourceUnfoldrM
174 , benchFold "fold" K.foldl K.sourceUnfoldrM
175 , benchFold "last" K.last K.sourceUnfoldrM
176 ]
177 , bgroup "transformation"
178 [ benchIO "scan" (K.scan 1) K.sourceUnfoldrM
179 , benchIO "map" (K.map 1) K.sourceUnfoldrM
180 , benchIO "fmap" (K.fmap 1) K.sourceUnfoldrM
181 , benchIO "mapM" (K.mapM 1) K.sourceUnfoldrM
182 -- , benchIO "concat" K.concat K.sourceUnfoldrM
183 ]
184 , bgroup "transformationX4"
185 [ benchIO "scan" (K.scan 4) K.sourceUnfoldrM
186 , benchIO "map" (K.map 4) K.sourceUnfoldrM
187 , benchIO "fmap" (K.fmap 4) K.sourceUnfoldrM
188 , benchIO "mapM" (K.mapM 4) K.sourceUnfoldrM
189 -- , benchIO "concat" K.concat K.sourceUnfoldrM
190 ]
191 , bgroup "filtering"
192 [ benchIO "filter-even" (K.filterEven 1) K.sourceUnfoldrM
193 , benchIO "filter-all-out" (K.filterAllOut 1) K.sourceUnfoldrM
194 , benchIO "filter-all-in" (K.filterAllIn 1) K.sourceUnfoldrM
195 , benchIO "take-all" (K.takeAll 1) K.sourceUnfoldrM
196 , benchIO "takeWhile-true" (K.takeWhileTrue 1) K.sourceUnfoldrM
197 , benchIO "drop-one" (K.dropOne 1) K.sourceUnfoldrM
198 , benchIO "drop-all" (K.dropAll 1) K.sourceUnfoldrM
199 , benchIO "dropWhile-true" (K.dropWhileTrue 1) K.sourceUnfoldrM
200 , benchIO "dropWhile-false" (K.dropWhileFalse 1) K.sourceUnfoldrM
201 ]
202 , bgroup "filteringX4"
203 [ benchIO "filter-even" (K.filterEven 4) K.sourceUnfoldrM
204 , benchIO "filter-all-out" (K.filterAllOut 4) K.sourceUnfoldrM
205 , benchIO "filter-all-in" (K.filterAllIn 4) K.sourceUnfoldrM
206 , benchIO "take-all" (K.takeAll 4) K.sourceUnfoldrM
207 , benchIO "takeWhile-true" (K.takeWhileTrue 4) K.sourceUnfoldrM
208 , benchIO "drop-one" (K.dropOne 4) K.sourceUnfoldrM
209 , benchIO "drop-all" (K.dropAll 4) K.sourceUnfoldrM
210 , benchIO "dropWhile-true" (K.dropWhileTrue 4) K.sourceUnfoldrM
211 , benchIO "dropWhile-false" (K.dropWhileFalse 4) K.sourceUnfoldrM
212 ]
213 , bgroup "zipping"
214 [ benchIO "zip" K.zip K.sourceUnfoldrM
215 ]
216 , bgroup "mixed"
217 [ benchIO "scan-map" (K.scanMap 1) K.sourceUnfoldrM
218 , benchIO "drop-map" (K.dropMap 1) K.sourceUnfoldrM
219 , benchIO "drop-scan" (K.dropScan 1) K.sourceUnfoldrM
220 , benchIO "take-drop" (K.takeDrop 1) K.sourceUnfoldrM
221 , benchIO "take-scan" (K.takeScan 1) K.sourceUnfoldrM
222 , benchIO "take-map" (K.takeMap 1) K.sourceUnfoldrM
223 , benchIO "filter-drop" (K.filterDrop 1) K.sourceUnfoldrM
224 , benchIO "filter-take" (K.filterTake 1) K.sourceUnfoldrM
225 , benchIO "filter-scan" (K.filterScan 1) K.sourceUnfoldrM
226 , benchIO "filter-map" (K.filterMap 1) K.sourceUnfoldrM
227 ]
228 , bgroup "mixedX2"
229 [ benchIO "scan-map" (K.scanMap 2) K.sourceUnfoldrM
230 , benchIO "drop-map" (K.dropMap 2) K.sourceUnfoldrM
231 , benchIO "drop-scan" (K.dropScan 2) K.sourceUnfoldrM
232 , benchIO "take-drop" (K.takeDrop 2) K.sourceUnfoldrM
233 , benchIO "take-scan" (K.takeScan 2) K.sourceUnfoldrM
234 , benchIO "take-map" (K.takeMap 2) K.sourceUnfoldrM
235 , benchIO "filter-drop" (K.filterDrop 2) K.sourceUnfoldrM
236 , benchIO "filter-take" (K.filterTake 2) K.sourceUnfoldrM
237 , benchIO "filter-scan" (K.filterScan 2) K.sourceUnfoldrM
238 , benchIO "filter-map" (K.filterMap 2) K.sourceUnfoldrM
239 ]
240 , bgroup "mixedX4"
241 [ benchIO "scan-map" (K.scanMap 4) K.sourceUnfoldrM
242 , benchIO "drop-map" (K.dropMap 4) K.sourceUnfoldrM
243 , benchIO "drop-scan" (K.dropScan 4) K.sourceUnfoldrM
244 , benchIO "take-drop" (K.takeDrop 4) K.sourceUnfoldrM
245 , benchIO "take-scan" (K.takeScan 4) K.sourceUnfoldrM
246 , benchIO "take-map" (K.takeMap 4) K.sourceUnfoldrM
247 , benchIO "filter-drop" (K.filterDrop 4) K.sourceUnfoldrM
248 , benchIO "filter-take" (K.filterTake 4) K.sourceUnfoldrM
249 , benchIO "filter-scan" (K.filterScan 4) K.sourceUnfoldrM
250 , benchIO "filter-map" (K.filterMap 4) K.sourceUnfoldrM
251 ]
252 , bgroup "iterated"
253 [ benchK "mapM" K.iterateMapM
254 , benchK "scan(1/10)" K.iterateScan
255 , benchK "filterEven" K.iterateFilterEven
256 , benchK "takeAll" K.iterateTakeAll
257 , benchK "dropOne" K.iterateDropOne
258 , benchK "dropWhileFalse(1/10)" K.iterateDropWhileFalse
259 , benchK "dropWhileTrue" K.iterateDropWhileTrue
260 ]
261 ]
262 ]