@@ -48,12 +48,10 @@ main = do
48
48
, bench " alterF:four:strings" $ whnf (alterF_four strings) strings_s
49
49
, bench " alterF_naive:four" $ whnf (alterF_naive_four elems) s
50
50
, 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 ]))
57
55
, bench " eq" $ whnf (\ s' -> s' == s') s -- worst case, compares everything
58
56
, bench " compare" $ whnf (\ s' -> compare s' s') s -- worst case, compares everything
59
57
]
0 commit comments