Clojure-如何将两个/多个映射合并到单个映射中，这些映射对于某些键具有相同的值

Question

我正在学习如何习惯性地破坏Clojure中的数据结构，目前有以下示例数据

数据：

(def data [
{:category "A", :vertical_name "One", :vertical_id 11}
{:category "B", :vertical_name "Two", :vertical_id 12}
{:category "A", :vertical_name "Three", :vertical_id 13}
{:category "C", :vertical_name "Four", :vertical_id 14}
])

我想将两个/多个地图合并为一个地图，这些地图属于上述数据中的同一类别，

预期产量：

{{:category "A", :vertical [{:vertical_id 11, :vertical_name "One"}{:vertical_id 13,  :vertical_name "Three"}]}
{:category "B", :vertical {:vertical_id 12, :vertical_name "Two"}}
{:category "C", :vertical {:vertical_id 14, :vertical_name "Four"}}}

我尝试了分组方式，这给了我

{"A" [{:category "A", :vertical_name "One", :vertical_id 11} {:category "A", :vertical_name "Three", :vertical_id 13}],
"B" [{:category "B", :vertical_name "Two", :vertical_id 12}],
"C" [{:category "C", :vertical_name "Four", :vertical_id 14}]}

但这有很多冗余信息，例如:category "A"存在于所有地图中，输出格式不是我想要的方式。

先谢谢您的帮助。

Answer 1

user> (->> data
        (group-by :category)
        (map (fn [[k v]]
                 (let [vertical (map #(dissoc % :category) v)
                       vertical (if (< (count vertical) 2)
                                  (first vertical)
                                  (vec vertical))]
                   {:category k
                    :vertical vertical})))
        set)

#{{:category "A", :vertical [{:vertical_name "One", :vertical_id 11} {:vertical_name "Three", :vertical_id 13}]} {:category "B", :vertical {:vertical_name "Two", :vertical_id 12}} {:category "C", :vertical {:vertical_name "Four", :vertical_id 14}}}

这是您描述的格式，但是对于大多数用法而言，它会比group-by提供的输出更糟糕。 与group-by结果不同，随着结果大小的缩放，您不能有效地查找给定类别。 此外，与group-by的结果不同，有时:vertical键具有一个集合，有时具有一个元素，并且这是转移到访问该数据的任何其他代码上的一部分复杂性。