请教下面这个代码应该如何理解？

memdy

(setq x "A" n 3 L '(0 1 2 3 4 5))
((lambda (i) (apply 'append (mapcar '(lambda (a) (if (= n (setq i (1+ i))) (list x a) (list a))) L))) -1)
返回:-> (0 1 2 "A" 3 4 5)

XDSoft

LISP每层表，第一个元素是函数， 第二个以后是这个函数的参数，求完值后作为这层括号的结果返回，返回值可以做上层括号函数的参数。
这样就嵌套下去了



上面 lambda是个哑函数，i是形参数， -1是参数值传给i , 去带入lambda里面的i , 求出结果

lambda那段，和下面是等价的

1. (defun abc (i)
   
2.    (apply 'append
   
3.           (mapcar '(lambda (a)
   
4.                      (if (= n (setq i (1+ i)))
   
5.                        (list x a)
   
6.                        (list a)
   
7.                      )
   
8.                    )
   
9.                   L
   
10.           )
    
11.    )
    
12. )
    
13. (abc -1)
    
14. 
    

(defun abc (i)<br />    (apply 'append<br />           (mapcar '(lambda (a)<br />                      (if (= n (setq i (1+ i)))<br />                        (list x a)<br />                        (list a)<br />                      )<br />                    )<br />                   L<br />           )<br />    )<br /> )<br /> (abc -1)<br /> <br />

如果你不想去定义一个函数，然后用函数调用去写，就可以写到一个lambda里面，把函数定义和函数调用写一起直接求值。你只希望执行参数-1，就不需要定义一个abc

XDSoft

代码你要格式化后，才能看清结构

(setq x "A" n 3 L '(0 1 2 3 4 5))
((lambda (i)
   (apply 'append
          (mapcar '(lambda (a)
                     (if (= n (setq i (1+ i)))
                       (list x a)
                       (list a)
                     )
                   )
                  L
          )
   )
)
  -1
)

执行的结果
(0 1 2 3 4 5)
(0 1 2 "A" 3 4 5)
_$

tzfcn

解释的很好，学习了。

yinchuan99001

lambda函数不好理解，谢谢楼主的解释。