Clojure:地图中的圆形bigInt

Question

我需要一些地图方面的帮助。使用jdbc/query从数据库中获取数据后，结果如下所示：

({:product_id 1, :name product1, :rating 3.000M}
 {:product_id 2, :name product2, :rating 1.333M}
 {:product_id 3, :name product3}, :rating nil)

我想用Selmer显示所有内容，但我只想要逗号后面的1个数字。如下所示：

({:product_id 1, :name product1, :rating 3.0}
 {:product_id 2, :name product2, :rating 1.3}
 {:product_id 3, :name product3}, :rating nil)

我发现了如何迭代映射，但我不知道如何更改特定值。查询数据保存在data中

(doseq [keyval data]
  (doseq [keyval2 keyval]
    (doseq [keyval3 keyval2]
      (prn keyval3))))

你能帮我创建一个新的data变量吗？谢谢!

Answer 1

(defn round2
  "Round a double to the given precision (number of significant digits)"
  [precision d]
  (let [factor (Math/pow 10 precision)]
    (/ (Math/round (* d factor)) factor)))

(map #(assoc % :rating (when-some [r (:rating %)] (round2 1 r)))
    '({:product_id 1, :name 'product1, :rating 3.000M}
      {:product_id 2, :name 'product2, :rating 1.333M}
      {:product_id 3, :name 'product3, :rating nil}))

Answer 2

clojure数据是不可变的，所以您不能以一种常见的方式更新它。相反，您可以复制数据，并使用clojure的数据操作函数添加所需的更改。更好的介绍可以在这里找到：http://www.braveclojure.com/functional-programming/

所以你要做的就是这样

user> (defn round-to [^Double num places] (when num (Math/round num)))
#'user/round-to ;; not-a-real-round-to (simplified for brevity)

user> (def data '({:product_id 1, :name product1, :rating 3.000M}
                  {:product_id 2, :name product2, :rating 1.333M}
                  {:product_id 3, :name product3, :rating nil}))
#'user/data

user> (map #(update % :rating round-to 2) data)
;;=> ({:product_id 1, :name product1, :rating 3} 
;;    {:product_id 2, :name product2, :rating 1} 
;;    {:product_id 3, :name product3, :rating nil})