vector - 如何将向量映射到 map ，并将重复的键值插入其中？

Question

这是我的输入数据:

[[: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]]}

Answer 1

(defn build-annotations [coll]
  (reduce (fn [m [k & vs]]
            (assoc m k (conj (m k []) (vec vs))))
          {} coll))

关于您的代码，最重要的问题是命名。首先，我不会(尤其是在没有首先理解您的代码的情况下)了解注释、gff 和 seqname 的含义。 current 也相当模糊。在 Clojure 中，remaining 通常被称为 more，具体取决于上下文以及是否应使用更具体的名称。

在 let 语句中，gff(第一个注释)
剩余(剩余注释)，我可能会利用解构，如下所示:

(让[[第一个和更多]注释] ...)

如果您更愿意使用(剩余注释)，那么我建议使用next，因为如果它为空，它将返回nil ，并允许您编写 (if-not left ...) 而不是 (if-not (seq left) ...)。

user> (next [])
nil
user> (rest [])
()

在 Clojure 中，与其他 Lisp 不同，空列表是真实的。

This文章展示了惯用命名的标准。