请问这个数那里不相等

ymcui2005 · 发表于 2016-9-13 16:55:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(if (= '("C" "%%c" 20.0 "导柱孔,割,单+0.015") '("C" "%%c" 20.0 "导柱孔,割,单+0.015"))
(PRINC "\n=")
(PRINC "\n$")
)

Lispboy · 发表于 2016-9-13 22:51:27

说说 = eq equal区别：

1、(setq a (entlast))
   (setq b (entlast)) ;;a b是不同的变量，变量既内存地址，地址不同
   (setq c a)             ;; c和a是同一个内存地址，变量名不同而已

(= a b)  ---> nil
(= a c) ----> t          ;;结合2，可见，=比较的简单的数据类型，字符串，整数，但是赋值的两个变量名指向同一地址，=也返回T。
(eq a b) ----> t          ;;eq 能比较两个不同的变量（不同的地址），但要求是一个单独的节点(refbuf), 复杂的表结构，eq 不能判断。
(equal a b)  --->t

2、(setq a "abc")
   (setq b "abc")

(= a b)  ----> t
(eq a b)  ---->t
(equal a b) --->t

3、(setq a  '("C" "%%c" 20.0 "导柱孔,割,单+0.015"))
   (setq b  '("C" "%%c" 20.0 "导柱孔,割,单+0.015")) ;;a b是不同的变量名，也是不同的内存地址，a和b都是多个节点连成一体的。

(= a b)  ----> nil
(eq a b) ----> nil
(equal a b) ---> t  ;; equal 比较的是两个不同的内存地址里面的内容是否相等

所以，程序尽量用 equal 去判断，这个保险。

Lisphk · 发表于 2016-9-13 17:25:25

= 是不能比较表的，试试用 equal

newer · 发表于 2016-9-13 17:32:46

(setq a '("C" "%%c" 20.0 "导柱孔,割,单+0.015"))
(setq b a)

(= a b) ----->T
(eq a b) ---->T
(equal a b)  ---- T
(equal '("C" "%%c" 20.0 "导柱孔,割,单+0.015") '("C" "%%c" 20.0 "导柱孔,割,单+0.015"))  ---->T
(eq '("C" "%%c" 20.0 "导柱孔,割,单+0.015") '("C" "%%c" 20.0 "导柱孔,割,单+0.015"))  ----> nil
(= '("C" "%%c" 20.0 "导柱孔,割,单+0.015") '("C" "%%c" 20.0 "导柱孔,割,单+0.015"))  --->nil

HLCAD · 发表于 2016-9-13 18:05:33

还是版主学识渊博，=、eq、equal这三个总是用不太好

yoyoho · 发表于 2016-9-13 18:42:15

向 N 版学习感谢分享!

ymcui2005 · 发表于 2016-9-13 20:48:07

谢谢版主细心指导，非常感谢

Lisphk · 发表于 2016-9-13 23:08:30

Lispboy 发表于 2016-9-13 22:51

受益匪浅！谢谢lispboy

账号		自动登录	找回密码
密码			立即注册

[求助] 请问这个数那里不相等

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。