Fix benchmarks for newer mwc-random

data61 · May 3, 2024 · 82ca397 · 82ca397
1 parent 943cd9f
commit 82ca397
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -20,11 +20,15 @@ import           Control.Foldl.Statistics
 -- Test sample
 {-# NOINLINE sample #-}
 sample :: U.Vector Double
-sample = runST $ flip uniformVector 10000 =<< create
+sample = runST $ do
+  g <-  create
+  U.replicateM 10000 (uniformRM (-10.0,10.0) g)
 
 {-# NOINLINE sample2 #-}
 sample2 :: U.Vector (Double,Double)
-sample2 = runST $ flip uniformVector 10000 =<< create
+sample2 = runST $  do
+  g <-  create
+  U.replicateM 10000 (liftA2 (,) (uniformRM (-10.0,10.0) g) (uniformRM (0.2,5.0) g))
 
 {-# NOINLINE absSample #-}
 absSample :: U.Vector Double