for #896

jwaldmann · jwaldmann · commit 6d61346e2b68 · 2023-01-19T12:19:12.000+01:00
diff --git a/containers-tests/benchmarks/Set.hs b/containers-tests/benchmarks/Set.hs
@@ -45,6 +45,8 @@ 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" $ whnf S.powerSet (S.fromList[1..20])
+        , bench "member.powerSet" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..20]))
         ]
   where
     elems = [1..2^12]

Original file line number	Diff line number	Diff line change
`@@ -45,6 +45,8 @@ main = do`
`45`	`45`	`, bench "alterF:four:strings" $ whnf (alterF_four strings) strings_s`
`46`	`46`	`, bench "alterF_naive:four" $ whnf (alterF_naive_four elems) s`
`47`	`47`	`, bench "alterF_naive:four:strings" $ whnf (alterF_naive_four strings) strings_s`
	`48`	`+ , bench "powerSet" $ whnf S.powerSet (S.fromList[1..20])`
	`49`	`+ , bench "member.powerSet" $ whnf (\ s -> all (flip S.member s) s) (S.powerSet (S.fromList [1..20]))`
`48`	`50`	`]`
`49`	`51`	`where`
`50`	`52`	`elems = [1..2^12]`