Clojure 从 zipmap 中获得最高价值

所以我在这里得到了我建议的邮政地图，它工作得很好。正如你所看到的，我已经加载了数据。

这就是 repl 中的样子，非常完美。 这是地图

:Year 2020, :Day 27, :January 59, :February 38
:Year 2020, :Day 28, :January 41, :February 57
:Year 2020, :Day 29, :January 56, :February 51
:Year 2020, :Day 31, :January 94, :February -999
:Year 2020, :Day 30, :January 76, :February -999 

(map [:Day :Month

请记住，这只是我所做的代码的一个片段。您建议我如何找到一月中价值最高的一天？我所说的最高是指月份旁边的数字

(into(sorted-map-by >(fn [:January]))Ha) 

我尝试这样做没有成功，最后的“Ha”只是我初始化 zipmap 并使用 io/reader 读取文件的函数的名称

我会用max-key https://clojuredocs.org/clojure.core/max-key and reduce https://clojuredocs.org/clojure.core/reduce:

(def data [{:Year 2020, :Day 27, :January 59, :February 38}
           {:Year 2020, :Day 28, :January 41, :February 57}
           {:Year 2020, :Day 29, :January 56, :February 51}
           {:Year 2020, :Day 31, :January 94, :February -999}
           {:Year 2020, :Day 30, :January 76, :February -999}])

(reduce (partial max-key :January) data)
;; => {:Year 2020, :Day 31, :January 94, :February -999}

(:Day (reduce (partial max-key :January) data))
;; => 31