@@ -5,7 +5,6 @@ import qualified Data.ByteString.Lazy.Char8 as BL
55import qualified Data.ByteString.Lazy.Internal as BL
66import Control.Monad.Trans (liftIO)
77import Control.Exception (evaluate)
8−import Control.Parallel.Strategies
98import Criterion.Main
109import Data.Char
1110import qualified Codec.Binary.UTF8.Generic as UTF8
@@ -116,7 +115,7 @@ main = do
116115 , bench "bl" $ nf (BL.filter p0) bla
117116 , bench "l" $ nf (L.filter p0) la
118117 ],
119− bgroup "2filter" [
118+ bgroup "filter.filter" [
120119 bench "ts" $ nf (TS.filter p1 . TS.filter p0) tsa
121120 , bench "tl" $ nf (TL.filter p1 . TL.filter p0) tla
122121 , bench "bs" $ nf (BS.filter p1 . BS.filter p0) bsa
@@ -186,21 +185,21 @@ main = do
186185 , bench "bl" $ nf (BL.map f) bla
187186 , bench "l" $ nf (L.map f) la
188187 ],
189− bgroup "2map" [
188+ bgroup "map.map" [
190189 bench "ts" $ nf (TS.map f . TS.map f) tsa
191190 , bench "tl" $ nf (TL.map f . TL.map f) tla
192191 , bench "bs" $ nf (BS.map f . BS.map f) bsa
193192 , bench "bl" $ nf (BL.map f . BL.map f) bla
194193 , bench "l" $ nf (L.map f . L.map f) la
195194 ],
196− bgroup "replicate" [
195+ bgroup "replicate char" [
197196 bench "ts" $ nf (TS.replicate bsa_len) (TS.singleton c)
198197 , bench "tl" $ nf (TL.replicate (fromIntegral bsa_len)) (TL.singleton c)
199198 , bench "bs" $ nf (BS.replicate bsa_len) c
200199 , bench "bl" $ nf (BL.replicate (fromIntegral bsa_len)) c
201200 , bench "l" $ nf (L.replicate bsa_len) c
202201 ],
203− bgroup "2replicate" [
202+ bgroup "replicate string" [
204203 bench "ts" $ nf (TS.replicate (bsa_len `div` TS.length tsw)) tsw
205204 , bench "tl" $ nf (TL.replicate (fromIntegral bsa_len `div` TL.length tlw)) tlw
206205 , bench "l" $ nf (replicat (bsa_len `div` TS.length tsw)) lw
@@ -283,7 +282,7 @@ main = do
283282 , bench "bl" $ nf (BL.length . BL.filter p0) bla
284283 , bench "l" $ nf (L.length . L.filter p0) la
285284 ],
286− bgroup "2filter" [
285+ bgroup "filter.filter" [
287286 bench "ts" $ nf (TS.length . TS.filter p1 . TS.filter p0) tsa
288287 , bench "tl" $ nf (TL.length . TL.filter p1 . TL.filter p0) tla
289288 , bench "bs" $ nf (BS.length . BS.filter p1 . BS.filter p0) bsa
@@ -318,20 +317,20 @@ main = do
318317 , bench "bl" $ nf (BL.length . BL.map f) bla
319318 , bench "l" $ nf (L.length . L.map f) la
320319 ],
321− bgroup "2map" [
320+ bgroup "map.map" [
322321 bench "ts" $ nf (TS.length . TS.map f . TS.map f) tsa
323322 , bench "tl" $ nf (TL.length . TL.map f . TL.map f) tla
324323 , bench "bs" $ nf (BS.length . BS.map f . BS.map f) bsa
325324 , bench "l" $ nf (L.length . L.map f . L.map f) la
326325 ],
327− bgroup "replicate" [
326+ bgroup "replicate char" [
328327 bench "ts" $ nf (TS.length . TS.replicate bsa_len) (TS.singleton c)
329328 , bench "tl" $ nf (TL.length . TL.replicate (fromIntegral bsa_len)) (TL.singleton c)
330329 , bench "bs" $ nf (BS.length . BS.replicate bsa_len) c
331330 , bench "bl" $ nf (BL.length . BL.replicate (fromIntegral bsa_len)) c
332331 , bench "l" $ nf (L.length . L.replicate bsa_len) c
333332 ],
334− bgroup "2replicate" [
333+ bgroup "replicate string" [
335334 bench "ts" $ nf (TS.length . TS.replicate (bsa_len `div` TS.length tsw)) tsw
336335 , bench "tl" $ nf (TL.length . TL.replicate (fromIntegral bsa_len `div` TL.length tlw)) tlw
337336 , bench "l" $ nf (L.length . replicat (bsa_len `div` TS.length tsw)) lw