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

Swap `utils/round-to` arg order

This commit is contained in:
Peter Taoussanis 2013-01-24 21:58:28 +07:00
parent 9179e393d7
commit b1d60d1bee
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,7 +29,7 @@
(defn plog-stats (defn plog-stats
"{::pname [time1 time2 ...] ...} => {::pname {:min <min-time> ...} ...}" "{::pname [time1 time2 ...] ...} => {::pname {:min <min-time> ...} ...}"
[plog] [plog]
(reduce (fn [m [pname times]] (reduce (fn [m [pname times]] ; TODO reduce-kv for Clojure 1.4+
(let [count (count times) (let [count (count times)
time (reduce + times) time (reduce + times)
mean (long (/ time count)) mean (long (/ time count))
@ -68,7 +68,7 @@
ft (fn [nanosecs] ft (fn [nanosecs]
(let [pow #(Math/pow 10 %) (let [pow #(Math/pow 10 %)
ok-pow? #(>= nanosecs (pow %)) ok-pow? #(>= nanosecs (pow %))
to-pow #(utils/round-to (/ nanosecs (pow %1)) %2)] to-pow #(utils/round-to %2 (/ nanosecs (pow %1)))]
(cond (ok-pow? 9) (str (to-pow 9 1) "s") (cond (ok-pow? 9) (str (to-pow 9 1) "s")
(ok-pow? 6) (str (to-pow 6 0) "ms") (ok-pow? 6) (str (to-pow 6 0) "ms")
(ok-pow? 3) (str (to-pow 3 0) "μs") (ok-pow? 3) (str (to-pow 3 0) "μs")

6
src/taoensso/timbre/utils.clj
View File

@ -47,11 +47,11 @@
(defn round-to (defn round-to
"Rounds argument to given number of decimal places." "Rounds argument to given number of decimal places."
[x places] [places x]
(if (zero? places) (if (zero? places)
(Math/round (double x)) (Math/round (double x))
(let [modifier (Math/pow 10.0 places)] (let [modifier (Math/pow 10.0 places)]
(/ (Math/round (* x modifier)) modifier)))) (/ (Math/round (* x modifier)) modifier))))
(comment (round-to 10 0) (comment (round-to 0 10)
(round-to 10.123 2)) (round-to 2 10.123))