Commit 101a4200 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢

Add a few more benchmaks for deleteLargestM

parent 82deb160
......@@ -14,7 +14,12 @@ benchmarks = bgroup "Data.List.Utils"
benchDeleteLargestM :: Benchmark
benchDeleteLargestM = bgroup "deleteLargestM"
[ bench "5" $ nf (deleteLargestM Just) [1,4,2,5,0]
, bench "10" $ nf (deleteLargestM Just) [1,4,2,5,40,3,6,9,30,7]
, bench "100" $ nf (deleteLargestM Just) [0..100]
, bench "200" $ nf (deleteLargestM Just) [0..200]
, bench "st 5" $ nfIO (stToIO $ deleteLargestM return [1,4,2,5,0])
, bench "st 100" $ nfIO (stToIO $ deleteLargestM return [0..100])
, bench "st 1000" $ nfIO (stToIO $ deleteLargestM return [0..1000])
, bench "st 2000" $ nfIO (stToIO $ deleteLargestM return [0..2000])
, bench "st 3000" $ nfIO (stToIO $ deleteLargestM return [0..3000])
]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment