status-im
/
timbre
mirror of https://github.com/status-im/timbre.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Housekeeping: profiling & freqs

This commit is contained in:
Peter Taoussanis 2013-07-20 00:29:08 +07:00
parent ce9ea0ac76
commit 807cb40e0f
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/taoensso/timbre/frequencies.clj
View File

@ -69,9 +69,8 @@
sorted-fvs (sorted-fvals form-stats)] sorted-fvs (sorted-fvals form-stats)]
(str fname " " (str fname " "
(str/join " " (str/join " "
;; TODO mapv Clojure 1.4+ (mapv (fn [v] (vector v (get form-stats v 0)))
(vec (map (fn [v] (vector v (get form-stats v 0))) sorted-fvs))))))))
sorted-fvs)))))))))
(comment (format-fdata {:name1 {:a 10 :b 4 :c 20} (comment (format-fdata {:name1 {:a 10 :b 4 :c 20}
:name2 {33 8 12 2 false 6}})) :name2 {33 8 12 2 false 6}}))

7
src/taoensso/timbre/profiling.clj
View File

@ -66,8 +66,9 @@
For performance, stats are calculated once only after all data have been For performance, stats are calculated once only after all data have been
collected." collected."
[pdata] [pdata]
(reduce (fn [m [pname times]] ; TODO reduce-kv for Clojure 1.4+ (reduce-kv
(let [count (count times) (fn [m pname times]
(let [count (max 1 (count times))
time (reduce + times) time (reduce + times)
mean (long (/ time count)) mean (long (/ time count))
mad (long (/ (reduce + (map #(Math/abs (long (- % mean))) mad (long (/ (reduce + (map #(Math/abs (long (- % mean)))
@ -79,7 +80,7 @@
:mean mean :mean mean
:mad mad :mad mad
:time time}))) :time time})))
{} pdata)) {} (or pdata {})))
(defn format-pdata (defn format-pdata
[stats & [sort-field]] [stats & [sort-field]]