我的代码
(defn iden-keys-vals
[coll]
(reduce (fn [m a]
(if (keyword? a)
(assoc m a [])
(let [[k v] (last m)]
(assoc m k (conj v a)))))
{}
coll))
我的代码
(defn iden-keys-vals
[coll]
(reduce (fn [m a]
(if (keyword? a)
(assoc m a [])
(let [[k v] (last m)]
(assoc m k (conj v a)))))
{}
coll))