Skip to content

Commit

Permalink
Reduce sizes for the Set.powerSet benchmark (#1055)
Browse files Browse the repository at this point in the history
They take too long to run.
  • Loading branch information
meooow25 authored Oct 26, 2024
1 parent 5942d91 commit 2333665
Showing 1 changed file with 4 additions and 6 deletions.
10 changes: 4 additions & 6 deletions containers-tests/benchmarks/Set.hs
Original file line number Diff line number Diff line change
Expand Up @@ -48,12 +48,10 @@ main = do
, bench "alterF:four:strings" $ whnf (alterF_four strings) strings_s
, bench "alterF_naive:four" $ whnf (alterF_naive_four elems) s
, bench "alterF_naive:four:strings" $ whnf (alterF_naive_four strings) strings_s
, bench "powerSet (19)" $ whnf S.powerSet (S.fromList[1..19])
, bench "powerSet (20)" $ whnf S.powerSet (S.fromList[1..20])
, bench "powerSet (21)" $ whnf S.powerSet (S.fromList[1..21])
, bench "member.powerSet (16)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..16]))
, bench "member.powerSet (17)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..17]))
, bench "member.powerSet (18)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..18]))
, bench "powerSet (15)" $ whnf S.powerSet (S.fromList[1..15])
, bench "powerSet (16)" $ whnf S.powerSet (S.fromList[1..16])
, bench "member.powerSet (14)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..14]))
, bench "member.powerSet (15)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..15]))
, bench "eq" $ whnf (\s' -> s' == s') s -- worst case, compares everything
, bench "compare" $ whnf (\s' -> compare s' s') s -- worst case, compares everything
]
Expand Down

0 comments on commit 2333665

Please sign in to comment.