unfoldrN benchmark

haskell · Feb 9, 2021 · 33dbbd5 · 33dbbd5
1 parent 6969cad
commit 33dbbd5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/bench/BenchAll.hs b/bench/BenchAll.hs
@@ -416,6 +416,8 @@ main = do
           nf (S.foldl' (\acc x -> acc + fromIntegral x) (0 :: Int)) s) foldInputs
       , bgroup "foldr'" $ map (\s -> bench (show $ S.length s) $
           nf (S.foldr' (\x acc -> fromIntegral x + acc) (0 :: Int)) s) foldInputs
+      , bgroup "unfoldrN" $ map (\s -> bench (show $ S.length s) $
+          nf (S.unfoldrN (S.length s) (\_ -> Nothing) ) s) foldInputs
       , bgroup "mapAccumL" $ map (\s -> bench (show $ S.length s) $
           nf (S.mapAccumL (\acc x -> (acc + fromIntegral x, succ x)) (0 :: Int)) s) foldInputs
       , bgroup "mapAccumR" $ map (\s -> bench (show $ S.length s) $