From a36cb2a99b7f8a3852efa5a87e6b68a14d39a8b9 Mon Sep 17 00:00:00 2001 From: Callan McGill Date: Thu, 14 Jan 2021 17:02:05 -0500 Subject: [PATCH] Add findIndex benchmarks (#346) --- bench/BenchAll.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/bench/BenchAll.hs b/bench/BenchAll.hs index 8bd516e48..f9c489022 100644 --- a/bench/BenchAll.hs +++ b/bench/BenchAll.hs @@ -424,4 +424,8 @@ main = do , bench "groupBy (>=)" $ nf (L.groupBy (>=)) zeroes , bench "groupBy (>)" $ nf (L.groupBy (>)) zeroes ] + , bgroup "findIndex" + [ bench "findIndices" $ nf (sum . S.findIndices even) byteStringData + , bench "find" $ nf (S.find (>= 9998)) byteStringData + ] ]