如何使用子列表對列表進行排序

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) 

切斯方案：

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