如何使用子列表对列表进行排序(常见Lisp)

Question

如何使用子列表对列表进行排序？

(setq list '((0) (1) (2) (0 1 5) (0 1 3) (0 1 5) (0 3 0) (0) (1) 
             (2 7 19) (0 0 3 0)))

; restricting the sort to only the first element:

(sort (copy-seq list) #'< :key #'car)

--> ((0) (0 1 5) (0 1 3) (0 1 5) (0 3 0) (0) (0 0 3 0) (1) (1) (2) (2 7 19))

我正在寻找的输出是对子列表的所有元素排序:

--> ((0) (0) (0 0 3 0) (0 1 3) (0 1 5) (0 1 5) (0 3 0) (1) (1) (2) (2 7 19))

Answer 1

首先定义一个函数,确定一个列表是否小于另一个列表.以下示例假定列表只能包含数字:

(defun list< (a b)
  (cond ((null a) (not (null b)))
        ((null b) nil)
        ((= (first a) (first b)) (list< (rest a) (rest b)))
        (t (< (first a) (first b))) ))

使用此功能,您现在可以对列表列表进行排序.

(sort (copy-seq list) #'list<)