Source
clojure/contrib/profile.clj:95
top
(defn print-summary
"Prints a table of the results returned by summarize."
[profile-summary]
(let [name-width (apply max 1 (map (comp count name) (keys profile-summary)))
fmt-string (str "%" name-width "s %8d %8d %8d %8d %8d%n")]
(printf (.replace fmt-string \d \s)
"Name" "mean" "min" "max" "count" "sum")
(doseq [k (sort (keys profile-summary))]
(let [v (get profile-summary k)]
(printf fmt-string (name k) (:mean v) (:min v) (:max v) (:count v) (:sum v))))))
Comments top
No comments for print-summary. Log in to add a comment.