Permalink
Browse files

Bumped the version number to 1.0.0.4 because of the previous.

  • Loading branch information...
1 parent ca16c62 commit 4e59067b82aa2bc3fe0e2f7748f37e99693d1d92 @rrnewton rrnewton committed Jun 27, 2011
Showing with 16 additions and 4 deletions.
  1. +11 −3 Benchmark/SimpleRNGBench.hs
  2. +4 −0 CHANGELOG.txt
  3. +1 −1 random.cabal
View
14 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
View
4 CHANGELOG.txt
@@ -0,0 +1,4 @@
+
+
+1.0.0.4 -- bumped version for float/double range bugfix
+
View
2 random.cabal
@@ -1,5 +1,5 @@
name: random
-version: 1.0.0.3
+version: 1.0.0.4
license: BSD3
license-file: LICENSE
maintainer: rrnewton@gmail.com

0 comments on commit 4e59067

Please sign in to comment.