From fd49dce7ad1d0a3f84ae267eb15939c1fa588b31 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 13 Sep 2016 22:43:34 -0400 Subject: another benchamrk --- Benchmark.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Benchmark.hs') diff --git a/Benchmark.hs b/Benchmark.hs index a46e9f4..815053c 100644 --- a/Benchmark.hs +++ b/Benchmark.hs @@ -82,7 +82,7 @@ benchmarkPoW rounds seconds = do let Just mk = mkProofOfWorkRequirement seconds s <- newRequestIDSecret rid <- mkRequestID s - benchmark rounds (CPUCost (seconds * Seconds (fromIntegral rounds)) (Divisibility 1)) + benchmark rounds (CPUCost (seconds * fromIntegral rounds)) (Divisibility 1)) (return . genProofOfWork (mk rid)) benchmarkTunables :: Tunables -> IO () @@ -90,6 +90,9 @@ benchmarkTunables tunables = do putStrLn "/proc/cpuinfo:" putStrLn =<< readFile "/proc/cpuinfo" + putStrLn "Benchmarking 1 round of maximum size proof of work..." + print =<< benchmarkPoW 1 (maxProofOfWork / 2) + putStrLn "Benchmarking 1000 rounds of proof of work hash..." print =<< benchmarkExpensiveHash 1000 (proofOfWorkHashTunable 0) -- cgit v1.2.3