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

Reclassify concatPairWith benchmarks under o-n-space

Browse Source
This commit is contained in:
Adithya Kumar 2021-11-19 13:49:04 +05:30
parent 7dcc5699ff
commit c3620cf008
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/Prelude/Serial/NestedStream.hs
View File

@ -303,11 +303,22 @@ o_1_space_concat value = sqrtVal `seq`
(concatMapRepl sqrtVal sqrtVal)
, benchIOSrc1 "unfoldManyRepl (sqrt n of sqrt n)"
(unfoldManyRepl sqrtVal sqrtVal)
]
]
where
sqrtVal = round $ sqrt (fromIntegral value :: Double)
o_n_space_concat :: Int -> [Benchmark]
o_n_space_concat value = sqrtVal `seq`
[ bgroup "concat"
[
-------------------concatPairsWith-----------------
-- Use large number of streams to check scalability
, benchIOSrc1 "concatPairWithSerial (n of 1)"
benchIOSrc1 "concatPairWithSerial (n of 1)"
(concatPairWithSerial value 1)
, benchIOSrc1 "concatPairWithSerial (sqrtVal of sqrtVal)"
(concatPairWithSerial sqrtVal sqrtVal)
@ -427,5 +438,6 @@ benchmarks moduleName size =
-- multi-stream
o_n_space_applicative size
, o_n_space_monad size
, o_n_space_concat size
]
]