mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
bench: fixed parens
This commit is contained in:
parent
046956d711
commit
041645b298
@ -14,7 +14,7 @@
|
||||
(let [unit (get-unit n)]
|
||||
(do
|
||||
(IO.println title)
|
||||
(IO.println &unit)))
|
||||
(IO.println &unit))))
|
||||
|
||||
(defn ns-iter-inner [f k]
|
||||
(let [start (get-time-elapsed)]
|
||||
@ -22,6 +22,14 @@
|
||||
(for [i 0 n] (f))
|
||||
(Double.- (Bench.get-time-elapsed) before))))
|
||||
|
||||
(defn dbl-cmp [a b]
|
||||
(Double.- a b))
|
||||
|
||||
(defn winsorize [samples pct]
|
||||
(let [tmp (Array.sort samples dbl-cmp)
|
||||
; and now?
|
||||
))
|
||||
|
||||
(defn bench [f]
|
||||
(let [ns (ns-iter-inner f 1)
|
||||
ns-target-total 1000000.0
|
||||
|
Loading…
Reference in New Issue
Block a user