I didn't see this original email for some reason, but here's a
simplified version:
(reduce
(fn [coll {a1 :a1 :as value}] (update-in coll [a1] conj value))
{}
data)
This takes advantage of update-in passing nil if it doesn't have the
key and conj with nil returning a seq of one value.
On Sun, Apr 17, 2011 at 12:30 AM, Shoeb Bhinderwala <shua...@gmail.com> wrote:
> Wrote the following function which did the trick:
>
> (defn partn [data]
> (let
> [add-mapping
> (fn [m v]
> (assoc m v (filter #(= v (:a1 %)) data)))]
> (reduce add-mapping {} (set (map #(:a1 %) data))))
>
> On Sat, Apr 16, 2011 at 8:15 PM, shuaybi <shua...@gmail.com> wrote:
>>
>> I am trying to write a function but can't get it right. I need to loop
>> through my data records and for each unique value of :a1 I need to
>> partition the data and create a resulting map so that the key is value
>> of :a1 and the associated value of this key is all records with that
>> value of :a1. Better explained with code, where given the definition
>> of data below, I need to write a function that will return the
>> definition of "result" below.
>>
>> ;data is a list of records (maps)
>> (def data '({:a1 2 :a2 34 :a3 76 :a4 87},
>> {:a1 3 :a2 30 :a3 38 :a4 39},
>> {:a1 2 :a2 67 :a3 32 :a4 38},
>> {:a1 4 :a2 47 :a3 73 :a4 38},
>> {:a1 3 :a2 84 :a3 86 :a4 63}))
>>
>> ;result should be a map, keyed by unique values of :a1 and containing
>> all records for that value of :a1
>> (def result '{2 ({:a1 2 :a2 34 :a3 76 :a4 87}, {:a1 2 :a2 67 :a3
>> 32 :a4 39}), ;list of records where :a1 = 2
>> 3 ({:a1 3 :a2 30 :a3 38 :a4 39}, {:a1 3 :a2 84 :a3
>> 86 :a4 63}), ;list of records where :a1 = 3
>> 4 ({:a1 4 :a2 47 :a3 73 :a4 38}) ;list of records
>> where :a1 = 4
>> })
>>
>> (defn get-val-a1
>> "Return all records in data where :a1 is specified val"
>> [data val]
>> (filter
>> #(= val (:a1 %)) ;filter function
>> data))
>>
>> (defn unique-a1
>> "Get set of all unique :a1 values"
>> [m]
>> (set (map #(:a1 %) m)))
>>
>> ;This is the function I am trying to write but can't get it right.
>> (defn partn [data]
>> (let [val-set (unique-a1 data)) ;get unique :a1 values
>> ret-val {}]
>> (loop [v val-set] ;loop through the unique values
>> (assoc ret-val v (get-val-a1 data v))) ;build final map
>> ret-val))
>>
>>
>
> --
> 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 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
