如何对记录列表的键值求和

Question

例如：

{defrecord Item [cost value]}
{def items [(Item. 20 50)
            (Item. 30 40)
            (Item. 10 70)]

我该如何计算物品的成本？（所以我得到60）

Answer 1

user=> (defrecord Item [cost value])
user.Item
user=> (def items [(Item. 20 50)
            (Item. 30 40)
            (Item. 10 70)])
#'user/items   
user=> (reduce + (map :cost items))
60