如何对包含子列表的列表进行排序

Question

对颜色列表进行排序。

如果两种颜色的红色值相同，则绿色值较小的颜色在排序中首先出现。如果两种颜色具有相同的红色和绿色值，则蓝色值较小的颜色在排序中首先出现。

示例：让颜色列表为

((72 75 0) (0 0 10) (255 255 255) (0 10 10) (0 10 8)(50 100 255))

然后程序将返回

((0 0 10) (0 10 8) (0 10 10) (50 100 255) (72 75 0) (255 255 255))

Answer 1

您应该为排序编写一个自定义比较器：

(define color-comparator
  (lambda (c1 c2)
    (cond
      ((not (= (car c1) (car c2))) (< (car c1) (car c2)))     ; red
      ((not (= (cadr c1) (cadr c2))) (< (cadr c1) (cadr c2))) ; green
      (else (< (caddr c1) (caddr c2))))))                     ; blue

然后您可以将此函数传递给 sort 过程。

诡计：

(sort
  '((72 75 0) (0 0 10) (255 255 255) (0 10 10) (0 10 8)(50 100 255))
  color-comparator)

Chez计划：

(sort
  color-comparator
  '((72 75 0) (0 0 10) (255 255 255) (0 10 10) (0 10 8)(50 100 255)))