如何将矢量映射到地图,将重复键值推入其中？

[[:a 1 2] [:a 3 4] [:a 5 6] [:b a b] [:b c d] [:b e f]]

我想将此映射到以下内容：

{:a [[1 2] [3 4] [5 6]] :b [[a b] [c d] [e f]]}

这是我到目前为止：

(defn- build-annotation-map [annotation & m]
 (let [gff (first annotation)
       remaining (rest annotation)
       seqname (first gff)
       current {seqname [(nth gff 3) (nth gff 4)]}]
   (if (not (seq remaining))
     m
     (let [new-m (merge-maps current m)]
       (apply build-annotation-map remaining new-m)))))

(defn- merge-maps [m & ms]
  (apply merge-with conj
         (when (first ms)                                                                                                              
           (reduce conj                     ;this is to avoid [1 2 [3 4 ... etc.                                                                                                          
                   (map (fn [k] {k []}) (keys m))))                                                                                    
         m ms))

以上产生：

{:a [[1 2] [[3 4] [5 6]]] :b [[a b] [[c d] [e f]]]}

我似乎很清楚问题出在merge-maps中,特别是传递给merge-with(conj)的函数,但是在我敲了一会儿之后,我已经准备好帮助我了.

我一般都是lisp的新手,特别是clojure,所以我也很欣赏那些没有专门针对这个问题的评论,还有我的风格,脑死亡构造等等.谢谢！

解决方案(无论如何,足够接近)：

(group-by first [[:a 1 2] [:a 3 4] [:a 5 6] [:b a b] [:b c d] [:b e f]])
=> {:a [[:a 1 2] [:a 3 4] [:a 5 6]],:b [[:b a b] [:b c d] [:b e f]]}