@@ -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