我想替换这种结构,地图载体将矢量地图
{:a [1 2 .. 3] :b [1 2 .. 3] :c [1 2 3 ..]}
此。
[{:a 1 :b 1 c 1} {:a 2 :b 2 :c 2} {:a 3 :b 3 :c 3} ...]
未指定键的数量。
我想替换这种结构,地图载体将矢量地图
{:a [1 2 .. 3] :b [1 2 .. 3] :c [1 2 3 ..]}
此。
[{:a 1 :b 1 c 1} {:a 2 :b 2 :c 2} {:a 3 :b 3 :c 3} ...]
未指定键的数量。
我找到了解决方案,非常难看的解决方案,但它可以解释我需要什么。
#(map (fn [line]
(zipmap (keys %) line))
(partition (count (keys %))
(apply interleave (vals %))))
如果任何人都可以简化这个,那就太好了。
编辑:
#(map (fn [vs]
(zipmap (keys %) vs))(apply map vector (vals %)))
(def z (sorted-map :a [1 2 3 4] :b ["a" "b" "c" "d"] :c [:i :j :k :l]))
(defn x []
(let [k (repeat (keys z))
v (apply map vector (vals z))]
(map zipmap k v)))
user> (x)
({:c :i, :b "a", :a 1} {:c :j, :b "b", :a 2} {:c :k, :b "c", :a 3} {:c :l, :b "d", :a 4})
下面是另一种解决办法
#(mapv
(partial apply merge)
(map val
(group-by (comp second first)
(for [[x y] % z y] (hash-map x z)))))
;=>[{:a 1, :c 1, :b 1} {:a 2, :c 2, :b 2} {:a 3, :c 3, :b 3}]
(let [x {1 [:a :b :c], 2 [:d :e :f], 3 [:g :h :i]}
k (vec (keys x))
r (map #(apply merge %)
(apply map (fn [ & a]
(merge (map-indexed
(fn [idx v] {(k idx) v}) a))) (vals x)))]
(println r))
您可以将'k'定义为'(键x)' – noisesmith
@noisesmith是的,谢谢。决定我不妨提交完整的代码。 –
我们是假设在原始图中的每个向量是相同?即他们都是'[1 2 3 ..]'? –
不,在每个向量中是_random_数据,但每个向量中的对象数是相同的。 – Ribelo