git.iko.soy/streamly
on master help sign in
Add benchmarks for fromIndices and fromIndicesM.
218b48aPranay Sashank
benchmark/LinearOps.hs+8
compare with master
unifiedsplit
@@ -85,6 +85,14 @@ sourceFromList n = S.fromList [n..n+value]
85sourceFromListM :: (S.MonadAsync m, S.IsStream t) => Int -> t m Int
85sourceFromListM :: (S.MonadAsync m, S.IsStream t) => Int -> t m Int
86sourceFromListM n = S.fromListM (Prelude.fmap return [n..n+value])
86sourceFromListM n = S.fromListM (Prelude.fmap return [n..n+value])
87
87
88+{-# INLINE sourceFromIndices #-}
89+sourceFromIndices :: (Monad m, S.IsStream t) => Int -> t m Int
90+sourceFromIndices n = S.take value $ S.fromIndices (+ n)
91+
92+{-# INLINE sourceFromIndicesM #-}
93+sourceFromIndicesM :: (S.MonadAsync m, S.IsStream t) => Int -> t m Int
94+sourceFromIndicesM n = S.take value $ S.fromIndicesM (Prelude.fmap return (+ n))
95+
88{-# INLINE sourceFromFoldable #-}
96{-# INLINE sourceFromFoldable #-}
89sourceFromFoldable :: S.IsStream t => Int -> t m Int
97sourceFromFoldable :: S.IsStream t => Int -> t m Int
90sourceFromFoldable n = S.fromFoldable [n..n+value]
98sourceFromFoldable n = S.fromFoldable [n..n+value]