composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-19 23:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Move stream filtering into a seperate group in unfold benchmarks

Browse Source
This commit is contained in:
adithyaov 2020-10-23 09:59:19 +05:30 committed by Adithya Kumar
parent b5da56a18c
commit d3f290b7b3
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
benchmark/Streamly/Benchmark/Data/Unfold.hs
View File

@ -277,6 +277,10 @@ mapMWithInput size start =
(UF.mapMWithInput (\a b -> return $ a + b))
start
-------------------------------------------------------------------------------
-- Stream filtering
-------------------------------------------------------------------------------
{-# INLINE takeWhileM #-}
takeWhileM :: Monad m => Int -> Int -> m ()
takeWhileM size start =
@ -462,7 +466,14 @@ o_1_space_transformation size =
[ benchIO "map" $ map size
, benchIO "mapM" $ mapM size
, benchIO "mapMWithInput" $ mapMWithInput size
, benchIO "takeWhileM" $ takeWhileM size
]
]
o_1_space_filtering :: Int -> [Benchmark]
o_1_space_filtering size =
[ bgroup
"filtering"
[ benchIO "takeWhileM" $ takeWhileM size
, benchIO "takeWhile" $ takeWhile size
, benchIO "take" $ take size
, benchIO "filter" $ filter size
@ -532,6 +543,7 @@ main = do
[ o_1_space_transformation_input size
, o_1_space_generation size
, o_1_space_transformation size
, o_1_space_filtering size
, o_1_space_zip size
, o_1_space_nested size
]