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

bench: added clarification

Browse Source
This commit is contained in:
hellerve 2017-11-06 20:32:59 +01:00
parent f794d7685f
commit dfe57da99d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/Bench.carp
View File

@ -23,6 +23,8 @@
()))
(Double.- (get-time-elapsed) start))))
; it is actually possible to make this run forever by supplying a _really_ longrunning
; function, where long-running is everything over 30ms.
(defn bench [f]
(let [ns (ns-iter-inner f 1)
ns-target-total 1000000.0
@ -67,7 +69,7 @@
(print "Best case: " (Statistics.Summary.min res))
(print "Worst case: " (Statistics.Summary.max res))
(print "Standard deviation: " (Statistics.Summary.stdev res)))
(IO.println "Could not stabilize benchmark after 3 seconds!")))))
(IO.println "Could not stabilize benchmark after more than 3 seconds!")))))
)