On 18 August 2013 12:31, Timo Mihaljov <[email protected]> wrote:
> On 17.08.2013 08:40, David Chelimsky wrote:
>> Which led me to this:
>>
>> (defn to-consolidated-map [parts]
>> (apply merge-with + (map (partial apply hash-map) parts)))
>
> This is exactly what I came up with after reading your first message.
> Apparently Jay Fields took the same approach. I think it's fair to say
> that this is the idiomatic solution, now that three people have come to
> the same result independently. :)
For the record, I don't like this approach at all. You're creating
temporary hash-map's just so you can use the core merge-with function.
I prefer to reduce with a custom accumulator function (I think someone
already posted something along these lines):
(defn accumulate-keys [xs] (reduce (fn [accum [k v]] (assoc accum k (+
v (get accum k 0)))) {} xs))
Mostly a matter of taste, of course.
Ray.
--
--
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
---
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 [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
