@@ -8,7 +8,6 @@
8{-# LANGUAGE CPP #-}
8{-# LANGUAGE CPP #-}
9{-# LANGUAGE FlexibleContexts #-}
9{-# LANGUAGE FlexibleContexts #-}
10{-# LANGUAGE ScopedTypeVariables #-}
10{-# LANGUAGE ScopedTypeVariables #-}
11−{-# OPTIONS_GHC -Wno-orphans #-}
13#ifdef __HADDOCK_VERSION__
12#ifdef __HADDOCK_VERSION__
14#undef INSPECTION
13#undef INSPECTION
@@ -21,23 +20,19 @@
22module Main (main) where
21module Main (main) where
24−#if !MIN_VERSION_base(4,18,0)
25−import Control.Applicative (liftA2)
27import Control.Monad (when)
23import Control.Monad (when)
28import Data.Maybe (isJust)
24import Data.Maybe (isJust)
29import System.Random (randomRIO)
25import System.Random (randomRIO)
30import Prelude hiding
26import Prelude hiding
31− ( Foldable(..), tail, mapM_, last, map, mapM, concatMap, zipWith, init, iterate
27+ (tail, mapM_, foldl, last, map, mapM, concatMap, zip, init)
35import qualified Prelude as P
29import qualified Prelude as P
36import qualified Data.List as List
30import qualified Data.List as List
38−import qualified Streamly.Internal.Data.StreamK as S
32+import qualified Streamly.Internal.Data.Stream.StreamK as S
33+import qualified Streamly.Internal.Data.SVar as S
40−import Test.Tasty.Bench (bench, nfIO, bgroup, Benchmark, defaultMain)
35+import Gauge (bench, nfIO, bgroup, Benchmark, defaultMain)
42import Streamly.Benchmark.Common
37import Streamly.Benchmark.Common
@@ -45,161 +40,95 @@ import Streamly.Benchmark.Common
45import Test.Inspection
40import Test.Inspection
48−{-
43+value, value2, value3, value16, maxValue :: Int
50−Benchmarks that need to be added
45+value2 = round (P.fromIntegral value**(1/2::P.Double)) -- double nested loop
51−
46+value3 = round (P.fromIntegral value**(1/3::P.Double)) -- triple nested loop
52−-- fromList
47+value16 = round (P.fromIntegral value**(1/16::P.Double)) -- triple nested loop
109−-- toStreamK (Probably can be skipped)
116-------------------------------------------------------------------------------
50-------------------------------------------------------------------------------
117-- Stream generation and elimination
51-- Stream generation and elimination
118-------------------------------------------------------------------------------
52-------------------------------------------------------------------------------
120−type Stream m a = S.StreamK m a
54+type Stream m a = S.Stream m a
56+{-# INLINE sourceUnfoldr #-}
57+sourceUnfoldr :: Int -> Stream m Int
58+sourceUnfoldr n = S.unfoldr step n
63+ else Just (cnt, cnt + 1)
122−{-# INLINE unfoldr #-}
65+{-# INLINE sourceUnfoldrN #-}
123−unfoldr :: Int -> Int -> Stream m Int
66+sourceUnfoldrN :: Int -> Int -> Stream m Int
124−unfoldr streamLen n = S.unfoldr step n
67+sourceUnfoldrN m n = S.unfoldr step n
126 step cnt =
69 step cnt =
127− if cnt > n + streamLen
70+ if cnt > n + m
128 then Nothing
71 then Nothing
129 else Just (cnt, cnt + 1)
72 else Just (cnt, cnt + 1)
131−{-# INLINE unfoldrM #-}
74+{-# INLINE sourceUnfoldrM #-}
132−unfoldrM :: Monad m => Int -> Int -> Stream m Int
75+sourceUnfoldrM :: S.MonadAsync m => Int -> Stream m Int
133−unfoldrM streamLen n = S.unfoldrMWith S.consM step n
76+sourceUnfoldrM n = S.unfoldrM step n
135 step cnt =
78 step cnt =
136− if cnt > n + streamLen
79+ if cnt > n + value
137 then return Nothing
80 then return Nothing
138 else return (Just (cnt, cnt + 1))
81 else return (Just (cnt, cnt + 1))
140−{-# INLINE repeat #-}
83+{-# INLINE sourceUnfoldrMN #-}
141−repeat :: Int -> Int -> Stream m Int
142−repeat streamLen = S.take streamLen . S.repeat
144−{-# INLINE repeatM #-}
145−repeatM :: Monad m => Int -> Int -> Stream m Int
84+sourceUnfoldrMN :: S.MonadAsync m => Int -> Int -> Stream m Int
146−repeatM streamLen = S.take streamLen . S.repeatM . return
85+sourceUnfoldrMN m n = S.unfoldrM step n
148−{-# INLINE replicate #-}
87+ step cnt =
149−replicate :: Int -> Int -> Stream m Int
88+ if cnt > n + m
150−replicate = S.replicate
89+ then return Nothing
151−
90+ else return (Just (cnt, cnt + 1))
152−{-# INLINE replicateM #-}
153−replicateM :: Monad m => Int -> Int -> Stream m Int
154−replicateM streamLen = S.replicateMWith S.consM streamLen . return
156−{-# INLINE iterate #-}
92+{-# INLINE sourceFromFoldable #-}
157−iterate :: Int -> Int -> Stream m Int
93+sourceFromFoldable :: Int -> Stream m Int
158−iterate streamLen = S.take streamLen . S.iterate (+1)
94+sourceFromFoldable n = S.fromFoldable [n..n+value]
160−{-# INLINE iterateM #-}
96+{-# INLINE sourceFromFoldableM #-}
161−iterateM :: Monad m => Int -> Int -> Stream m Int
97+sourceFromFoldableM :: S.MonadAsync m => Int -> Stream m Int
162−iterateM streamLen = S.take streamLen . S.iterateM (return . (+1)) . return
98+sourceFromFoldableM n =
99+ Prelude.foldr S.consM S.nil (Prelude.fmap return [n..n+value])
164−{-# INLINE fromFoldable #-}
101+{-# INLINABLE concatMapFoldableWith #-}
165−fromFoldable :: Int -> Int -> Stream m Int
102+concatMapFoldableWith :: (S.IsStream t, Foldable f)
166−fromFoldable streamLen n = S.fromFoldable [n..n+streamLen]
103+ => (t m b -> t m b -> t m b) -> (a -> t m b) -> f a -> t m b
104+concatMapFoldableWith f g = Prelude.foldr (f . g) S.nil
168−{-# INLINE fromFoldableM #-}
106+{-# INLINE sourceFoldMapWith #-}
169−fromFoldableM :: Monad m => Int -> Int -> Stream m Int
107+sourceFoldMapWith :: Int -> Stream m Int
170−fromFoldableM streamLen n =
108+sourceFoldMapWith n = concatMapFoldableWith S.serial S.yield [n..n+value]
171− List.foldr S.consM S.nil (Prelude.fmap return [n..n+streamLen])
173−{-# INLINABLE concatMapFoldableWith #-}
110+{-# INLINE sourceFoldMapWithM #-}
174−concatMapFoldableWith :: P.Foldable f
175− => (Stream m b -> Stream m b -> Stream m b)
176− -> (a -> Stream m b)
179−concatMapFoldableWith f g = P.foldr (f . g) S.nil
181−{-# INLINE concatMapFoldableSerial #-}
182−concatMapFoldableSerial :: Int -> Int -> Stream m Int
183−concatMapFoldableSerial streamLen n =
184− concatMapFoldableWith S.append S.fromPure [n..n+streamLen]
186−{-# INLINE concatMapFoldableSerialM #-}
187−concatMapFoldableSerialM :: Monad m => Int -> Int -> Stream m Int
111+sourceFoldMapWithM :: Monad m => Int -> Stream m Int
188−concatMapFoldableSerialM streamLen n =
112+sourceFoldMapWithM n =
189− concatMapFoldableWith S.append (S.fromEffect . return) [n..n+streamLen]
113+ concatMapFoldableWith S.serial (S.yieldM . return) [n..n+value]
191-------------------------------------------------------------------------------
115-------------------------------------------------------------------------------
192-- Elimination
116-- Elimination
193-------------------------------------------------------------------------------
117-------------------------------------------------------------------------------
195−{-# INLINE drain #-}
119+{-# INLINE runStream #-}
196−drain :: Monad m => Stream m a -> m ()
120+runStream :: Monad m => Stream m a -> m ()
197−drain = S.drain
121+runStream = S.drain
122+-- runStream = S.mapM_ (\_ -> return ())
199{-# INLINE mapM_ #-}
124{-# INLINE mapM_ #-}
200mapM_ :: Monad m => Stream m a -> m ()
125mapM_ :: Monad m => Stream m a -> m ()
201mapM_ = S.mapM_ (\_ -> return ())
126mapM_ = S.mapM_ (\_ -> return ())
128+{-# INLINE toNull #-}
129+toNull :: Monad m => Stream m Int -> m ()
203{-# INLINE uncons #-}
132{-# INLINE uncons #-}
204uncons :: Monad m => Stream m Int -> m ()
133uncons :: Monad m => Stream m Int -> m ()
205uncons s = do
134uncons s = do
@@ -209,13 +138,13 @@ uncons s = do
209 Just (_, t) -> uncons t
138 Just (_, t) -> uncons t
211{-# INLINE init #-}
140{-# INLINE init #-}
212−init :: Monad m => Stream m a -> m ()
141+init :: (Monad m, S.IsStream t) => t m a -> m ()
213init s = do
142init s = do
214 t <- S.init s
143 t <- S.init s
215 P.mapM_ S.drain t
144 P.mapM_ S.drain t
217{-# INLINE tail #-}
146{-# INLINE tail #-}
218−tail :: Monad m => Stream m a -> m ()
147+tail :: (Monad m, S.IsStream t) => t m a -> m ()
219tail s = S.tail s >>= P.mapM_ tail
148tail s = S.tail s >>= P.mapM_ tail
221{-# INLINE nullTail #-}
150{-# INLINE nullTail #-}
@@ -234,9 +163,9 @@ headTail s = do
234toList :: Monad m => Stream m Int -> m [Int]
163toList :: Monad m => Stream m Int -> m [Int]
235toList = S.toList
164toList = S.toList
237−{-# INLINE foldl' #-}
166+{-# INLINE foldl #-}
238−foldl' :: Monad m => Stream m Int -> m Int
167+foldl :: Monad m => Stream m Int -> m Int
239−foldl' = S.foldl' (+) 0
168+foldl = S.foldl' (+) 0
241{-# INLINE last #-}
170{-# INLINE last #-}
242last :: Monad m => Stream m Int -> m (Maybe Int)
171last :: Monad m => Stream m Int -> m (Maybe Int)
@@ -246,36 +175,40 @@ last = S.last
246-- Transformation
175-- Transformation
247-------------------------------------------------------------------------------
176-------------------------------------------------------------------------------
178+{-# INLINE transform #-}
179+transform :: Monad m => Stream m a -> m ()
180+transform = runStream
249{-# INLINE composeN #-}
182{-# INLINE composeN #-}
251 :: Monad m
184 :: Monad m
252 => Int -> (Stream m Int -> Stream m Int) -> Stream m Int -> m ()
185 => Int -> (Stream m Int -> Stream m Int) -> Stream m Int -> m ()
253composeN n f =
186composeN n f =
254 case n of
187 case n of
255− 1 -> drain . f
188+ 1 -> transform . f
256− 2 -> drain . f . f
189+ 2 -> transform . f . f
257− 3 -> drain . f . f . f
190+ 3 -> transform . f . f . f
258− 4 -> drain . f . f . f . f
191+ 4 -> transform . f . f . f . f
259 _ -> undefined
192 _ -> undefined
261−{-# INLINE scanl' #-}
194+{-# INLINE scan #-}
262−scanl' :: Monad m => Int -> Stream m Int -> m ()
195+scan :: Monad m => Int -> Stream m Int -> m ()
263−scanl' n = composeN n $ S.scanl' (+) 0
196+scan n = composeN n $ S.scanl' (+) 0
265{-# INLINE map #-}
198{-# INLINE map #-}
266map :: Monad m => Int -> Stream m Int -> m ()
199map :: Monad m => Int -> Stream m Int -> m ()
267−map n = composeN n $ S.map (+ 1)
200+map n = composeN n $ P.fmap (+ 1)
269{-# INLINE fmapK #-}
202{-# INLINE fmapK #-}
270fmapK :: Monad m => Int -> Stream m Int -> m ()
203fmapK :: Monad m => Int -> Stream m Int -> m ()
271fmapK n = composeN n $ P.fmap (+ 1)
204fmapK n = composeN n $ P.fmap (+ 1)
273{-# INLINE mapM #-}
206{-# INLINE mapM #-}
274−mapM :: Monad m => Int -> Stream m Int -> m ()
207+mapM :: S.MonadAsync m => Int -> Stream m Int -> m ()
275−mapM n = composeN n $ S.mapMWith S.consM return
208+mapM n = composeN n $ S.mapM return
277{-# INLINE mapMSerial #-}
210{-# INLINE mapMSerial #-}
278−mapMSerial :: Monad m => Int -> Stream m Int -> m ()
211+mapMSerial :: S.MonadAsync m => Int -> Stream m Int -> m ()
279mapMSerial n = composeN n $ S.mapMSerial return
212mapMSerial n = composeN n $ S.mapMSerial return
281{-# INLINE filterEven #-}
214{-# INLINE filterEven #-}
@@ -283,36 +216,36 @@ filterEven :: Monad m => Int -> Stream m Int -> m ()
283filterEven n = composeN n $ S.filter even
216filterEven n = composeN n $ S.filter even
285{-# INLINE filterAllOut #-}
218{-# INLINE filterAllOut #-}
286−filterAllOut :: Monad m => Int -> Int -> Stream m Int -> m ()
219+filterAllOut :: Monad m => Int -> Stream m Int -> m ()
287−filterAllOut streamLen n = composeN n $ S.filter (> streamLen)
220+filterAllOut n = composeN n $ S.filter (> maxValue)
289{-# INLINE filterAllIn #-}
222{-# INLINE filterAllIn #-}
290−filterAllIn :: Monad m => Int -> Int -> Stream m Int -> m ()
223+filterAllIn :: Monad m => Int -> Stream m Int -> m ()
291−filterAllIn streamLen n = composeN n $ S.filter (<= streamLen)
224+filterAllIn n = composeN n $ S.filter (<= maxValue)
293{-# INLINE _takeOne #-}
226{-# INLINE _takeOne #-}
294_takeOne :: Monad m => Int -> Stream m Int -> m ()
227_takeOne :: Monad m => Int -> Stream m Int -> m ()
295_takeOne n = composeN n $ S.take 1
228_takeOne n = composeN n $ S.take 1
297{-# INLINE takeAll #-}
230{-# INLINE takeAll #-}
298−takeAll :: Monad m => Int -> Int -> Stream m Int -> m ()
231+takeAll :: Monad m => Int -> Stream m Int -> m ()
299−takeAll streamLen n = composeN n $ S.take streamLen
232+takeAll n = composeN n $ S.take maxValue
301{-# INLINE takeWhileTrue #-}
234{-# INLINE takeWhileTrue #-}
302−takeWhileTrue :: Monad m => Int -> Int -> Stream m Int -> m ()
235+takeWhileTrue :: Monad m => Int -> Stream m Int -> m ()
303−takeWhileTrue streamLen n = composeN n $ S.takeWhile (<= streamLen)
236+takeWhileTrue n = composeN n $ S.takeWhile (<= maxValue)
305{-# INLINE dropOne #-}
238{-# INLINE dropOne #-}
306dropOne :: Monad m => Int -> Stream m Int -> m ()
239dropOne :: Monad m => Int -> Stream m Int -> m ()
307dropOne n = composeN n $ S.drop 1
240dropOne n = composeN n $ S.drop 1
309{-# INLINE dropAll #-}
242{-# INLINE dropAll #-}
310−dropAll :: Monad m => Int -> Int -> Stream m Int -> m ()
243+dropAll :: Monad m => Int -> Stream m Int -> m ()
311−dropAll streamLen n = composeN n $ S.drop streamLen
244+dropAll n = composeN n $ S.drop maxValue
313{-# INLINE dropWhileTrue #-}
246{-# INLINE dropWhileTrue #-}
314−dropWhileTrue :: Monad m => Int -> Int -> Stream m Int -> m ()
247+dropWhileTrue :: Monad m => Int -> Stream m Int -> m ()
315−dropWhileTrue streamLen n = composeN n $ S.dropWhile (<= streamLen)
248+dropWhileTrue n = composeN n $ S.dropWhile (<= maxValue)
317{-# INLINE dropWhileFalse #-}
250{-# INLINE dropWhileFalse #-}
318dropWhileFalse :: Monad m => Int -> Stream m Int -> m ()
251dropWhileFalse :: Monad m => Int -> Stream m Int -> m ()
@@ -327,76 +260,64 @@ foldlS :: Monad m => Int -> Stream m Int -> m ()
327foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
260foldlS n = composeN n $ S.foldlS (flip S.cons) S.nil
329{-# INLINE intersperse #-}
262{-# INLINE intersperse #-}
330−intersperse :: Monad m => Int -> Int -> Stream m Int -> m ()
263+intersperse :: S.MonadAsync m => Int -> Stream m Int -> m ()
331−intersperse streamLen n = composeN n $ S.intersperse streamLen
264+intersperse n = composeN n $ S.intersperse maxValue
333-------------------------------------------------------------------------------
266-------------------------------------------------------------------------------
334-- Iteration
267-- Iteration
335-------------------------------------------------------------------------------
268-------------------------------------------------------------------------------
270+iterStreamLen, maxIters :: Int
337{-# INLINE iterateSource #-}
274{-# INLINE iterateSource #-}
338iterateSource
275iterateSource
339− :: Monad m => Int -> (Stream m Int -> Stream m Int) -> Int -> Int -> Stream m Int
277+ => (Stream m Int -> Stream m Int) -> Int -> Int -> Stream m Int
340−iterateSource iterStreamLen g i n = f i (unfoldrM iterStreamLen n)
278+iterateSource g i n = f i (sourceUnfoldrMN iterStreamLen n)
342 f (0 :: Int) m = g m
280 f (0 :: Int) m = g m
343 f x m = g (f (x P.- 1) m)
281 f x m = g (f (x P.- 1) m)
345-- this is quadratic
283-- this is quadratic
346{-# INLINE iterateScan #-}
284{-# INLINE iterateScan #-}
347−iterateScan :: Monad m => Int -> Int -> Int -> Stream m Int
285+iterateScan :: S.MonadAsync m => Int -> Stream m Int
348−iterateScan iterStreamLen maxIters =
349− iterateSource iterStreamLen (S.scanl' (+) 0) (maxIters `div` 10)
286+iterateScan = iterateSource (S.scanl' (+) 0) (maxIters `div` 10)
351-- this is quadratic
288-- this is quadratic
352{-# INLINE iterateDropWhileFalse #-}
289{-# INLINE iterateDropWhileFalse #-}
353−iterateDropWhileFalse :: Monad m => Int -> Int -> Int -> Int -> Stream m Int
290+iterateDropWhileFalse :: S.MonadAsync m => Int -> Stream m Int
354−iterateDropWhileFalse streamLen iterStreamLen maxIters =
291+iterateDropWhileFalse =
355− iterateSource iterStreamLen (S.dropWhile (> streamLen)) (maxIters `div` 10)
292+ iterateSource (S.dropWhile (> maxValue)) (maxIters `div` 10)
357{-# INLINE iterateMapM #-}
294{-# INLINE iterateMapM #-}
358−iterateMapM :: Monad m => Int -> Int -> Int -> Stream m Int
295+iterateMapM :: S.MonadAsync m => Int -> Stream m Int
359−iterateMapM iterStreamLen =
360− iterateSource iterStreamLen (S.mapMWith S.consM return)
296+iterateMapM = iterateSource (S.mapM return) maxIters
362{-# INLINE iterateFilterEven #-}
298{-# INLINE iterateFilterEven #-}
363−iterateFilterEven :: Monad m => Int -> Int -> Int -> Stream m Int
299+iterateFilterEven :: S.MonadAsync m => Int -> Stream m Int
364−iterateFilterEven iterStreamLen = iterateSource iterStreamLen (S.filter even)
300+iterateFilterEven = iterateSource (S.filter even) maxIters
366{-# INLINE iterateTakeAll #-}
302{-# INLINE iterateTakeAll #-}
367−iterateTakeAll :: Monad m => Int -> Int -> Int -> Int -> Stream m Int
303+iterateTakeAll :: S.MonadAsync m => Int -> Stream m Int
368−iterateTakeAll streamLen iterStreamLen =
369− iterateSource iterStreamLen (S.take streamLen)
304+iterateTakeAll = iterateSource (S.take maxValue) maxIters
371{-# INLINE iterateDropOne #-}
306{-# INLINE iterateDropOne #-}
372−iterateDropOne :: Monad m => Int -> Int -> Int -> Stream m Int
307+iterateDropOne :: S.MonadAsync m => Int -> Stream m Int
373−iterateDropOne iterStreamLen = iterateSource iterStreamLen (S.drop 1)
308+iterateDropOne = iterateSource (S.drop 1) maxIters
375{-# INLINE iterateDropWhileTrue #-}
310{-# INLINE iterateDropWhileTrue #-}
376−iterateDropWhileTrue ::
311+iterateDropWhileTrue :: S.MonadAsync m => Int -> Stream m Int
377− Monad m => Int -> Int -> Int -> Int -> Stream m Int
378−iterateDropWhileTrue streamLen iterStreamLen =
379− iterateSource iterStreamLen (S.dropWhile (<= streamLen))
312+iterateDropWhileTrue = iterateSource (S.dropWhile (<= maxValue)) maxIters
381-------------------------------------------------------------------------------
314-------------------------------------------------------------------------------
382-- Zipping
315-- Zipping
383-------------------------------------------------------------------------------
316-------------------------------------------------------------------------------
385−{-# INLINE zipWith #-}
318+{-# INLINE zip #-}
386−zipWith :: Monad m => Stream m Int -> m ()
319+zip :: Monad m => Stream m Int -> m ()
387−zipWith src = drain $ S.zipWith (,) src src
320+zip src = transform $ S.zipWith (,) src src
389−{-# INLINE zipWithM #-}
390−zipWithM :: Monad m => Stream m Int -> m ()
391−zipWithM src = drain $ S.zipWithM (curry return) src src
393−{-# INLINE sortByK #-}
394−sortByK :: (a -> a -> Ordering) -> Stream m a -> Stream m a
395−sortByK f = S.mergeMapWith (S.mergeBy f) S.fromPure
397−{-# INLINE sortBy #-}
398−sortBy :: Monad m => Stream m Int -> m ()
399−sortBy = drain . sortByK compare
401-------------------------------------------------------------------------------
322-------------------------------------------------------------------------------
402-- Mixed Composition
323-- Mixed Composition
@@ -415,32 +336,32 @@ dropScan :: Monad m => Int -> Stream m Int -> m ()
415dropScan n = composeN n $ S.scanl' (+) 0 . S.drop 1
336dropScan n = composeN n $ S.scanl' (+) 0 . S.drop 1
417{-# INLINE takeDrop #-}
338{-# INLINE takeDrop #-}
418−takeDrop :: Monad m => Int -> Int -> Stream m Int -> m ()
339+takeDrop :: Monad m => Int -> Stream m Int -> m ()
419−takeDrop streamLen n = composeN n $ S.drop 1 . S.take streamLen
340+takeDrop n = composeN n $ S.drop 1 . S.take maxValue
421{-# INLINE takeScan #-}
342{-# INLINE takeScan #-}
422−takeScan :: Monad m => Int -> Int -> Stream m Int -> m ()
343+takeScan :: Monad m => Int -> Stream m Int -> m ()
423−takeScan streamLen n = composeN n $ S.scanl' (+) 0 . S.take streamLen
344+takeScan n = composeN n $ S.scanl' (+) 0 . S.take maxValue
425{-# INLINE takeMap #-}
346{-# INLINE takeMap #-}
426−takeMap :: Monad m => Int -> Int -> Stream m Int -> m ()
347+takeMap :: Monad m => Int -> Stream m Int -> m ()
427−takeMap streamLen n = composeN n $ S.map (subtract 1) . S.take streamLen
348+takeMap n = composeN n $ S.map (subtract 1) . S.take maxValue
429{-# INLINE filterDrop #-}
350{-# INLINE filterDrop #-}
430−filterDrop :: Monad m => Int -> Int -> Stream m Int -> m ()
351+filterDrop :: Monad m => Int -> Stream m Int -> m ()
431−filterDrop streamLen n = composeN n $ S.drop 1 . S.filter (<= streamLen)
352+filterDrop n = composeN n $ S.drop 1 . S.filter (<= maxValue)
433{-# INLINE filterTake #-}
354{-# INLINE filterTake #-}
434−filterTake :: Monad m => Int -> Int -> Stream m Int -> m ()
355+filterTake :: Monad m => Int -> Stream m Int -> m ()
435−filterTake streamLen n = composeN n $ S.take streamLen . S.filter (<= streamLen)
356+filterTake n = composeN n $ S.take maxValue . S.filter (<= maxValue)
437{-# INLINE filterScan #-}
358{-# INLINE filterScan #-}
438filterScan :: Monad m => Int -> Stream m Int -> m ()
359filterScan :: Monad m => Int -> Stream m Int -> m ()
439filterScan n = composeN n $ S.scanl' (+) 0 . S.filter (<= maxBound)
360filterScan n = composeN n $ S.scanl' (+) 0 . S.filter (<= maxBound)
441{-# INLINE filterMap #-}
362{-# INLINE filterMap #-}
442−filterMap :: Monad m => Int -> Int -> Stream m Int -> m ()
363+filterMap :: Monad m => Int -> Stream m Int -> m ()
443−filterMap streamLen n = composeN n $ S.map (subtract 1) . S.filter (<= streamLen)
364+filterMap n = composeN n $ S.map (subtract 1) . S.filter (<= maxValue)
445-------------------------------------------------------------------------------
366-------------------------------------------------------------------------------
446-- ConcatMap
367-- ConcatMap
@@ -452,8 +373,8 @@ filterMap streamLen n = composeN n $ S.map (subtract 1) . S.filter (<= streamLen
452concatMap :: Int -> Int -> Int -> IO ()
373concatMap :: Int -> Int -> Int -> IO ()
453concatMap outer inner n =
374concatMap outer inner n =
454 S.drain $ S.concatMap
375 S.drain $ S.concatMap
455− (\_ -> unfoldrM inner n)
376+ (\_ -> sourceUnfoldrMN inner n)
456− (unfoldrM outer n)
377+ (sourceUnfoldrMN outer n)
458#ifdef INSPECTION
379#ifdef INSPECTION
459inspect $ hasNoTypeClasses 'concatMap
380inspect $ hasNoTypeClasses 'concatMap
@@ -465,8 +386,8 @@ inspect $ hasNoTypeClasses 'concatMap
465concatMapPure :: Int -> Int -> Int -> IO ()
386concatMapPure :: Int -> Int -> Int -> IO ()
466concatMapPure outer inner n =
387concatMapPure outer inner n =
467 S.drain $ S.concatMap
388 S.drain $ S.concatMap
468− (\_ -> unfoldr inner n)
389+ (\_ -> sourceUnfoldrN inner n)
469− (unfoldr outer n)
390+ (sourceUnfoldrN outer n)
471#ifdef INSPECTION
392#ifdef INSPECTION
472inspect $ hasNoTypeClasses 'concatMapPure
393inspect $ hasNoTypeClasses 'concatMapPure
@@ -477,7 +398,7 @@ inspect $ hasNoTypeClasses 'concatMapPure
477{-# INLINE concatMapRepl #-}
398{-# INLINE concatMapRepl #-}
478concatMapRepl :: Int -> Int -> Int -> IO ()
399concatMapRepl :: Int -> Int -> Int -> IO ()
479concatMapRepl outer inner n =
400concatMapRepl outer inner n =
480− S.drain $ S.concatMap (S.replicate inner) (unfoldrM outer n)
401+ S.drain $ S.concatMap (S.replicate inner) (sourceUnfoldrMN outer n)
482#ifdef INSPECTION
403#ifdef INSPECTION
483inspect $ hasNoTypeClasses 'concatMapRepl
404inspect $ hasNoTypeClasses 'concatMapRepl
@@ -489,70 +410,44 @@ inspect $ hasNoTypeClasses 'concatMapRepl
489sourceConcatMapId :: Monad m
410sourceConcatMapId :: Monad m
490 => Int -> Int -> Stream m (Stream m Int)
411 => Int -> Int -> Stream m (Stream m Int)
491sourceConcatMapId val n =
412sourceConcatMapId val n =
492− S.fromFoldable $ fmap (S.fromEffect . return) [n..n+val]
413+ S.fromFoldable $ fmap (S.yieldM . return) [n..n+val]
494−{-# INLINE concatMapBySerial #-}
415+{-# INLINE concatStreamsWith #-}
495−concatMapBySerial :: Int -> Int -> Int -> IO ()
416+concatStreamsWith :: Int -> Int -> Int -> IO ()
496−concatMapBySerial outer inner n =
417+concatStreamsWith outer inner n =
497− S.drain $ S.concatMapWith S.append
418+ S.drain $ S.concatMapBy S.serial
498− (unfoldrM inner)
419+ (sourceUnfoldrMN inner)
499− (unfoldrM outer n)
420+ (sourceUnfoldrMN outer n)
501-------------------------------------------------------------------------------
422-------------------------------------------------------------------------------
502-- Nested Composition
423-- Nested Composition
503-------------------------------------------------------------------------------
424-------------------------------------------------------------------------------
505−instance Monad m => Applicative (S.StreamK m) where
506− {-# INLINE pure #-}
426+{-# INLINE toNullApNested #-}
509− {-# INLINE (<*>) #-}
510− (<*>) = S.crossApply
512− {-# INLINE liftA2 #-}
513− liftA2 f x = (<*>) (fmap f x)
516− (*>) = S.crossApplySnd
519− (<*) = S.crossApplyFst
521−-- NOTE: even though concatMap for StreamD is 3x faster compared to StreamK,
522−-- the monad instance of StreamD is slower than StreamK after foldr/build
524−instance Monad m => Monad (S.StreamK m) where
525− {-# INLINE return #-}
528− {-# INLINE (>>=) #-}
529− (>>=) = flip S.concatMap
531−{-# INLINE drainApplicative #-}
532−drainApplicative :: Monad m => Stream m Int -> m ()
427+toNullApNested :: Monad m => Stream m Int -> m ()
533−drainApplicative s = drain $ do
428+toNullApNested s = runStream $ do
534 (+) <$> s <*> s
429 (+) <$> s <*> s
536−{-# INLINE drainMonad #-}
431+{-# INLINE toNullNested #-}
537−drainMonad :: Monad m => Stream m Int -> m ()
432+toNullNested :: Monad m => Stream m Int -> m ()
538−drainMonad s = drain $ do
433+toNullNested s = runStream $ do
541 return $ x + y
436 return $ x + y
543−{-# INLINE drainMonad3 #-}
438+{-# INLINE toNullNested3 #-}
544−drainMonad3 :: Monad m => Stream m Int -> m ()
439+toNullNested3 :: Monad m => Stream m Int -> m ()
545−drainMonad3 s = drain $ do
440+toNullNested3 s = runStream $ do
549 return $ x + y + z
444 return $ x + y + z
551−{-# INLINE filterAllOutMonad #-}
446+{-# INLINE filterAllOutNested #-}
552−filterAllOutMonad
447+filterAllOutNested
553 :: Monad m
448 :: Monad m
554 => Stream m Int -> m ()
449 => Stream m Int -> m ()
555−filterAllOutMonad str = drain $ do
450+filterAllOutNested str = runStream $ do
558 let s = x + y
453 let s = x + y
@@ -560,11 +455,11 @@ filterAllOutMonad str = drain $ do
560 then return s
455 then return s
561 else S.nil
456 else S.nil
563−{-# INLINE filterAllInMonad #-}
458+{-# INLINE filterAllInNested #-}
564−filterAllInMonad
459+filterAllInNested
565 :: Monad m
460 :: Monad m
566 => Stream m Int -> m ()
461 => Stream m Int -> m ()
567−filterAllInMonad str = drain $ do
462+filterAllInNested str = runStream $ do
570 let s = x + y
465 let s = x + y
@@ -576,14 +471,9 @@ filterAllInMonad str = drain $ do
576-- Nested Composition Pure lists
471-- Nested Composition Pure lists
577-------------------------------------------------------------------------------
472-------------------------------------------------------------------------------
579−-- There are several list benchmarks here for comparison with lists. It is easy
474+{-# INLINE sourceUnfoldrList #-}
580−-- and convenient to see the comparisons when they are here, otherwise we'll
475+sourceUnfoldrList :: Int -> Int -> [Int]
581−-- have to add a separate module for list benchmarks with the same names and
582−-- then add a comparison in bench.sh.
584−{-# INLINE unfoldrList #-}
585−unfoldrList :: Int -> Int -> [Int]
586−unfoldrList maxval n = List.unfoldr step n
476+sourceUnfoldrList maxval n = List.unfoldr step n
588 step cnt =
478 step cnt =
589 if cnt > n + maxval
479 if cnt > n + maxval
@@ -634,301 +524,229 @@ filterAllInNestedList str = do
634-------------------------------------------------------------------------------
524-------------------------------------------------------------------------------
636moduleName :: String
526moduleName :: String
637−moduleName = "Data.StreamK"
527+moduleName = "Data.Stream.StreamK"
639−o_1_space_generation :: Int -> Benchmark
529+o_1_space :: [Benchmark]
640−o_1_space_generation streamLen =
530+o_1_space =
531+ [ bgroup (o_1_space_prefix moduleName)
641− bgroup "generation"
532+ [ bgroup "generation"
642− [ benchFold "unfoldr" drain (unfoldr streamLen)
533+ [ benchFold "unfoldr" toNull sourceUnfoldr
643− , benchFold "unfoldrM" drain (unfoldrM streamLen)
534+ , benchFold "unfoldrM" toNull sourceUnfoldrM
644− , benchFold "repeat" drain (repeat streamLen)
535+
645− , benchFold "repeatM" drain (repeatM streamLen)
646− , benchFold "replicate" drain (replicate streamLen)
647− , benchFold "replicateM" drain (replicateM streamLen)
648− , benchFold "iterate" drain (iterate streamLen)
649− , benchFold "iterateM" drain (iterateM streamLen)
651− , benchFold "fromFoldable" drain (fromFoldable streamLen)
536+ , benchFold "fromFoldable" toNull sourceFromFoldable
652− , benchFold "fromFoldableM" drain (fromFoldableM streamLen)
537+ , benchFold "fromFoldableM" toNull sourceFromFoldableM
654 -- appends
539 -- appends
655− , benchFold "concatMapFoldableWith" drain (concatMapFoldableSerial streamLen)
540+ , benchFold "concatMapFoldableWith" toNull sourceFoldMapWith
656− , benchFold "concatMapFoldableWithM" drain (concatMapFoldableSerialM streamLen)
541+ , benchFold "concatMapFoldableWithM" toNull sourceFoldMapWithM
659−o_1_space_elimination :: Int -> Benchmark
660−o_1_space_elimination streamLen =
661− bgroup "elimination"
543+ , bgroup "elimination"
662− [ benchFold "toNull" drain (unfoldrM streamLen)
544+ [ benchFold "toNull" toNull sourceUnfoldrM
663− , benchFold "mapM_" mapM_ (unfoldrM streamLen)
545+ , benchFold "mapM_" mapM_ sourceUnfoldrM
664− , benchFold "uncons" uncons (unfoldrM streamLen)
546+ , benchFold "uncons" uncons sourceUnfoldrM
665− , benchFold "init" init (unfoldrM streamLen)
547+ , benchFold "init" init sourceUnfoldrM
666− , benchFold "foldl'" foldl' (unfoldrM streamLen)
548+ , benchFold "foldl'" foldl sourceUnfoldrM
667− , benchFold "last" last (unfoldrM streamLen)
549+ , benchFold "last" last sourceUnfoldrM
670−o_1_space_nested :: Int -> Benchmark
671−o_1_space_nested streamLen =
672− bgroup "nested"
551+ , bgroup "nested"
673− [ benchFold "drainApplicative" drainApplicative (unfoldrM streamLen2)
552+ [ benchFold "toNullAp" toNullApNested (sourceUnfoldrMN value2)
674− , benchFold "drainMonad" drainMonad (unfoldrM streamLen2)
553+ , benchFold "toNull" toNullNested (sourceUnfoldrMN value2)
675− , benchFold "drainMonad3" drainMonad3 (unfoldrM streamLen3)
554+ , benchFold "toNull3" toNullNested3 (sourceUnfoldrMN value3)
676− , benchFold "filterAllInMonad" filterAllInMonad (unfoldrM streamLen2)
555+ , benchFold "filterAllIn" filterAllInNested (sourceUnfoldrMN value2)
677− , benchFold "filterAllOutMonad" filterAllOutMonad (unfoldrM streamLen2)
556+ , benchFold "filterAllOut" filterAllOutNested (sourceUnfoldrMN value2)
678− , benchFold "drainApplicative (pure)" drainApplicative (unfoldr streamLen2)
557+ , benchFold "toNullApPure" toNullApNested (sourceUnfoldrN value2)
679− , benchFold "drainMonad (pure)" drainMonad (unfoldr streamLen2)
558+ , benchFold "toNullPure" toNullNested (sourceUnfoldrN value2)
680− , benchFold "drainMonad3 (pure)" drainMonad3 (unfoldr streamLen3)
559+ , benchFold "toNull3Pure" toNullNested3 (sourceUnfoldrN value3)
681− , benchFold "filterAllInMonad (pure)" filterAllInMonad (unfoldr streamLen2)
560+ , benchFold "filterAllInPure" filterAllInNested (sourceUnfoldrN value2)
682− , benchFold "filterAllOutMonad (pure)" filterAllOutMonad (unfoldr streamLen2)
561+ , benchFold "filterAllOutPure" filterAllOutNested (sourceUnfoldrN value2)
685− streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
686− streamLen3 = round (P.fromIntegral streamLen**(1/3::P.Double)) -- triple nested loop
688−o_1_space_transformation :: Int -> Benchmark
689−o_1_space_transformation streamLen =
690− bgroup "transformation"
563+ , bgroup "transformation"
691− [ benchFold "foldrS" (foldrS 1) (unfoldrM streamLen)
564+ [ benchFold "foldrS" (foldrS 1) sourceUnfoldrM
692− , benchFold "scanl'" (scanl' 1) (unfoldrM streamLen)
565+ , benchFold "scan" (scan 1) sourceUnfoldrM
693− , benchFold "map" (map 1) (unfoldrM streamLen)
566+ , benchFold "map" (map 1) sourceUnfoldrM
694− , benchFold "fmap" (fmapK 1) (unfoldrM streamLen)
567+ , benchFold "fmap" (fmapK 1) sourceUnfoldrM
695− , benchFold "mapM" (mapM 1) (unfoldrM streamLen)
568+ , benchFold "mapM" (mapM 1) sourceUnfoldrM
696− , benchFold "mapMSerial" (mapMSerial 1) (unfoldrM streamLen)
569+ , benchFold "mapMSerial" (mapMSerial 1) sourceUnfoldrM
699−o_1_space_transformationX4 :: Int -> Benchmark
700−o_1_space_transformationX4 streamLen =
701− bgroup "transformationX4"
571+ , bgroup "transformationX4"
702− [ benchFold "scanl'" (scanl' 4) (unfoldrM streamLen)
572+ [ benchFold "scan" (scan 4) sourceUnfoldrM
703− , benchFold "map" (map 4) (unfoldrM streamLen)
573+ , benchFold "map" (map 4) sourceUnfoldrM
704− , benchFold "fmap" (fmapK 4) (unfoldrM streamLen)
574+ , benchFold "fmap" (fmapK 4) sourceUnfoldrM
705− , benchFold "mapM" (mapM 4) (unfoldrM streamLen)
575+ , benchFold "mapM" (mapM 4) sourceUnfoldrM
706− , benchFold "mapMSerial" (mapMSerial 4) (unfoldrM streamLen)
576+ , benchFold "mapMSerial" (mapMSerial 4) sourceUnfoldrM
707 -- XXX this is horribly slow
577 -- XXX this is horribly slow
708− -- , benchFold "concatMap" (concatMap 4) (unfoldrM streamLen16)
578+ -- , benchFold "concatMap" (concatMap 4) (sourceUnfoldrMN value16)
711−o_1_space_concat :: Int -> Benchmark
712−o_1_space_concat streamLen =
713− bgroup "concat"
580+ , bgroup "concat"
714 [ benchIOSrc1 "concatMapPure (n of 1)"
581 [ benchIOSrc1 "concatMapPure (n of 1)"
715− (concatMapPure streamLen 1)
582+ (concatMapPure value 1)
716 , benchIOSrc1 "concatMapPure (sqrt n of sqrt n)"
583 , benchIOSrc1 "concatMapPure (sqrt n of sqrt n)"
717− (concatMapPure streamLen2 streamLen2)
584+ (concatMapPure value2 value2)
718 , benchIOSrc1 "concatMapPure (1 of n)"
585 , benchIOSrc1 "concatMapPure (1 of n)"
719− (concatMapPure 1 streamLen)
586+ (concatMapPure 1 value)
721 , benchIOSrc1 "concatMap (n of 1)"
588 , benchIOSrc1 "concatMap (n of 1)"
722− (concatMap streamLen 1)
589+ (concatMap value 1)
723 , benchIOSrc1 "concatMap (sqrt n of sqrt n)"
590 , benchIOSrc1 "concatMap (sqrt n of sqrt n)"
724− (concatMap streamLen2 streamLen2)
591+ (concatMap value2 value2)
725 , benchIOSrc1 "concatMap (1 of n)"
592 , benchIOSrc1 "concatMap (1 of n)"
726− (concatMap 1 streamLen)
593+ (concatMap 1 value)
728 , benchIOSrc1 "concatMapRepl (sqrt n of sqrt n)"
595 , benchIOSrc1 "concatMapRepl (sqrt n of sqrt n)"
729− (concatMapRepl streamLen2 streamLen2)
596+ (concatMapRepl value2 value2)
731 -- This is for comparison with concatMapFoldableWith
598 -- This is for comparison with concatMapFoldableWith
732 , benchIOSrc1 "concatMapWithId (n of 1) (fromFoldable)"
599 , benchIOSrc1 "concatMapWithId (n of 1) (fromFoldable)"
734− . S.concatMapWith S.append id
735− . sourceConcatMapId streamLen)
600+ (S.drain . S.concatMapBy S.serial id . sourceConcatMapId value)
737− , benchIOSrc1 "concatMapBy serial (n of 1)"
602+ , benchIOSrc1 "concatMapWith (n of 1)"
738− (concatMapBySerial streamLen 1)
603+ (concatStreamsWith value 1)
739− , benchIOSrc1 "concatMapBy serial (sqrt n of sqrt n)"
604+ , benchIOSrc1 "concatMapWith (sqrt n of sqrt n)"
740− (concatMapBySerial streamLen2 streamLen2)
605+ (concatStreamsWith value2 value2)
741− , benchIOSrc1 "concatMapBy serial (1 of n)"
606+ , benchIOSrc1 "concatMapWith (1 of n)"
742− (concatMapBySerial 1 streamLen)
607+ (concatStreamsWith 1 value)
743− , benchFold "sortBy" sortBy (unfoldrM streamLen)
746− streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
748−o_1_space_filtering :: Int -> Benchmark
749−o_1_space_filtering streamLen =
750− bgroup "filtering"
609+ , bgroup "filtering"
751− [ benchFold "filter-even" (filterEven 1) (unfoldrM streamLen)
610+ [ benchFold "filter-even" (filterEven 1) sourceUnfoldrM
752− , benchFold "filter-all-out" (filterAllOut streamLen 1) (unfoldrM streamLen)
611+ , benchFold "filter-all-out" (filterAllOut 1) sourceUnfoldrM
753− , benchFold "filter-all-in" (filterAllIn streamLen 1) (unfoldrM streamLen)
612+ , benchFold "filter-all-in" (filterAllIn 1) sourceUnfoldrM
754− , benchFold "take-all" (takeAll streamLen 1) (unfoldrM streamLen)
613+ , benchFold "take-all" (takeAll 1) sourceUnfoldrM
755− , benchFold "takeWhile-true" (takeWhileTrue streamLen 1) (unfoldrM streamLen)
614+ , benchFold "takeWhile-true" (takeWhileTrue 1) sourceUnfoldrM
756− , benchFold "drop-one" (dropOne 1) (unfoldrM streamLen)
615+ , benchFold "drop-one" (dropOne 1) sourceUnfoldrM
757− , benchFold "drop-all" (dropAll streamLen 1) (unfoldrM streamLen)
616+ , benchFold "drop-all" (dropAll 1) sourceUnfoldrM
758− , benchFold "dropWhile-true" (dropWhileTrue streamLen 1) (unfoldrM streamLen)
617+ , benchFold "dropWhile-true" (dropWhileTrue 1) sourceUnfoldrM
759− , benchFold "dropWhile-false" (dropWhileFalse 1) (unfoldrM streamLen)
618+ , benchFold "dropWhile-false" (dropWhileFalse 1) sourceUnfoldrM
762−o_1_space_filteringX4 :: Int -> Benchmark
763−o_1_space_filteringX4 streamLen =
764− bgroup "filteringX4"
620+ , bgroup "filteringX4"
765− [ benchFold "filter-even" (filterEven 4) (unfoldrM streamLen)
621+ [ benchFold "filter-even" (filterEven 4) sourceUnfoldrM
766− , benchFold "filter-all-out" (filterAllOut streamLen 4) (unfoldrM streamLen)
622+ , benchFold "filter-all-out" (filterAllOut 4) sourceUnfoldrM
767− , benchFold "filter-all-in" (filterAllIn streamLen 4) (unfoldrM streamLen)
623+ , benchFold "filter-all-in" (filterAllIn 4) sourceUnfoldrM
768− , benchFold "take-all" (takeAll streamLen 4) (unfoldrM streamLen)
624+ , benchFold "take-all" (takeAll 4) sourceUnfoldrM
769− , benchFold "takeWhile-true" (takeWhileTrue streamLen 4) (unfoldrM streamLen)
625+ , benchFold "takeWhile-true" (takeWhileTrue 4) sourceUnfoldrM
770− , benchFold "drop-one" (dropOne 4) (unfoldrM streamLen)
626+ , benchFold "drop-one" (dropOne 4) sourceUnfoldrM
771− , benchFold "drop-all" (dropAll streamLen 4) (unfoldrM streamLen)
627+ , benchFold "drop-all" (dropAll 4) sourceUnfoldrM
772− , benchFold "dropWhile-true" (dropWhileTrue streamLen 4) (unfoldrM streamLen)
628+ , benchFold "dropWhile-true" (dropWhileTrue 4) sourceUnfoldrM
773− , benchFold "dropWhile-false" (dropWhileFalse 4) (unfoldrM streamLen)
629+ , benchFold "dropWhile-false" (dropWhileFalse 4) sourceUnfoldrM
776−o_1_space_zipping :: Int -> Benchmark
777−o_1_space_zipping streamLen =
778− bgroup "zipping"
631+ , bgroup "zipping"
779− [ benchFold "zipWith" zipWith (unfoldrM streamLen)
632+ [ benchFold "zip" zip sourceUnfoldrM
780− , benchFold "zipWithM" zipWithM (unfoldrM streamLen)
783−o_1_space_mixed :: Int -> Benchmark
784−o_1_space_mixed streamLen =
785− bgroup "mixed"
634+ , bgroup "mixed"
786− [ benchFold "scan-map" (scanMap 1) (unfoldrM streamLen)
635+ [ benchFold "scan-map" (scanMap 1) sourceUnfoldrM
787− , benchFold "drop-map" (dropMap 1) (unfoldrM streamLen)
636+ , benchFold "drop-map" (dropMap 1) sourceUnfoldrM
788− , benchFold "drop-scan" (dropScan 1) (unfoldrM streamLen)
637+ , benchFold "drop-scan" (dropScan 1) sourceUnfoldrM
789− , benchFold "take-drop" (takeDrop streamLen 1) (unfoldrM streamLen)
638+ , benchFold "take-drop" (takeDrop 1) sourceUnfoldrM
790− , benchFold "take-scan" (takeScan streamLen 1) (unfoldrM streamLen)
639+ , benchFold "take-scan" (takeScan 1) sourceUnfoldrM
791− , benchFold "take-map" (takeMap streamLen 1) (unfoldrM streamLen)
640+ , benchFold "take-map" (takeMap 1) sourceUnfoldrM
792− , benchFold "filter-drop" (filterDrop streamLen 1) (unfoldrM streamLen)
641+ , benchFold "filter-drop" (filterDrop 1) sourceUnfoldrM
793− , benchFold "filter-take" (filterTake streamLen 1) (unfoldrM streamLen)
642+ , benchFold "filter-take" (filterTake 1) sourceUnfoldrM
794− , benchFold "filter-scan" (filterScan 1) (unfoldrM streamLen)
643+ , benchFold "filter-scan" (filterScan 1) sourceUnfoldrM
795− , benchFold "filter-map" (filterMap streamLen 1) (unfoldrM streamLen)
644+ , benchFold "filter-map" (filterMap 1) sourceUnfoldrM
798−o_1_space_mixedX2 :: Int -> Benchmark
799−o_1_space_mixedX2 streamLen =
800− bgroup "mixedX2"
646+ , bgroup "mixedX2"
801− [ benchFold "scan-map" (scanMap 2) (unfoldrM streamLen)
647+ [ benchFold "scan-map" (scanMap 2) sourceUnfoldrM
802− , benchFold "drop-map" (dropMap 2) (unfoldrM streamLen)
648+ , benchFold "drop-map" (dropMap 2) sourceUnfoldrM
803− , benchFold "drop-scan" (dropScan 2) (unfoldrM streamLen)
649+ , benchFold "drop-scan" (dropScan 2) sourceUnfoldrM
804− , benchFold "take-drop" (takeDrop streamLen 2) (unfoldrM streamLen)
650+ , benchFold "take-drop" (takeDrop 2) sourceUnfoldrM
805− , benchFold "take-scan" (takeScan streamLen 2) (unfoldrM streamLen)
651+ , benchFold "take-scan" (takeScan 2) sourceUnfoldrM
806− , benchFold "take-map" (takeMap streamLen 2) (unfoldrM streamLen)
652+ , benchFold "take-map" (takeMap 2) sourceUnfoldrM
807− , benchFold "filter-drop" (filterDrop streamLen 2) (unfoldrM streamLen)
653+ , benchFold "filter-drop" (filterDrop 2) sourceUnfoldrM
808− , benchFold "filter-take" (filterTake streamLen 2) (unfoldrM streamLen)
654+ , benchFold "filter-take" (filterTake 2) sourceUnfoldrM
809− , benchFold "filter-scan" (filterScan 2) (unfoldrM streamLen)
655+ , benchFold "filter-scan" (filterScan 2) sourceUnfoldrM
810− , benchFold "filter-map" (filterMap streamLen 2) (unfoldrM streamLen)
656+ , benchFold "filter-map" (filterMap 2) sourceUnfoldrM
813−o_1_space_mixedX4 :: Int -> Benchmark
814−o_1_space_mixedX4 streamLen =
815− bgroup "mixedX4"
658+ , bgroup "mixedX4"
816− [ benchFold "scan-map" (scanMap 4) (unfoldrM streamLen)
659+ [ benchFold "scan-map" (scanMap 4) sourceUnfoldrM
817− , benchFold "drop-map" (dropMap 4) (unfoldrM streamLen)
660+ , benchFold "drop-map" (dropMap 4) sourceUnfoldrM
818− , benchFold "drop-scan" (dropScan 4) (unfoldrM streamLen)
661+ , benchFold "drop-scan" (dropScan 4) sourceUnfoldrM
819− , benchFold "take-drop" (takeDrop streamLen 4) (unfoldrM streamLen)
662+ , benchFold "take-drop" (takeDrop 4) sourceUnfoldrM
820− , benchFold "take-scan" (takeScan streamLen 4) (unfoldrM streamLen)
663+ , benchFold "take-scan" (takeScan 4) sourceUnfoldrM
821− , benchFold "take-map" (takeMap streamLen 4) (unfoldrM streamLen)
664+ , benchFold "take-map" (takeMap 4) sourceUnfoldrM
822− , benchFold "filter-drop" (filterDrop streamLen 4) (unfoldrM streamLen)
665+ , benchFold "filter-drop" (filterDrop 4) sourceUnfoldrM
823− , benchFold "filter-take" (filterTake streamLen 4) (unfoldrM streamLen)
666+ , benchFold "filter-take" (filterTake 4) sourceUnfoldrM
824− , benchFold "filter-scan" (filterScan 4) (unfoldrM streamLen)
667+ , benchFold "filter-scan" (filterScan 4) sourceUnfoldrM
825− , benchFold "filter-map" (filterMap streamLen 4) (unfoldrM streamLen)
668+ , benchFold "filter-map" (filterMap 4) sourceUnfoldrM
828−o_1_space_list :: Int -> Benchmark
829−o_1_space_list streamLen =
831− [ bgroup "elimination"
832− [ benchList "last" (\xs -> [List.last xs]) (unfoldrList streamLen)
835− [ benchList "toNullAp" toNullApNestedList (unfoldrList streamLen2)
836− , benchList "toNull" toNullNestedList (unfoldrList streamLen2)
837− , benchList "toNull3" toNullNestedList3 (unfoldrList streamLen3)
838− , benchList "filterAllIn" filterAllInNestedList (unfoldrList streamLen2)
839− , benchList "filterAllOut" filterAllOutNestedList (unfoldrList streamLen2)
844− streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
845− streamLen3 = round (P.fromIntegral streamLen**(1/3::P.Double)) -- triple nested loop
847−o_1_space :: Int -> Benchmark
848−o_1_space streamLen =
849− bgroup (o_1_space_prefix moduleName)
850− [ o_1_space_generation streamLen
851− , o_1_space_elimination streamLen
852− , o_1_space_nested streamLen
853− , o_1_space_transformation streamLen
854− , o_1_space_transformationX4 streamLen
855− , o_1_space_concat streamLen
856− , o_1_space_filtering streamLen
857− , o_1_space_filteringX4 streamLen
858− , o_1_space_zipping streamLen
859− , o_1_space_mixed streamLen
860− , o_1_space_mixedX2 streamLen
861− , o_1_space_mixedX4 streamLen
862− , o_1_space_list streamLen
865−o_n_heap :: Int -> Benchmark
673+o_n_heap :: [Benchmark]
866−o_n_heap streamLen =
674+o_n_heap =
867− bgroup (o_n_heap_prefix moduleName)
675+ [ bgroup (o_n_heap_prefix moduleName)
868 [ bgroup "transformation"
676 [ bgroup "transformation"
869− [ benchFold "foldlS" (foldlS 1) (unfoldrM streamLen)
677+ [ benchFold "foldlS" (foldlS 1) sourceUnfoldrM
873{-# INLINE benchK #-}
682{-# INLINE benchK #-}
874benchK :: P.String -> (Int -> Stream P.IO Int) -> Benchmark
683benchK :: P.String -> (Int -> Stream P.IO Int) -> Benchmark
875−benchK name f = bench name $ nfIO $ randomRIO (1,1) >>= drain . f
684+benchK name f = bench name $ nfIO $ randomRIO (1,1) >>= toNull . f
877−o_n_stack :: Int -> Int -> Int -> Benchmark
686+o_n_stack :: [Benchmark]
878−o_n_stack streamLen iterStreamLen maxIters =
687+o_n_stack =
879− bgroup (o_n_stack_prefix moduleName)
688+ [ bgroup (o_n_stack_prefix moduleName)
880 [ bgroup "elimination"
689 [ bgroup "elimination"
881− [ benchFold "tail" tail (unfoldrM streamLen)
690+ [ benchFold "tail" tail sourceUnfoldrM
882− , benchFold "nullTail" nullTail (unfoldrM streamLen)
691+ , benchFold "nullTail" nullTail sourceUnfoldrM
883− , benchFold "headTail" headTail (unfoldrM streamLen)
692+ , benchFold "headTail" headTail sourceUnfoldrM
885 , bgroup "transformation"
694 , bgroup "transformation"
887 -- XXX why do these need so much stack
696 -- XXX why do these need so much stack
888− benchFold "intersperse" (intersperse streamLen 1) (unfoldrM streamLen2)
697+ benchFold "intersperse" (intersperse 1) (sourceUnfoldrMN value2)
889− , benchFold "interspersePure" (intersperse streamLen 1) (unfoldr streamLen2)
698+ , benchFold "interspersePure" (intersperse 1) (sourceUnfoldrN value2)
891 , bgroup "transformationX4"
700 , bgroup "transformationX4"
893− benchFold "intersperse" (intersperse streamLen 4) (unfoldrM streamLen16)
702+ benchFold "intersperse" (intersperse 4) (sourceUnfoldrMN value16)
895 , bgroup "iterated"
704 , bgroup "iterated"
896− [ benchK "mapM" (iterateMapM iterStreamLen maxIters)
705+ [ benchK "mapM" iterateMapM
897− , benchK "scan(1/10)" (iterateScan iterStreamLen maxIters)
706+ , benchK "scan(1/10)" iterateScan
898− , benchK "filterEven" (iterateFilterEven iterStreamLen maxIters)
707+ , benchK "filterEven" iterateFilterEven
899− , benchK "takeAll" (iterateTakeAll streamLen iterStreamLen maxIters)
708+ , benchK "takeAll" iterateTakeAll
900− , benchK "dropOne" (iterateDropOne iterStreamLen maxIters)
709+ , benchK "dropOne" iterateDropOne
901− , benchK "dropWhileFalse(1/10)" (iterateDropWhileFalse streamLen iterStreamLen maxIters)
710+ , benchK "dropWhileFalse(1/10)" iterateDropWhileFalse
902− , benchK "dropWhileTrue" (iterateDropWhileTrue streamLen iterStreamLen maxIters)
711+ , benchK "dropWhileTrue" iterateDropWhileTrue
906− streamLen2 = round (P.fromIntegral streamLen**(1/2::P.Double)) -- double nested loop
907− streamLen16 = round (P.fromIntegral streamLen**(1/16::P.Double)) -- triple nested loop
909−o_n_space :: Int -> Benchmark
716+o_n_space :: [Benchmark]
910−o_n_space streamLen =
717+o_n_space =
911− bgroup (o_n_space_prefix moduleName)
718+ [ bgroup (o_n_space_prefix moduleName)
912 [ bgroup "elimination"
719 [ bgroup "elimination"
913− [ benchFold "toList" toList (unfoldrM streamLen)
720+ [ benchFold "toList" toList sourceUnfoldrM
917{-# INLINE benchList #-}
725{-# INLINE benchList #-}
918benchList :: P.String -> ([Int] -> [Int]) -> (Int -> [Int]) -> Benchmark
726benchList :: P.String -> ([Int] -> [Int]) -> (Int -> [Int]) -> Benchmark
919benchList name run f = bench name $ nfIO $ randomRIO (1,1) >>= return . run . f
727benchList name run f = bench name $ nfIO $ randomRIO (1,1) >>= return . run . f
921−main :: IO ()
729+o_1_space_list :: [Benchmark]
922−main =
730+o_1_space_list =
923− defaultMain
731+ [ bgroup "list"
924− [ o_1_space streamLen
732+ [ bgroup "elimination"
925− , o_n_stack streamLen iterStreamLen maxIters
733+ [ benchList "last" (\xs -> [List.last xs]) (sourceUnfoldrList value)
926− , o_n_heap streamLen
927− , o_n_space streamLen
736+ [ benchList "toNullAp" toNullApNestedList (sourceUnfoldrList value2)
737+ , benchList "toNull" toNullNestedList (sourceUnfoldrList value2)
738+ , benchList "toNull3" toNullNestedList3 (sourceUnfoldrList value3)
739+ , benchList "filterAllIn" filterAllInNestedList (sourceUnfoldrList value2)
740+ , benchList "filterAllOut" filterAllOutNestedList (sourceUnfoldrList value2)
930− where
745+main :: IO ()
931−
746+main = defaultMain $ concat
932− streamLen = 100000
747+ [ o_1_space
933− maxIters = 10000
748+ , [bgroup (o_1_space_prefix moduleName) o_1_space_list]
934− iterStreamLen = 10
749+ , o_n_stack