Question

我没有找到很多关于对地图矢量进行操作的文档或编码示例。例如，如果我有

(def student-grades 
 [{:name "Billy" :test1 74 :test2 93 :test3 89} 
  {:name "Miguel" :test1 57 :test2 79 :test3 85}
  {:name "Sandy" :test1 86 :test2 97 :test3 99}
  {:name "Dhruv" :test1 84 :test2 89 :test3 94}])

我想为测试平均值添加或关联一个新的键值对，我应该阅读哪些函数？如果有人知道Clojure中地图矢量的任何参考/资源，请分享！非常感谢！

Answer 1

在这种情况下，你想要映射一个函数而不是集合（恰好是一个向量）;对于集合中的每个元素（恰好是地图 - 不幸的命名碰撞），你想生成一个新地图，它包含旧地图的所有键值对，加上一个新键，让我们说：平均

e.g。

(into [] ; optional -- places the answer into another vector
  (map   ; apply the given function to every element in the collection
    (fn [sg] ; the function takes a student-grade
      (assoc sg ; and with this student-grade, creates a new mapping
        :avg    ; with an added key called :avg
        (/ (+ (:test1 sg) (:test2 sg) (:test3 sg)) 3.0)))
    student-grades  ; and the function is applied to your student-grades vector
))

ps 您可以使用（doc fn-name）获取文档;如果你是Clojure的新手，我建议和irc.freenode.net #clojure上的友好朋友一起出去读一本书 - 我最喜欢的是Programming Clojure，但我还在等待O'Reilly的即将到来Clojure书，屏住呼吸。

Answer 2

Hircus已经提供了一个很好的答案，但这是另一个用于比较的实现：

(defn average [nums]
  (double (/ (apply + nums) (count nums))))

(map 
  #(assoc % :avg (average ((juxt :test1 :test2 :test3) %)))
  student-grades)

=> ({:avg 85.33333333333333, :name "Billy", :test1 74, :test2 93, :test3 89} etc....)

备注：

通常值得将诸如“平均”之类的通用功能分离为一个单独的，命名良好的功能
juxt一般来说非常有用，可以从地图中提取特定的组件值列表

处理在Clojure的地图传染媒介

2 个答案: