问题描述
(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-1
和tree-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-