[LISP程序]：请看这个程序

redapple

(define members
(lambda (item l)
  (cond ((null? l) nil)
  ((equal? item(car l) t)
  (t (members item (cdr l))))))
程序中“lambda"是什么作用？（这是一LISP，非AutoLISP程序）

newer

最初由 redapple 发布
[B](define members
(lambda (item l)
  (cond ((null? l) nil)
  ((equal? item(car l) t)
  (t (members item (cdr l))))))
程序中“lambda"是什么作用？（这是一LISP，非AutoLISP程序） [/B]

你就理解为lambda 是一个“哑函数”，对他后面的参数表里面的每个元素作为 lambda 函数的参数进行求值，结果是参数表每个元素求值后的结果组成的表。

在你不想另定义函数的时候处理。这对于函数不需要大量引用的时候，是方便的。

(mapcar '(lambda (x) ...) abc) 相当于：

2. [font=courier]
   
3. (defun ex(x)
   
4.     ....
   
5. )
   
6. 
   
7. (foreach n abc
   
8.     (setq ll (cons (ex n) ll))
   
9. )
   
10. (reverse ll)
    
11. 
    
12. [/font]
    

[font=courier]<br /> (defun ex(x)<br />     ....<br /> )<br /> <br /> (foreach n abc<br />     (setq ll (cons (ex n) ll))<br /> )<br /> (reverse ll)<br /> <br /> [/font]<br />

redapple

如果去掉LAMBDA对程序有没有影响？能不能正常运行？还是不大明白为什么要用它？谢谢！

newer

最初由 redapple 发布
[B]如果去掉LAMBDA对程序有没有影响？能不能正常运行？还是不大明白为什么要用它？谢谢！ [/B]

见上面的补充代码，有时候你需要用一个自己定义的函数，而不希望把他单独定义的时候，因为单独定义函数是为了多个地方使用，而函数的副作用是每次调用函数的时候，都要保存现场，函数参数入栈等操作，为了函数能返回到主程序。这样增加了负担，使用函数虽然代码短，清晰，但是效率不高。而使用lambda 不另外定义函数，在运行的时候把机器码直接在主程序中运行，速度，效率更高。如果你需要组织代码成函数的形式，但是不希望用函数的方法调用它的时候(你组织的类函数的代码其他地方不需要调用，仅仅你这个程序使用），用lambda 更好。

我是这样理解的。

lambda 往往和 mapcar 配合使用，发挥LISP强大的表处理能力。

比如，你现在需要把表的每个元素乘以10，例如：

(setq a '(2 4 5 7))
(setq b (mapcar '(lambda(x)(* x 10)) a))

b的值就是：'(20 40 50 70)

这是一个简单的应用，你完全可以在lambda里面定义更复杂的函数，完成需要的功能。

上面的代码，如果用普通的循环写：
(setq a '(2 4 5 7))
(foreach n a
    (setq b (cons (* 10 n) b)
)
(reverse b)

这个里面，循环里面额外多出赋值的运算，在表数据非常大的时候，会浪费很多时间。

另外，mapcar 函数设计上也一定比 foreach ,repeat while 等更高效。

mapcar 是一个非常强大的表处理函数，mapcar 灵活使用了，才说明LISP掌握了。

redapple

再次谢谢你，我还想问您，在AUTOLISP环境下可否运行LISP程序？你是否作过有关推理的程序？

newer

最初由 redapple 发布
[B]再次谢谢你，我还想问您，在AUTOLISP环境下可否运行LISP程序？你是否作过有关推理的程序？ [/B]

AUTOLISP 是 LISP 的一个子集，并且针对ACAD环境增加的独特的一些函数，比如 command 可以运行ACAD的命令

因此，LISP不一定能在AUTOLISP环境下使用，因为AUTOLISP并没有实现LISP的所有语法。

但是可以参考LISP，稍加改动都可以在AUTOLISP下使用。因为他们都是表处理语言。AUTOLISP语言定义的语法函数，ADESK认为在AUTOCAD环境下足够了。

redapple

我学AUTOLISP时间不长，不知此语言的前景如何？对于今后的工作帮助大吗？

XDSoft

最初由 redapple 发布
[B]我学AUTOLISP时间不长，不知此语言的前景如何？对于今后的工作帮助大吗？ [/B]

只要你用AUTOCAD,那么AUTOLISP是你最好的选择.