sorting - 在 Clojure 中返回数组映射内的最高键值对

Question

我有一个返回以下数组映射的函数：

{{498 3} {-498 3}, {99 2} {-99 2}, {499 2} {-499 2}, {100 1} {-100 1}}

我想返回 2，因为它有最高的键，499。什么是最好的方法？

Answer 1

如果您的地图很大，这不是最有效的方法，但它可以：

(def am {{498 3} {-498 3}, {99 2} {-99 2}, {499 2} {-499 2}, {100 1} {-100 1}})

(->> am (map key) (sort-by first) last vals first) 

=> 2

Answer 2

如果要表示数字之间的关系，则不需要地图。你可能需要一张这样的地图：

user> (def foo {498 3, -498 3, 99 2, -99 2, 499 2, -499 2, 100 1, -100 1})
;; => #'user/foo

相信我，这更惯用，所以您可能应该考虑重写返回地图地图（或地图矢量）的函数。

要解决您的实际问题，请尝试使用max-key，因为它是专为此类情况创建的有效功能。以下是如何将它与地图一起使用：

user> (second (apply max-key first foo))
;; => 2

Answer 3

((comp val first key)
 (apply max-key
        (comp key first key)
        {{498 3} {-498 3}, {99 2} {-99 2}, {499 2} {-499 2}, {100 1} {-100 1}}))

这将找到映射中具有最高第一个键的第一个（按规范唯一？）条目的值。

Answer 4

在您的问题中，您显示了一个地图，其中地图作为键和值。但是您似乎希望将键和值视为正常序列中的元素，所以我猜您实际上是指以下内容：

[{498 3} {-498 3} {99 2} {-99 2} {499 2} {-499 2} {100 1} {-100 1}]

在这种情况下，此函数返回您希望的值：

(defn val-for-highest-key
  [s]
  (->> s (map #(into [] %)) (map first) (apply max-key first) second))

测试：

(def res [{498 3} {-498 3} {99 2} {-99 2} {499 2} {-499 2} {100 1} {-100 1}])
(val-for-highest-key res)

结果：

=> 2

Answer 5

尝试这个：

(let [fval (comp val first)
      fkey (comp key first)]
  (fval
   (reduce
    (fn [v e] (if (< (fkey v) (fkey e)) e v))
    (keys {{498 3} {-498 3}, {99 2} {-99 2}, {499 2} {-499 2}, {100 1} {-100 1}}))))