Add findIndex benchmarks (#346)

haskell · Jan 14, 2021 · a36cb2a · a36cb2a
1 parent eea70ff
commit a36cb2a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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
+      ]
     ]