mwc-random-0.5.1.3: 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)
        ]