Skip to content

Commit 2333665

Browse files
authored
Reduce sizes for the Set.powerSet benchmark (#1055)
They take too long to run.
1 parent 5942d91 commit 2333665

File tree

1 file changed

+4
-6
lines changed
  • containers-tests/benchmarks

1 file changed

+4
-6
lines changed

containers-tests/benchmarks/Set.hs

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -48,12 +48,10 @@ main = do
4848
, bench "alterF:four:strings" $ whnf (alterF_four strings) strings_s
4949
, bench "alterF_naive:four" $ whnf (alterF_naive_four elems) s
5050
, bench "alterF_naive:four:strings" $ whnf (alterF_naive_four strings) strings_s
51-
, bench "powerSet (19)" $ whnf S.powerSet (S.fromList[1..19])
52-
, bench "powerSet (20)" $ whnf S.powerSet (S.fromList[1..20])
53-
, bench "powerSet (21)" $ whnf S.powerSet (S.fromList[1..21])
54-
, bench "member.powerSet (16)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..16]))
55-
, bench "member.powerSet (17)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..17]))
56-
, bench "member.powerSet (18)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..18]))
51+
, bench "powerSet (15)" $ whnf S.powerSet (S.fromList[1..15])
52+
, bench "powerSet (16)" $ whnf S.powerSet (S.fromList[1..16])
53+
, bench "member.powerSet (14)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..14]))
54+
, bench "member.powerSet (15)" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..15]))
5755
, bench "eq" $ whnf (\s' -> s' == s') s -- worst case, compares everything
5856
, bench "compare" $ whnf (\s' -> compare s' s') s -- worst case, compares everything
5957
]

0 commit comments

Comments
 (0)