For storing timing results of expressions, I make use of an agent to store
them in, and a modified time macro.
(def timings (agent []))
(defmacro send-timing
"Evaluates expr and prints the time it took. Returns the value of
expr."
{:added "1.0"}
[agnt expr]
`(let [start# (System/currentTimeMillis)
ret# ~expr
end# (System/currentTimeMillis)]
(send ~agnt conj {:expression '~expr
:start start#
:end end#
:duration (- end# start#)})
ret#))
(send-timing timings (Thread/sleep 3000))
@timings
=> [{:expression (Thread/sleep 3000), :duration 3000, :start 1397313034715,
:end 1397313037715}]
On Saturday, April 12, 2014 2:13:44 PM UTC+2, Cecil Westerhof wrote:
>
> At the moment I have the following:
> (def numbers '(4 6 8 10))
>
> (doseq [number numbers]
> (foo number))
>
> The call foo generates some output, but I also want to save the time it
> took for the call to complete. At the moment I am thinking about
> something like:
> (def numbers '(4 6 8 10))
>
> (def ^:dynamic needed-times ())
> (doseq [number numbers]
> (let [start (now)]
> (foo number)
> (def ^:dynamic needed-times
> (cons (- (.getTimeInMillis (now))
> (.getTimeInMillis start))
> needed-times))))
>
> But it looks a ‘little’ cumbersome. Is there a better way to do this?
>
> Also if I need to use several points in time, do I keep nesting ‘let’,
> or is there a better way?
>
> --
> Cecil Westerhof
>
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
