Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/list/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/sorting/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
List lisp中子列表的排序列表_List_Sorting_Lisp_Common Lisp_Sublist - Fatal编程技术网

List lisp中子列表的排序列表

List lisp中子列表的排序列表,list,sorting,lisp,common-lisp,sublist,List,Sorting,Lisp,Common Lisp,Sublist,我试图使用每个子列表的第三个元素对以下列表中的元素进行排序: ((v 1 a) (v 3 d) (v 6 b) (v 2 c)) 因此,结果应该是: ((v 1 a) (v 6 b) (v 2 c) (v 3 d)) 我试过这样的方法: (sort (copy-seq my-list) #'> :key (lambda (x) (third (car x))) ) 但它实际上不起作用,我也不知道该怎么做。CL-USER 15>(排序(复制顺序)((v1a)(v

我试图使用每个子列表的第三个元素对以下列表中的元素进行排序:

    ((v 1 a) (v 3 d) (v 6 b) (v 2 c))
因此,结果应该是:

    ((v 1 a) (v 6 b) (v 2 c) (v 3 d))
我试过这样的方法:

    (sort (copy-seq my-list) #'> :key (lambda (x) (third (car x))) )
但它实际上不起作用,我也不知道该怎么做。

CL-USER 15>(排序(复制顺序)((v1a)(v3d)(v6b)(v2c)))
CL-USER 15 > (sort (copy-seq '((v 1 a) (v 3 d) (v 6 b) (v 2 c)))
                   #'string<
                   :key #'third)
((V 1 A) (V 6 B) (V 2 C) (V 3 D))
#"弦"< :键#第三) ((v1a)(v6b)(v2c)(v3d))
CL-USER 15>(排序(复制顺序)((v1a)(v3d)(v6b)(v2c)))
#"弦"<
:键#第三)
((v1a)(v6b)(v2c)(v3d))