speedy-slice

commit b8744f4d5bfcfbe6630e4654c11c790535b8eb22
parent 3f342f7d7dc7288f307c40e846763e960448b0a1
Author: Jared Tobin <jared@jtobin.ca>
Date:   Tue,  1 Nov 2016 09:37:48 +1300

Smaller test output. [ci skip]

Diffstat:
M
test/BNN.hs
 | 
2
+-
M
test/Rosenbrock.hs
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/BNN.hs b/test/BNN.hs
@@ -11,5 +11,5 @@ bnn xs = -0.5 * (x0 ^ 2 * x1 ^ 2 + x0 ^ 2 + x1 ^ 2 - 8 * x0 - 8 * x1) where
   x1 = index xs 1
 
 main :: IO ()
-main = withSystemRandom . asGenIO $ mcmc 10000 1 (fromList [0, 0]) bnn
+main = withSystemRandom . asGenIO $ mcmc 100 1 (fromList [0, 0]) bnn
 
diff --git a/test/Rosenbrock.hs b/test/Rosenbrock.hs
@@ -8,6 +8,6 @@ rosenbrock :: [Double] -> Double
 rosenbrock [x0, x1] = negate (5  *(x1 - x0 ^ 2) ^ 2 + 0.05 * (1 - x0) ^ 2)
 
 main :: IO ()
-main = withSystemRandom . asGenIO $ mcmc 10000 1 [0, 0] rosenbrock
+main = withSystemRandom . asGenIO $ mcmc 100 1 [0, 0] rosenbrock