(defn summarize
"Takes the raw data returned by with-profile-data and returns a map
from names to summary statistics. Each value in the map will look
like:
{:mean ..., :min ..., :max ..., :count ..., :sum ...}
:mean, :min, and :max are how long the profiled section took to run,
in nanoseconds. :count is the total number of times the profiled
section was executed. :sum is the total amount of time spent in the
profiled section, in nanoseconds."
[profile-data]
(reduce (fn [m [k v]]
(let [cnt (count v)
sum (reduce + v)]
(assoc m k {:mean (int (/ sum cnt))
:min (apply min v)
:max (apply max v)
:count cnt
:sum sum})))
{} profile-data))
Used in 0 other vars
Source
clojure/contrib/profile.clj:73
top
Comments top
No comments for summarize. Log in to add a comment.