在Lisp中排序由手动结构组成的列表 比较最后一位

问题描述

我的代码中有一个结构

(defstruct tree-node char freq )

我有这些“节点”的列表。例如(#\ a 4,#b 5,#q 17),我想按降序对它们进行排序。我如何使用排序功能。我已经编写了一个比较函数,但我不知道这是否是一种方法

(defun compare()( if( > (tree-node-freq tree-node-freq) T (nil))))

当我调用排序功能

(sort list compare)

说比较功能没有价值。顺便说一下,我是新手,所以请不要判断:)

解决方法

sort函数期望一个带两个参数并返回广义布尔值的谓词函数,而OP代码显示一个不带参数的comparison函数。当比较本身返回所需的布尔值时,没有理由使用if。还要注意,访问sort表达式中的函数(即(sort list #'compare)而不是(sort list compare)时,必须使用双引号。

您可以将比较函数编写为:

CL-USER> (defun node-greater-p (n1 n2)
           (> (tree-node-freq n1) (tree-node-freq n2)))
NODE-GREATER-P

CL-USER> *nodes*
(#S(TREE-NODE :CHAR #\a :FREQ 4) #S(TREE-NODE :CHAR #\b :FREQ 5)
 #S(TREE-NODE :CHAR #\q :FREQ 17))

CL-USER> (sort *nodes* #'node-greater-p)
(#S(TREE-NODE :CHAR #\q :FREQ 17) #S(TREE-NODE :CHAR #\b :FREQ 5)
 #S(TREE-NODE :CHAR #\a :FREQ 4))

您也可以使用匿名函数执行此操作:

CL-USER> *nodes*
(#S(TREE-NODE :CHAR #\a :FREQ 4) #S(TREE-NODE :CHAR #\b :FREQ 5)
 #S(TREE-NODE :CHAR #\q :FREQ 17))

CL-USER> (sort *nodes* #'(lambda (n1 n2) (> (tree-node-freq n1) (tree-node-freq n2))))

(#S(TREE-NODE :CHAR #\q :FREQ 17) #S(TREE-NODE :CHAR #\b :FREQ 5)
 #S(TREE-NODE :CHAR #\a :FREQ 4))

但是,最好利用提供排序键的:key函数的sort参数:

CL-USER> *nodes*
(#S(TREE-NODE :CHAR #\a :FREQ 4) #S(TREE-NODE :CHAR #\b :FREQ 5)
 #S(TREE-NODE :CHAR #\q :FREQ 17))

CL-USER> (sort *nodes* #'> :key #'tree-node-freq)

(#S(TREE-NODE :CHAR #\q :FREQ 17) #S(TREE-NODE :CHAR #\b :FREQ 5)
 #S(TREE-NODE :CHAR #\a :FREQ 4))
,

如果您在REPL中定义了compare函数,则会看到警告:

(defun compare()( if( > (tree-node-freq tree-node-freq) 
                               T
                               nil)))
; in: DEFUN COMPARE
;     (IF (> (SBCLI::TREE-NODE-FREQ SBCLI::TREE-NODE-FREQ) T NIL))
; 
; caught ERROR:
;   error while parsing arguments to special operator IF:
;     too few elements in
;       ((> (TREE-NODE-FREQ TREE-NODE-FREQ) T NIL))
;     to satisfy lambda list
;       (SB-C::TEST SB-C::THEN &OPTIONAL SB-C::ELSE):
;     between 2 and 3 expected,but got 1
; 
; compilation unit finished
;   caught 1 ERROR condition
COMPARE

您将>的右括号放在太远的位置。我们只得到> a b而不是> (a) b c。因此,if没有then或else子句。

您可能要使用带有Lisp缩进的编辑器。

比较

查看sort的文档:

SORT names a compiled function:
  Lambda-list: (SEQUENCE SB-IMPL::PREDICATE &REST SB-IMPL::ARGS &KEY
                SB-IMPL::KEY)
  Declared type: (FUNCTION
                  (SEQUENCE (OR FUNCTION SYMBOL) &REST T &KEY
                   (:KEY (OR FUNCTION SYMBOL)))
                  (VALUES SEQUENCE &OPTIONAL))
  Documentation:
    Destructively sort SEQUENCE. PREDICATE should return non-NIL if
       ARG1 is to precede ARG2.
  Inline proclamation: MAYBE-INLINE (inline expansion available)

它提到了compare函数的两个参数。实际上,我们这里有一个带有lambda函数的示例:http://www.lispworks.com/documentation/HyperSpec/Body/f_sort_.htm

 (setq tester (copy-seq "lkjashd")) =>  "lkjashd"
 (stable-sort tester #'(lambda (x y) (and (oddp x) (evenp y))))

您的函数必须带有两个参数tree-1tree-2

将它们与(> (tree-node-freq tree-1) (tree-node-freq tree-2))进行比较。

最后一位

(nil)

您正在调用“ nil”功能。只要返回nil,就返回T

最好使用when。如果when为false,则该函数隐式返回nil。

(sort list compare)

您必须引用compare作为函数:#'compare。参见https://lispcookbook.github.io/cl-cookbook/functions.html#referencing-functions-by-name-single-quote--or-sharpsign-quote-