【趣味】大家看看这段代码的意思

ll_j

1. ('((x) (apply '+ x)) (mapcar '(list '(x y) '(+ x y)) '(4 5) '(6 7)))

('((x) (apply '+ x)) (mapcar '(list '(x y) '(+ x y)) '(4 5) '(6 7)))

想写点什么，又诸多琐事，难以定心，就先弄一段代码给朋友们玩味解读一下，打趣而已，大家不必认真。
提示：这是关于函数的。
说明：没有奖励，如果能理解，应该对AutoLisp的函数有更新的认识。


答案在2楼，选择后查看。

ll_j

换一种写法应该更容易明白：

1. ((lambda(x) (apply '+ x)) (mapcar '(lambda(x y) (+ x y)) '(4 5) '(6 7)))

((lambda(x) (apply '+ x)) (mapcar '(lambda(x y) (+ x y)) '(4 5) '(6 7)))

看出点什么？就是函数的用法。
这里定义了两个临时函数，一个用来替换函数名，一个作为参数。
其实我在这里有点噱头，就是函数名这个临时函数不需要定义，自己apply就可以了，不过作为一种函数的用法，这是应该知道的，比如：

1. ('((x) (mapcar '(list '(x) '(* x 2)) x)) (mapcar '(list '(x y) '(+ x y)) '(4 5) '(6 7)))

('((x) (mapcar '(list '(x) '(* x 2)) x)) (mapcar '(list '(x y) '(+ x y)) '(4 5) '(6 7)))

或许换一种写法更容易看清楚，这是我们常规的写法：

1. (defun tmp(x) (apply '+ x))
   
2. 
   
3. (tmp (mapcar '(lambda(x y) (+ x y)) '(4 5) '(6 7)))

(defun tmp(x) (apply '+ x))<br /> <br /> (tmp (mapcar '(lambda(x y) (+ x y)) '(4 5) '(6 7)))

那么，还有什么不同？那就是函数lambda的使用，在这里省了（？），是省了，这或许就是函数默认的eval，除了qoute的都是默认eval，于是：

1. ('((x y) (* x y)) 4 5)

('((x y) (* x y)) 4 5)

也是合理的了。
我们知道，AutoLisp中函数名和变量名是共用存储空间的，也就是说可以用setq来定义函数：

1. (setq tp (lambda(x y) (* x y)))
   
2. ;;等同于
   
3. (defun tp(x y) (* x y))

(setq tp (lambda(x y) (* x y)))<br /> ;;等同于<br /> (defun tp(x y) (* x y))

其实，我们换一种写法：

1. (setq tt '((x y) (* x y)))

(setq tt '((x y) (* x y)))

效果也相似。
不过这只是相似，并不是相同，这里定义的tp是函数，而tt仅仅是一个没执行的表达式。
所以，就有在函数中作为参数调用时，因为参数需要的是qoute，只有用list来“变形”的写法。

就不多说了，其实的没用的东西，大家随便看看就行。

zhangq_cai1

先算(mapcar '(list '(x y) '(+ x y)) '(4 5) '(6 7)) 得（10 12）然后最终得22

Lisphk

zhangq_cai1 发表于 2013-8-19 17:46
先算(mapcar '(list '(x y) '(+ x y)) '(4 5) '(6 7)) 得（10 12）然后最终得22

恩恩，我是抱着左括号之后必须是函数这点看的。

算出 （10 22）后，前面的用 apply '+ 给送到括号里面变成 (+ 10 22) -----> 22了。

q3_2006

4+5 6+7->9+13->22

newer

q3_2006 发表于 2013-8-19 18:37
4+5 6+7->9+13->22

你这个不对，4和5加不到一起去，你试试改下别的数，看看。

q3_2006

newer 发表于 2013-8-19 18:47
你这个不对，4和5加不到一起去，你试试改下别的数，看看。

一看就不对，故意这样写的，看楼主如何解答，为什么这么喜欢考人？不解决我的求助帖？？

newer

q3_2006 发表于 2013-8-19 18:37
4+5 6+7->9+13->22

把前面的+ 变成 *

命令: ('((x) (apply '* x)) (mapcar '(list '(x y) '(+ x y)) '(4 5) '(6 7)))
120


用你说的，不等于120的。

应该是 (* (+ 4 6)(+ 5 7))) =120

Free-Lancer

这个和 LM:acdoc 异曲同工，事关 Lisp 函数定义写法

ayl1004

这可真涨见识了，顶

wowan1314

Free-Lancer 发表于 2013-8-19 19:11
这个和 LM:acdoc 异曲同工，事关 Lisp 函数定义写法

这个要比 lm:acdoc 那个 难理解的多啊。。

那个我看后 起码是知道点的。 这个一看 完全傻眼了

Free-Lancer

这个文章中部分有助于理解
https://acl.readthedocs.org/en/latest/zhCN/ch6-cn.html

taner

LEEmac的程序里很多这种用法((lambda(x)(以X为变量的函数) 一个代表X的值).

newer

wowan1314 发表于 2013-8-19 20:56
这个要比 lm:acdoc 那个 难理解的多啊。。

那个我看后 起码是知道点的。 这个一看 完全傻眼了

楼主的函数不就相当于：

1. ((lambda '(x)
   
2.    (apply
   
3.      '+
   
4.      x
   
5.    )
   
6. )
   
7. (mapcar
   
8.    '(list '(x y) '(+ x y))
   
9.    '(4 5)
   
10.    '(6 7)
    
11. )
    
12. )
    

((lambda '(x)<br />    (apply<br />      '+<br />      x<br />    )<br /> )<br /> (mapcar<br />    '(list '(x y) '(+ x y))<br />    '(4 5)<br />    '(6 7)<br /> )<br /> )<br />

没函数名的函数

wowan1314

newer 发表于 2013-8-19 22:06
楼主的函数不就相当于：

他连lambda都没加。 所以费解了 。

是不是说以后都不需要加lambda了。 都按楼主一样写成那样。就是猛一看不习惯。看多了就习惯了