怎么将关联的表分组：

hnfsf

请教个问题，怎么将关联的表分组：
'((6 7)(1 2)(3 4)(6 5)(2 3)(7 8))
;;将有关联的表分组,关联就是一个表的元素是另外一个表的元素之一。
;结果是：'((1 2)(2 3)(3 4));  '((6 7)(6 5)(7 8))

Lisper

没有看懂要求！

hnfsf

这个数表相当于很多根pl线的顶点坐标组成的
一条pl线每段的两个坐标一个元素，第1段和第2段有关系，第2段和第3段有关系，。。。
就是要把每根pl线的坐标分出来

hnfsf

自己顶一下，哪位版主出来帮忙帮忙? 谢谢了

llsheng_73

1. (defun tt(a / ListAll b c d)
   
2.   (defun ListAll(tlst f / aaa lst);;f为t时全部压平,nil时保留一层
   
3.     (defun aaa (tlst)
   
4.       (foreach b tlst
   
5. (if(if f(listp b)(and(listp b)(listp(car b))))(aaa b)(setq lst(cons b lst)))))
   
6.     (if(listp tlst)(if(setq lst (aaa tlst))(reverse lst))))
   
7.   (while a
   
8.     (setq b(car a)c nil)
   
9.     (while(setq b(vl-remove'nil(mapcar'(lambda(x)(assoc x a))(ListAll b t))))
   
10.       (foreach x b(setq a(vl-remove x a)))
    
11.       (setq c(if c(append c b) b)))
    
12.     (setq d(append d(list c))))
    
13.   d)

(defun tt(a / ListAll b c d)<br />   (defun ListAll(tlst f / aaa lst);;f为t时全部压平,nil时保留一层<br />     (defun aaa (tlst)<br />       (foreach b tlst<br /> (if(if f(listp b)(and(listp b)(listp(car b))))(aaa b)(setq lst(cons b lst)))))<br />     (if(listp tlst)(if(setq lst (aaa tlst))(reverse lst))))<br />   (while a<br />     (setq b(car a)c nil)<br />     (while(setq b(vl-remove'nil(mapcar'(lambda(x)(assoc x a))(ListAll b t))))<br />       (foreach x b(setq a(vl-remove x a)))<br />       (setq c(if c(append c b) b)))<br />     (setq d(append d(list c))))<br />   d)

;;(tt '((6 7)(1 2)(3 4)(6 5)(2 3)(7 8)))
;;==>(((6 7) (7 8) (6 5)) ((1 2) (2 3) (3 4)))