[求助]如何判定表(123)(231)(312)相等

x_s_s_1 · 发表于 2010-10-24 18:44:00

请教一下如何判定表(1 2 3 4 5 6)，(2 3 4 5 6 1)，(5 4 3 2 1 6)相等，即是123456六个数字首位相连，形成一个环，只要相对位置不变，就认为两个表相等，谢谢

lenlenq · 发表于 2010-10-24 19:28:00

先比较一下表的长度，剔除长度不同的（即不相同的）
如果相同，取出第一表中的第一个元素，与第二个表比较，相同比较第一个表的第二个元素。
循环往复，求出结果

x_s_s_1 · 发表于 2010-10-24 20:28:00

这个方法只能判断其原子个数及大小是否相同，不能判断其顺序，如果是（200 400 400 200 600 600）和（400 400 200 600 600 200）呢

即如图示四个图形，判断其几何形状相同

x_s_s_1 · 发表于 2010-10-25 20:56:00

zzxxqq版主，可否提个建议，谢谢。我还是没有想出让表按顺序循环的办法如（1 2 3 4）（2 3 4 1）（3 4 1 2）（4 1 2 3）

masterlong · 发表于 2010-10-25 21:49:00

(setq ysb '(1 2 3 4))
(setq allb '())
(setq i 0)
(repeat (length ysb)
(setq allb (cons (setq ysb (append (cdr ysb) (list (car ysb)))) allb))
(setq i (1+ i))
)

;;;

(member testlist allb)

x_s_s_1 · 发表于 2010-10-25 22:27:00

谢谢masterlong，十分感谢

461045462 · 发表于 2010-10-26 06:59:00

本帖最后由作者于 2010-10-26 7:25:40 编辑

如果能够判断文本格式表格就好了

当两个不一样时就修改过来

学习了

谢谢masterlong

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

[求助]如何判定表(123)(231)(312)相等

本帖子中包含更多资源