carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

core: fix bench for new member accesses

Browse Source
This commit is contained in:
hellerve 2018-02-01 17:18:05 +01:00
parent 41327277ae
commit 7b10c28aee
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/Bench.carp
View File

@ -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)