具有 java 背景的 clojure 新手。我有下表,需要将该表转换为 HashMap ,将产品映射到销售额最高的城市。例如,输出应如下所示:
{"Pencil": "Toronto"
"Bread": "Ottawa"}
(def table [
{:product "Pencil"
:city "Toronto"
:year "2010"
:sales "2653.00"}
{:product "Pencil"
:city "Oshawa"
:year "2010"
:sales "525.00"}
{:product "Bread"
:city "Toronto"
:year "2010"
:sales "136,264.00"}
{:product "Bread"
:city "Oshawa"
:year "nil"
:sales "242,634.00"}
{:product "Bread"
:city "Ottawa"
:year "2011"
:sales "426,164.00"}])
这是我到目前为止所拥有的:
(reduce (fn [product-cities {:keys [product sales]}]
(update-in product-cities [product] (fnil conj []) sales))
{}
table)
这会产生结果:
{"Bread"
["136,264.00"
"242,634.00"
"426,164.00"],
"Pencil" ["2653.00" "525.00"]}
如何比较每个城市的销售额,并且只保留销售额最高的城市名称?经历了一段非常艰难的时期。谢谢
最佳答案
clojure.core中有一个方便的函数max-key
,非常适合这种情况:
(defn process [table]
(let [parseDouble #(Double/parseDouble (clojure.string/replace % #"," ""))]
(->> table
(group-by :product)
(map (comp (juxt :product :city)
(partial apply max-key (comp parseDouble :sales))
val))
(into {}))))
user> (process table)
;;=> {"Pencil" "Toronto", "Bread" "Ottawa"}
关键是 (partial apply max-key (comp parseDouble :sales))
部分在组中查找具有最大解析销售值的记录。
关于clojure - 使用reduce找到最大值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47291914/