git.iko.soy/text
on master help sign in
Many new benchmarks.
b71b17eBryan O'Sullivan
tests/Benchmarks.hs+49
compare with master
unifiedsplit
@@ -78,6 +78,13 @@ main = do
78 , bench "bl" $ nf BL.concat bll
78 , bench "bl" $ nf BL.concat bll
79 , bench "l" $ nf L.concat ll
79 , bench "l" $ nf L.concat ll
80 ],
80 ],
81+ bgroup "cons" [
82+ bench "ts" $ nf (TS.cons c) tsa
83+ , bench "tl" $ nf (TL.cons c) tla
84+ , bench "bs" $ nf (BS.cons c) bsa
85+ , bench "bl" $ nf (BL.cons c) bla
86+ , bench "l" $ nf (c:) la
87+ ],
81 bgroup "concatMap" [
88 bgroup "concatMap" [
82 bench "ts" $ nf (TS.concatMap (TS.replicate 3 . TS.singleton)) tsa
89 bench "ts" $ nf (TS.concatMap (TS.replicate 3 . TS.singleton)) tsa
83 , bench "tl" $ nf (TL.concatMap (TL.replicate 3 . TL.singleton)) tla
90 , bench "tl" $ nf (TL.concatMap (TL.replicate 3 . TL.singleton)) tla
@@ -127,6 +134,20 @@ main = do
127 , bench "bl" $ nf (L.length . BL.foldr (:) []) bla
134 , bench "bl" $ nf (L.length . BL.foldr (:) []) bla
128 , bench "l" $ nf (L.length . L.foldr (:) []) la
135 , bench "l" $ nf (L.length . L.foldr (:) []) la
129 ],
136 ],
137+ bgroup "head" [
138+ bench "ts" $ nf TS.head tsa
139+ , bench "tl" $ nf TL.head tla
140+ , bench "bs" $ nf BS.head bsa
141+ , bench "bl" $ nf BL.head bla
142+ , bench "l" $ nf L.head la
143+ ],
144+ bgroup "init" [
145+ bench "ts" $ nf TS.init tsa
146+ , bench "tl" $ nf TL.init tla
147+ , bench "bs" $ nf BS.init bsa
148+ , bench "bl" $ nf BL.init bla
149+ , bench "l" $ nf L.init la
150+ ],
130 bgroup "intercalate" [
151 bgroup "intercalate" [
131 bench "ts" $ nf (TS.intercalate tsw) tsl
152 bench "ts" $ nf (TS.intercalate tsw) tsl
132 , bench "tl" $ nf (TL.intercalate tlw) tll
153 , bench "tl" $ nf (TL.intercalate tlw) tll
@@ -183,6 +204,13 @@ main = do
183 , bench "bl" $ nf (BL.take (bla_len `div` 3)) bla
204 , bench "bl" $ nf (BL.take (bla_len `div` 3)) bla
184 , bench "l" $ nf (L.take (la_len `div` 3)) la
205 , bench "l" $ nf (L.take (la_len `div` 3)) la
185 ],
206 ],
207+ bgroup "tail" [
208+ bench "ts" $ nf TS.tail tsa
209+ , bench "tl" $ nf TL.tail tla
210+ , bench "bs" $ nf BS.tail bsa
211+ , bench "bl" $ nf BL.tail bla
212+ , bench "l" $ nf L.tail la
213+ ],
186 bgroup "words" [
214 bgroup "words" [
187 bench "ts" $ nf TS.words tsa
215 bench "ts" $ nf TS.words tsa
188 , bench "tl" $ nf TL.words tla
216 , bench "tl" $ nf TL.words tla
@@ -198,6 +226,13 @@ main = do
198 , bench "l" $ nf (L.zipWith min lb) la
226 , bench "l" $ nf (L.zipWith min lb) la
199 ],
227 ],
200 bgroup "length" [
228 bgroup "length" [
229+ bgroup "cons" [
230+ bench "ts" $ nf (TS.length . TS.cons c) tsa
231+ , bench "tl" $ nf (TL.length . TL.cons c) tla
232+ , bench "bs" $ nf (BS.length . BS.cons c) bsa
233+ , bench "bl" $ nf (BL.length . BL.cons c) bla
234+ , bench "l" $ nf (L.length . (:) c) la
235+ ],
201 bgroup "decode" [
236 bgroup "decode" [
202 bench "ts" $ nf (TS.length . TS.decodeUtf8) bsa
237 bench "ts" $ nf (TS.length . TS.decodeUtf8) bsa
203 , bench "tl" $ nf (TL.length . TL.decodeUtf8) bla
238 , bench "tl" $ nf (TL.length . TL.decodeUtf8) bla
@@ -226,6 +261,13 @@ main = do
226 , bench "bl" $ nf (BL.length . BL.filter p1 . BL.filter p0) bla
261 , bench "bl" $ nf (BL.length . BL.filter p1 . BL.filter p0) bla
227 , bench "l" $ nf (L.length . L.filter p1 . L.filter p0) la
262 , bench "l" $ nf (L.length . L.filter p1 . L.filter p0) la
228 ],
263 ],
264+ bgroup "init" [
265+ bench "ts" $ nf (TS.length . TS.init) tsa
266+ , bench "tl" $ nf (TL.length . TL.init) tla
267+ , bench "bs" $ nf (BS.length . BS.init) bsa
268+ , bench "bl" $ nf (BL.length . BL.init) bla
269+ , bench "l" $ nf (L.length . L.init) la
270+ ],
229 bgroup "intercalate" [
271 bgroup "intercalate" [
230 bench "ts" $ nf (TS.length . TS.intercalate tsw) tsl
272 bench "ts" $ nf (TS.length . TS.intercalate tsw) tsl
231 , bench "tl" $ nf (TL.length . TL.intercalate tlw) tll
273 , bench "tl" $ nf (TL.length . TL.intercalate tlw) tll
@@ -260,6 +302,13 @@ main = do
260 , bench "bl" $ nf (BL.length . BL.take (bla_len `div` 3)) bla
302 , bench "bl" $ nf (BL.length . BL.take (bla_len `div` 3)) bla
261 , bench "l" $ nf (L.length . L.take (la_len `div` 3)) la
303 , bench "l" $ nf (L.length . L.take (la_len `div` 3)) la
262 ],
304 ],
305+ bgroup "tail" [
306+ bench "ts" $ nf (TS.length . TS.tail) tsa
307+ , bench "tl" $ nf (TL.length . TL.tail) tla
308+ , bench "bs" $ nf (BS.length . BS.tail) bsa
309+ , bench "bl" $ nf (BL.length . BL.tail) bla
310+ , bench "l" $ nf (L.length . L.tail) la
311+ ],
263 bgroup "words" [
312 bgroup "words" [
264 bench "ts" $ nf (L.length . TS.words) tsa
313 bench "ts" $ nf (L.length . TS.words) tsa
265 , bench "tl" $ nf (L.length . TL.words) tla
314 , bench "tl" $ nf (L.length . TL.words) tla