git.iko.soy/streamly
on master help sign in
Add consumeMany benchmark
3201dc8Harendra Kumar
benchmark/Streamly/Benchmark/Prelude/Serial/NestedFold.hs+9
compare with master
unifiedsplit
@@ -141,6 +141,14 @@ foldMany =
141 . Internal.foldMany (FL.take 2 FL.mconcat)
141 . Internal.foldMany (FL.take 2 FL.mconcat)
142 . S.map Sum
142 . S.map Sum
143
143
144+{-# INLINE consumeMany #-}
145+consumeMany :: Monad m => SerialT m Int -> m ()
146+consumeMany =
147+ S.drain
148+ . S.map getSum
149+ . Internal.consumeMany (Consumer.take 2 Consumer.sconcat) (return mempty)
150+ . S.map Sum
151+
144{-# INLINE foldIterateM #-}
152{-# INLINE foldIterateM #-}
145foldIterateM :: Monad m => SerialT m Int -> m ()
153foldIterateM :: Monad m => SerialT m Int -> m ()
146foldIterateM =
154foldIterateM =
@@ -169,6 +177,7 @@ o_1_space_grouping value =
169 , benchIOSink value "groupsByRollingLT" groupsByRollingLT
177 , benchIOSink value "groupsByRollingLT" groupsByRollingLT
170 , benchIOSink value "groupsByRollingEq" groupsByRollingEq
178 , benchIOSink value "groupsByRollingEq" groupsByRollingEq
171 , benchIOSink value "foldMany" foldMany
179 , benchIOSink value "foldMany" foldMany
180+ , benchIOSink value "consumeMany" consumeMany
172 , benchIOSink value "foldIterateM" foldIterateM
181 , benchIOSink value "foldIterateM" foldIterateM
173 , benchIOSink value "consumeIterateM" consumeIterateM
182 , benchIOSink value "consumeIterateM" consumeIterateM
174 ]
183 ]