mwc-random 0.5.1.2 → 0.5.1.3

raw patch · 3 files changed

+28/−2 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

benchmarks/Benchmark.hs +10/−0
benchmarks/Quickie.hs +13/−0
mwc-random.cabal +5/−2

+ benchmarks/Benchmark.hs view

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

+ benchmarks/Quickie.hs view

@@ -0,0 +1,13 @@+{-# LANGUAGE BangPatterns #-}+import System.Random.MWC (create, uniform)+import Control.Monad.ST (ST, runST)++u :: ST s Double+u = do+  let last = 1000000 :: Int+  gen <- create+  let loop !n !i | n == last = return i+                 | otherwise = uniform gen >>= loop (n+1)+  loop 0 0++main = print (runST u)

mwc-random.cabal view

@@ -1,5 +1,5 @@ name:           mwc-random-version:        0.5.1.2+version:        0.5.1.3 synopsis:       Fast, high quality pseudo random number generation description:   This package contains code for generating high quality random@@ -23,7 +23,10 @@ category:       Math, Statistics build-type:     Simple cabal-version:  >= 1.2-extra-source-files: README+extra-source-files:+  README+  benchmarks/Benchmark.hs+  benchmarks/Quickie.hs  library   exposed-modules: