[求助]：表处理问题...

qjcpj · 发表于 2005-9-30 12:11:30

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

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

×

在lisp中有没有简单办法判断两个表(不含子表)完全一样，表的形式如下：
(a b c d)和(c d e f)

eachy · 发表于 2005-9-30 12:29:56

equal

yshf · 发表于 2005-9-30 12:40:59

;请试用lbxt函数，相同返回T，否则返回nil
;Command: cc
;p1=p2 ? ->nil
;p1=p3 ? ->T
(defun c:cc()
(setq p1 '(a b c d) p2 '(c d e f) p3 '(a b c d))
(princ "\np1=p2 ? ->")(princ (lbxt p1 p2))
(princ "\np1=p3 ? ->")(princ (lbxt p1 p3))
(princ)
)
(defun lbxt(x1 x2)
(vl-every '(lambda(x)(equal x 't)) (mapcar 'equal x1 x2))
)

eachy · 发表于 2005-9-30 13:48:03

_$ (setq a '(a b c d) b '(a b c f))
(A B C F)
_$ (equal a b)
nil
_$ (equal a '(a b c d))
T
_$ (equal b '(a b c f))
T
_$

qjcpj · 发表于 2005-9-30 14:06:41

谢谢指教！
原来我想当然的使用"="或"eq"函数，试了总是nil。没想到还可以使用"equal"函数，哈哈...

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

[求助] [求助]：表处理问题...

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

相关帖子