mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
core: fix bench for new member accesses
This commit is contained in:
parent
41327277ae
commit
7b10c28aee
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user