mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
36 lines
1.3 KiB
Plaintext
36 lines
1.3 KiB
Plaintext
(defmodule Bench
|
|
(system-include "bench.h")
|
|
|
|
(register get-time-elapsed (Fn [] Double))
|
|
|
|
(defn get-unit [n]
|
|
(cond
|
|
(> n 1000.0) (String.append (Double.str n) "µs")
|
|
(> n 1000000.0) (String.append (Double.str (/ n 1000.0)) "ms")
|
|
(> n 1000000000.0) (String.append (Double.str (/ n 1000000.0)) "s")
|
|
(String.append (Double.str (/ n 1000000000.0)) "s")))
|
|
|
|
(defn print [title n]
|
|
(let [unit (get-unit n)]
|
|
(do
|
|
(IO.println title)
|
|
(IO.println &unit))))
|
|
|
|
(defmacro bench [n form]
|
|
(list 'let ['before (Bench.get-time-elapsed)
|
|
'times []]
|
|
(list 'do
|
|
(list 'for ['i 0 n]
|
|
(list 'let ['before-once (Bench.get-time-elapsed)]
|
|
(list 'do
|
|
form
|
|
(list 'set! × (Array.push-back (Array.copy ×) (Double.- (get-time-elapsed) before-once))))))
|
|
(list 'let ['total (Double.- (Bench.get-time-elapsed) before)
|
|
'per (list 'Double./ 'total (list 'Double.from-int n))]
|
|
(do
|
|
(Bench.print "Total time elapsed: " total)
|
|
(Bench.print "Time elapsed per run (average): " per)
|
|
(Bench.print "Best case: " (Statistics.min ×))
|
|
(Bench.print "Worst case: " (Statistics.max ×))
|
|
(Bench.print "Standard deviation: " (Statistics.stdev ×)))))))
|