fixed it
(defn t [m]
(let [r (java.util.Random.)]
(dotimes [i m] (. r nextDouble)))
(Thread/sleep 1000))
(defn testmap [f n m]
(time (doall (f t (repeat n m)))))
user=> (testmap map 8 2000000)
"Elapsed time: 8869.942784 msecs"
(nil nil nil nil nil nil nil nil)
user=> (testmap pmap 8 2000000)
"Elapsed time: 1178.490827 msecs"
(nil nil nil nil nil nil nil nil)
thanks
art
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
