Question

ANSI Common Lisp。为什么我在最后一个案例中得到了另一个答案？

(list 1 2 3 nil) ; (1 2 3 nil)
(funcall (function list) 1 2 3 nil) ; (1 2 3 nil)
(apply (function list) '(1 2 3 nil)) ; (1 2 3 nil)
(apply (function list) 1 2 3 nil) ; (1 2 3)

Answer 1

APPLY期望作为参数：

一个功能
零... n参数
然后是最后的参数列表

基本上会调用该函数，结果为(list* 0-arg ... n-arg argument-list)

请注意，(list* '(1 2 3))评估为(1 2 3)。

参数在Common Lisp中称为可扩展参数列表。

CL-USER 60 > (apply (function list) 1 2 3 nil)
(1 2 3)

CL-USER 61 > (apply (function list) (list* 1 2 3 nil))
(1 2 3)

CL-USER 62 > (apply (function list) (list* '(1 2 3)))
(1 2 3)

APPLY按设计使用这样的可扩展参数列表。例如(... 1 2 3 '(4 5))。使用FUNCALL，您必须像往常一样编写参数：(... 1 2 3 4 5)。

APPLY在Common Lisp中有一个目的：它允许使用计算参数列表调用函数。为了使这更方便，已经使用了可扩展参数列表的这种想法。例如，它在Emacs Lisp中的作用相同。

想象一下，你有一个参数列表，你想在前面添加两个参数。

CL-USER 64 > (apply '+ args)
60

CL-USER 65 > (apply '+ 1 2 args)
63

CL-USER 66 > (apply '+ (append (list 1 2) args))
63

适用＆amp; funcall - 不同的结果

1 个答案: