379732d · streamly · git.iko.soy

benchmark/Chart.hs+5−3

compare with master

unifiedsplit

@@ -295,14 +295,16 @@ showStreamK Options{..} cfg inp out =

295-- text reports

296------------------------------------------------------------------------------

297

298+selectBench

298−selectBench :: (SortColumn -> Either String [(String, Double)]) -> [String]

299+ :: (SortColumn -> Maybe GroupStyle -> Either String [(String, Double)])

300+ -> [String]

299selectBench f =

301selectBench f =

300 reverse

302 reverse

301 $ fmap fst

303 $ fmap fst

302 $ either

304 $ either

303− (const $ either error (sortOn snd) $ f $ ColumnIndex 0)

305+ (const $ either error (sortOn snd) $ f (ColumnIndex 0) (Just PercentDiff))

304 (sortOn snd)

306 (sortOn snd)

305− $ f $ ColumnIndex 1

307+ $ f (ColumnIndex 1) (Just PercentDiff)

306

308

307benchShow Options{..} cfg func inp out =

309benchShow Options{..} cfg func inp out =

308 if genGraphs

310 if genGraphs

benchmark/NanoBenchmarks.hs+2−1

@@ -12,6 +12,7 @@ import Streamly.SVar (MonadAsync)

12import qualified Streamly.Memory.Array as A

13import qualified Streamly.FileSystem.Handle as FH

14import qualified Streamly.Fold as FL

15+import qualified Streamly.Internal as Internal

15import qualified Streamly.Prelude as S

16import qualified Streamly.Prelude as S

16import qualified Streamly.Streams.StreamK as K

17import qualified Streamly.Streams.StreamK as K

17

18

@@ -110,7 +111,7 @@ main = do

110

111

111 inText <- openFile "benchmark/text-processing/gutenberg-500.txt" ReadMode

112 inText <- openFile "benchmark/text-processing/gutenberg-500.txt" ReadMode

112 defaultMain [mkBenchText "splitOn abc...xyz" inText $ do

113 defaultMain [mkBenchText "splitOn abc...xyz" inText $ do

113− (S.length $ FL.splitOn (A.fromList $ map (fromIntegral . ord)

114+ (S.length $ Internal.splitOnSeq (A.fromList $ map (fromIntegral . ord)

114 "abcdefghijklmnopqrstuvwxyz") FL.drain

115 "abcdefghijklmnopqrstuvwxyz") FL.drain

115 $ FH.read inText) >>= print

116 $ FH.read inText) >>= print

116 ]

117 ]

streamly.cabal+1−1

@@ -757,7 +757,7 @@ executable chart

757 buildable: True

758 build-Depends:

759 base >= 4.8 && < 5

760− , bench-show >= 0.2 && < 0.3

760+ , bench-show >= 0.3 && < 0.4

761 , split

762 , transformers >= 0.4 && < 0.6

763 else