也是不行,我拿两条完全重合的线试了一下,还是没能输出存在共用端点 Scarlet2001 发表于 2024-9-5 14:48
懂了,我理解错了,以为是逐一比较
但是把(not (/= p1 p2 p3 p4))改成(or (= p1 p2) (= p1 p3) (= p1 p4 ...
因为=不能比较“表”,或者准确来说,地址不同的表,用=对比则返回nil,你试试下面的代码
(setq
p1 '(1 2)
p2 '(1 2)
)
(= p1 p2) ;--> nil Scarlet2001 发表于 2024-9-5 14:51
也是不行,我拿两条完全重合的线试了一下,还是没能输出存在共用端点
院长的代码是可以的,你不行,证明你不是复制他的代码 tryhi 发表于 2024-9-5 15:22
院长的代码是可以的,你不行,证明你不是复制他的代码
我再试了一下,我的问题,代码加载错了,确实可以 tryhi 发表于 2024-9-5 15:19
因为=不能比较“表”,或者准确来说,地址不同的表,用=对比则返回nil,你试试下面的代码
(setq
也是说对比表的时候,要用equal而不能用=? Scarlet2001 发表于 2024-9-5 15:26
也是说对比表的时候,要用equal而不能用=?
是的
页:
1
[2]