7d08e3c0b3372f4ec8c5ba5262a03a830efc85c4
[packages/containers.git] / benchmarks / SetOperations / SetOperations-Map.hs
1 module Main where
2
3 import Data.Map as C
4 import SetOperations
5
6 main = benchmark (\xs -> fromList [(x, x) | x <- xs]) True [("union", C.union), ("difference", C.difference), ("intersection", C.intersection)]