On May 18, 10:47 am, "Heinz N. Gies" <[email protected]> wrote:
> Out of curiosity, can you remove the pmap and run them in the opposite order?
> as first (time (reps-sorted1? dreps)) then (time (reps-sorted2? dreps))?
user=> (time (reps-sorted1? dreps))
"Elapsed time: 8254.967 msecs"
true
(defn reps-sorted2? [dreps]
(->> dreps (map (fn [[_ days]] ; NB pmap 3x slower here!
(let [s (map first days)]
(every? true? (map >= s (cons (first s) s))))))
(every? true?)))
#'user/reps-sorted2?
user=> (time (reps-sorted2? dreps))
"Elapsed time: 15635.756 msecs"
true
Still twice as slower...
-- Alexy
--
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
