on master help sign in
hide benchmarks for hidden combinators
commit196b4de2ed1670a38334d2677aec0236fe1ec5fa authorHarendra Kumar <harendra.kumar@gmail.com> dateFri 2 Aug 2019, 03:18 (7 years ago) parent9d48b5b
2 files changed+7−7
benchmark/Linear.hs+4−4 benchmark/LinearOps.hs+3−3
benchmark/Linear.hs+4−4
@@ -219,10 +219,10 @@ main =
219219 , benchIOSink "mconcat" (FL.foldl' FL.mconcat . (S.map (Last . Just)))
220220 , benchIOSink "foldMap" (FL.foldl' (FL.foldMap (Last . Just)))
221221
222− -- , benchIOSink "toList" (FL.foldl' FL.toList)
223− , benchIOSink "toListRev" (FL.foldl' FL.toListRev)
222+ , benchIOSink "toList" (FL.foldl' FL.toList)
223+ -- , benchIOSink "toListRev" (FL.foldl' FL.toListRev)
224224 -- , benchIOSink "toStream" (FL.foldl' FL.toStream)
225− , benchIOSink "toStreamRev" (FL.foldl' FL.toStreamRev)
225+ -- , benchIOSink "toStreamRev" (FL.foldl' FL.toStreamRev)
226226 , benchIOSink "toArrayN" (FL.foldl' (A.toArrayN Ops.value))
227227
228228 , benchIOSink "index" (FL.foldl' (FL.index Ops.maxValue))
@@ -276,7 +276,7 @@ main =
276276 , benchIOSink "findIndices" (Ops.findIndices 1)
277277 , benchIOSink "elemIndices" (Ops.elemIndices 1)
278278 , benchIOSink "reverse" (Ops.reverse 1)
279− , benchIOSink "reverse'" (Ops.reverse' 1)
279+ -- , benchIOSink "reverse'" (Ops.reverse' 1)
280280 , benchIOSink "foldrS" (Ops.foldrS 1)
281281 , benchIOSink "foldrSMap" (Ops.foldrSMap 1)
282282 , benchIOSink "foldrT" (Ops.foldrT 1)
benchmark/LinearOps.hs+3−3
@@ -352,7 +352,7 @@ composeN' n f =
352352{-# INLINE insertBy #-}
353353{-# INLINE deleteBy #-}
354354{-# INLINE reverse #-}
355−{-# INLINE reverse' #-}
355+-- {-# INLINE reverse' #-}
356356{-# INLINE foldrS #-}
357357{-# INLINE foldrSMap #-}
358358{-# INLINE foldrT #-}
@@ -360,7 +360,7 @@ composeN' n f =
360360scan, scanl1', map, fmap, mapMaybe, filterEven, filterAllOut,
361361 filterAllIn, takeOne, takeAll, takeWhileTrue, takeWhileMTrue, dropOne,
362362 dropAll, dropWhileTrue, dropWhileMTrue, dropWhileFalse,
363− findIndices, elemIndices, insertBy, deleteBy, reverse, reverse',
363+ findIndices, elemIndices, insertBy, deleteBy, reverse, -- reverse',
364364 foldrS, foldrSMap, foldrT, foldrTMap
365365 :: MonadIO m
366366 => Int -> Stream m Int -> m ()
@@ -437,7 +437,7 @@ intersperse n = composeN n $ S.intersperse maxValue
437437insertBy n = composeN n $ S.insertBy compare maxValue
438438deleteBy n = composeN n $ S.deleteBy (>=) maxValue
439439reverse n = composeN n $ S.reverse
440−reverse' n = composeN n $ S.reverse'
440+-- reverse' n = composeN n $ S.reverse'
441441foldrS n = composeN n $ S.foldrS S.cons S.nil
442442foldrSMap n = composeN n $ S.foldrS (\x xs -> x + 1 `S.cons` xs) S.nil
443443foldrT n = composeN n $ S.foldrT S.cons S.nil