Repository : ssh://darcs.haskell.org//srv/darcs/packages/random On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4e59067b82aa2bc3fe0e2f7748f37e99693d1d92 >--------------------------------------------------------------- commit 4e59067b82aa2bc3fe0e2f7748f37e99693d1d92 Author: Ryan Newton <[email protected]> Date: Sun Jun 26 23:02:49 2011 -0400 Bumped the version number to 1.0.0.4 because of the previous. >--------------------------------------------------------------- Benchmark/SimpleRNGBench.hs | 14 +++++++++++--- CHANGELOG.txt | 4 ++++ random.cabal | 2 +- 3 files changed, 16 insertions(+), 4 deletions(-) diff --git a/Benchmark/SimpleRNGBench.hs b/Benchmark/SimpleRNGBench.hs index 4b4d42d..fcaed80 100644 --- a/Benchmark/SimpleRNGBench.hs +++ b/Benchmark/SimpleRNGBench.hs @@ -32,6 +32,10 @@ import Foreign.Storable (peek,poke) import Benchmark.BinSearch import Prelude hiding (last,sum) +#ifdef TEST_COMPETITORS +import System.Random.Mersenne.Pure64 (pureMT) +#endif + ---------------------------------------------------------------------------------------------------- -- Miscellaneous helpers: @@ -263,8 +267,8 @@ main = do gen = mkStdGen 23852358661234 gamut th = do putStrLn$ " First, timing System.Random.next:" - timeit th freq "constant zero gen" NoopRNG next - timeit th freq "System.Random stdGen" gen next + timeit th freq "constant zero gen" NoopRNG next + timeit th freq "System.Random stdGen/next" gen next putStrLn$ "\n Second, timing System.Random.random at different types:" timeit th freq "System.Random Ints" gen randInt @@ -286,7 +290,6 @@ main = do timeit th freq "System.Random Integers" gen (randomR (-100, 100::Integer)) timeit th freq "System.Random Bools" gen (randomR (False, True::Bool)) - -- when (not$ NoC `elem` opts) $ do -- putStrLn$ " Comparison to C's rand():" -- timeit_foreign th freq "ptr store in C loop" store_loop @@ -295,6 +298,11 @@ main = do -- timeit_foreign th freq "rand/store in Haskell loop" (\n ptr -> forM_ [1..n]$ \_ -> do n <- rand; poke ptr n ) -- return () +#ifdef TEST_COMPETITORS + let gen_mt = pureMT 39852 + timeit th freq "System.Random.Mersenne.Pure64 next" gen_mt next +#endif + -- Test with 1 thread and numCapabilities threads: gamut 1 when (numCapabilities > 1) $ do diff --git a/CHANGELOG.txt b/CHANGELOG.txt new file mode 100644 index 0000000..bb4f39a --- /dev/null +++ b/CHANGELOG.txt @@ -0,0 +1,4 @@ + + +1.0.0.4 -- bumped version for float/double range bugfix + diff --git a/random.cabal b/random.cabal index f3b4f88..1536111 100644 --- a/random.cabal +++ b/random.cabal @@ -1,5 +1,5 @@ name: random -version: 1.0.0.3 +version: 1.0.0.4 license: BSD3 license-file: LICENSE maintainer: [email protected] _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
