Add back in benmarks

haskell · May 4, 2024 · 56b1aa7 · 56b1aa7
1 parent 098f578
commit 56b1aa7
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/bench/Benchmark.hs b/bench/Benchmark.hs
@@ -83,7 +83,10 @@ main = do
           | l <- [0.01, 0.2, 0.8, 1.3, 2.4, 8, 12, 100, 1000]
           ]
         , [ bench ("binomial " ++ show p ++ " " ++ show n) $ nfIO (genFromTable (tableBinomial n p) mwc :: IO Int)
-          | (n,p) <- [ (4, 0.5), (10,0.1), (10,0.6), (10, 0.8), (100,0.4)]
+          | (n,p) <- [ (4, 0.5), (10,0.1), (10,0.6), (10, 0.8), (100,0.4), (1400, 0.4)]
+          ]
+        , [ bench ("binomiak " ++ show p ++ " " ++ show n) $ nfIO (binomial n p mwc :: IO Int)
+          | (n,p) <- [ (4, 0.5), (10,0.1), (10,0.6), (10, 0.8), (100,0.4), (1400, 0.4)]
           ]
         ]
       , bgroup "CT/table" $ concat

diff --git a/shell.nix b/shell.nix
@@ -21,7 +21,7 @@ let
   pkgs = nixpkgs;
 
   haskellDeps = ps: with ps; [
-    base doctest math-functions mwc-random primitive random tasty-hunit tasty-quickcheck vector
+    base doctest gauge math-functions mersenne-random mwc-random primitive random tasty-hunit tasty-quickcheck vector
   ];
 
 in