不同的排序方式一键 Clojure

Question

嘿，我有这个代码，但我只想反转 :a 键。

(sort-by (juxt :a :b) [{:a 1 :b 3} {:a 1 :b 2} {:a 2 :b 1}])
;;=> [{:a 1 :b 2} {:a 1 :b 3} {:a 2 :b 1}]

我试过这个，但这是错误的顺序。

(sort-by (juxt :a :b) #(compare %2 %1)  [{:a 1 :b 3} {:a 1 :b 2} {:a 2 :b 1}])
;;=> ({:a 2, :b 1} {:a 1, :b 3} {:a 1, :b 2})

我想得到。

;;=> ({:a 2, :b 1} {:a 1, :b 2} {:a 1, :b 3})

有任何想法吗？我也可以这样做吗？

Answer 1

(sort-by (juxt (comp - :a) :b) [{:a 1 :b 3} {:a 1 :b 2} {:a 2 :b 1}])