对表进行特殊合并

kkq0305

2. ;函数tt 对表进行特殊合并
   
3. ;(tt '((1 2) (2 3) (3 4) (5 6) (6 5) (6 7))) 返回 ((1 4) (5 5) (6 7))
   
4. (defun tt (lst / f nlst)
   
5.   (setq        f (lambda (x y)
   
6.             (if        (= (caar y) x)
   
7.               (f (cadar y) (cdr y))
   
8.               (list x y)
   
9.             )
   
10.           )
    
11.   )
    
12.   (if lst
    
13.     (cons (list (caar lst) (car (setq nlst (f (cadar lst) (cdr lst)))))
    
14.           (tt (cadr nlst))
    
15.     )
    
16.   )
    
17. )

;函数tt 对表进行特殊合并<br /> ;(tt '((1 2) (2 3) (3 4) (5 6) (6 5) (6 7))) 返回 ((1 4) (5 5) (6 7))<br /> (defun tt (lst / f nlst)<br />   (setq        f (lambda (x y)<br />             (if        (= (caar y) x)<br />               (f (cadar y) (cdr y))<br />               (list x y)<br />             )<br />           )<br />   )<br />   (if lst<br />     (cons (list (caar lst) (car (setq nlst (f (cadar lst) (cdr lst)))))<br />           (tt (cadr nlst))<br />     )<br />   )<br /> )