Commits

Bryan O'Sullivan  committed 3e0a687

Add another benchmark.

  • Participants
  • Parent commits 9be8a43

Comments (0)

Files changed (1)

File benchmarks/Benchmark.hs

+{-# LANGUAGE Rank2Types #-}
+import Control.Monad.ST
+import Criterion.Main
+import System.Random.MWC
+
+main = do
+  gen <- create
+  defaultMain [
+        bench "mwc" (uniform gen :: IO Double)
+        ]