From 7b10c28aee15cc8efb9650f7413c19ac808a044e Mon Sep 17 00:00:00 2001 From: hellerve Date: Thu, 1 Feb 2018 17:18:05 +0100 Subject: [PATCH] core: fix bench for new member accesses --- core/Bench.carp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/core/Bench.carp b/core/Bench.carp index 5e3e22d5..cb81c43e 100644 --- a/core/Bench.carp +++ b/core/Bench.carp @@ -33,9 +33,9 @@ (defn print-bench-results [res total] (do (print "Total time elapsed: " total) - (print "Best case: " (Statistics.Summary.min res)) - (print "Worst case: " (Statistics.Summary.max res)) - (print "Standard deviation: " (Statistics.Summary.stdev res)))) + (print "Best case: " @(Statistics.Summary.min res)) + (print "Worst case: " @(Statistics.Summary.max res)) + (print "Standard deviation: " @(Statistics.Summary.stdev res)))) (defn get-samples [f n] (let [zero 0.0 @@ -67,10 +67,10 @@ (if (and (Double.> loop-run 100000.0) (and - (Double.< (Statistics.Summary.median-abs-dev-pct &summ) 1.0) - (Double.< (Double.- (Statistics.Summary.median &summ) - (Statistics.Summary.median &summ5)) - (Statistics.Summary.median-abs-dev &summ5)))) + (Double.< @(Statistics.Summary.median-abs-dev-pct &summ) 1.0) + (Double.< (Double.- @(Statistics.Summary.median &summ) + @(Statistics.Summary.median &summ5)) + @(Statistics.Summary.median-abs-dev &summ5)))) (do (set! &total (Double.+ total loop-run)) (set! &done true)