Clojure：使用切換鍵和其他地圖中的值創建地圖

Question

我試圖從輸入map創建一種還原索引。輸入地圖我得到的是：

{"id-1" {"values" ["a" "b" "c"]}, "id-2" {"values" ["a" "b" "c"]}} 

然後我想有這等映射作爲結果：

{"a" ["id-1" "id-2"], "b" ["id-1" "id-2"], "c" ["id-1" "id-2"]} 

但是，我認爲，我的腦海裏沒有發瘋，我覺得我畫自己變成角落裏沒有能夠思考的框框。下面是我得到了什麼，到目前爲止，它看起來像它太臭：

(->> {"id-1" {"values" ["a" "b" "c"]} "id-2" {"values" ["a" "b" "c"]}} 
     (map #(->> (get (second %) "values") 
       (map (fn [x y] (hash-map y x)) (into [] (repeat (count (get (second %) "values")) (first %)))) 
       (apply merge-with concat))) 
     (apply merge-with concat)) 

基本上，我仍然使用在「迭代」在我所有的輸入值第一map。然後，我使用第二個圖來創建一系列單獨的地圖看起來像：

({"a" "id-2"} {"b" "id-2"} {"c" "id-2"} {"a" "id-1"} {"b" "id-1"} {"c" "id-1"}) 

爲了達到這樣的地圖，我創建使用into [] (repeat ..)與價值觀的陣列一起喂到地圖中間陣列。

然後我將它們合併在一起以獲得我的期望值。

兩個問題在這裏：

1. 這似乎真的要複雜得多，比我的直覺，這是

2. ，因爲我得到這個當前的最終結果尚不完善：

   {「a」（\ i \ d - \ 1 \ i \ d - \ 2），「b」（\ i \ d - \ 1 \ i \ d - \ 2） \ 1 \ i \ d - \ 2）}

Answer 1

鑑於此inpu T：

(def input {"id-1" {"values" ["a" "b" "c"]}, "id-2" {"values" ["a" "b" "c"]}}) 

很容易做到：

(defn extract [key values] 
    (for [v (get values "values")] {v [key]})) 

(->> input 
    (mapcat (partial apply extract)) 
    (apply merge-with concat)) 

，或者沒有附加功能：

(->> (for [[k vs] input] 
     (for [v (get vs "values")] {v [k]})) 
    (flatten) 
    (apply merge-with concat)) 

其中運作的，你希望的方式。

訣竅是將key換成extract函數的向量，所以merge-with concat不需要串聯字符串。

Answer 2

使用map destructuring：

(apply merge-with into (for [[k {vs "values"}] input, v vs] {v [k]})) 

更清晰

(apply merge-with into 
    (for [[k m] input 
     v (get m "values")] 
    {v [k]}))