按方案中对的第二个元素对对列表进行排序

Question

我在方案中有一个程序，它给了我一个对列表，我需要按对的第二个元素对这个列表进行降序排序。像这样：

((1 . 1) (2 . 3) (3 . 2)) --> ((2 . 3) (3 . 2) (1 . 1))
((1 . 1) (x . 3) (2 . 1) (3 . 1)) --> ((x . 3) (1 . 1) (2 . 1) (3 . 1))
((1 . 3) (3 . 4) (2 . 2)) --> ((3 . 4) (1 . 3) (2 . 2))

我不知道我应该如何为此使用排序。

Answer 1

只需使用内置sort程序：

(define (sort-desc-by-second lst)
  (sort lst
        (lambda (x y) (> (cdr x) (cdr y)))))

(sort-desc-by-second '((1 . 1) (2 . 3) (3 . 2)))
=> '((2 . 3) (3 . 2) (1 . 1))

这里的技巧是将sort第二个参数传递给适当的比较过程。