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键具有集合，有时还有单个元素，这是一个复杂性，可以卸载到访问此数据的任何其他代码上。

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

1 个答案: