initial benchmarks

7startups.cabal

@@ -65,6 +65,14 @@ library
   -- hs-source-dirs:      
   default-language:    Haskell2010
 
+Benchmark multiset
+    hs-source-dirs:       bench
+    type:                 exitcode-stdio-1.0
+    ghc-options:          -Wall
+    build-depends:        7startups, base, multiset, criterion
+    main-is:              multiset.hs
+    default-language:     Haskell2010
+
 Test-Suite tests
     hs-source-dirs:       tests
     type:                 exitcode-stdio-1.0

bench/multiset.hs

@@ -0,0 +1,25 @@
+module Main where
+
+import Startups.Base
+
+import Criterion
+import Criterion.Main
+
+import qualified Data.MultiSet as MS
+import qualified RMultiSet as RS
+
+smallList :: [Resource]
+smallList = [Hype, Operations]
+
+largeList :: [Resource]
+largeList = concat (replicate 100 [minBound .. maxBound])
+
+main :: IO ()
+main = defaultMain
+  [ bgroup "fromList"
+    [ bench "multiset - small" $ whnf MS.fromList smallList
+    , bench "resource - small" $ whnf RS.fromList smallList
+    , bench "multiset - large" $ whnf MS.fromList largeList
+    , bench "resource - large" $ whnf RS.fromList largeList
+    ]
+  ]