set和setq的区别和使用中的疑问

baitang36

crtrccrt 发表于 2018-7-21 06:47
个人认为：LISP的精髓表现在SET和EVAL两个函数。其他编程语言没有类似的概念及功能。

高手
我学了好久以后才意识到

crtrccrt

LISP的精髓表现在SET和EVAL两个函数。

要体会到这一条,先要精通了apply和mapcar及lambda与function四个函数,特别是apply和mapcar这两个函数.建议尽量不要用
(set 'A 5)
(set （qoute A) 5)
这两种写法,虽然正确.原因:大量数据运算时,效率不同.

灰石Jeremy

还真没发现这个问题，受教了

lisperado

再补充
set可以批量交换变量而setq不行

;举例1
(setq a 1 b 2 c 3)
(mapcar 'set '(a b c) '(1 2 3)) ; 表
;返回值都一样是 1 2 3

;举例2
(setq l1 '(a b c) z1 '(1 2 3)
        l2 '(x y z) z2 '(7 8 9))

(mapcar 'set l1 z2 ) ; 变量l1(a b c)值z2(7 8 9)
(mapcar 'set l2 (mapcar 'eval l1)) ;拷贝l1(值z2)去变量l2(x y z)值='(7 8 9)
(mapcar 'set l1 z1 ) ;变量l1(a b c)值z1(1 2 3) 变量l1值='(1 2 3)

;举例3
(mapcar 'set l1 (reverse z1) ) ;也可以反转值

;举例4
;批量清理全局变量(a b c)
(mapcar '(lambda (x)(set x nil)) l1 )
;(NIL NIL NIL)

;清除(x y z)因为(a b c)已nil
(mapcar '(lambda (i j)(set i (eval j))) l2 l1 )
;x y z = nil nil nil