(问题解决,谢谢各位大师的帮助!)

q3_2006

csharp 发表于 2014-5-21 15:47
对返回值再处理就可以在树形结构中找出所有两点间的最短路径了

没想这么多...我程度差...大师能详解不....抽点空....

q3_2006

两点间的最短路径...之前看过G版的一段代码...没全懂....{:soso_e127:}

q3_2006

csharp 发表于 2014-5-21 15:47
对返回值再处理就可以在树形结构中找出所有两点间的最短路径了

明白大师说什么了....谢谢!

炫翔

;仅供参考

1. ;表中第二个元素与第一个元素相同的组合
   
2. ;(xx-lst-list21 lst)
   
3. ;(SETQ LST '((5 6)(6 7)(7 8)(8 "B")("B" 10)(7 "C")("C" 4)))===>
   
4. ;(((5 6) (6 7)) ((7 8) (8 "B")) ((7 "C") ("C" 4)))
   
5. (defun xx-lst-list21 (lst / lst1 n same)
   
6.   (while lst
   
7.     (setq n (caadr lst))
   
8.     (if (setq same (assoc n lst))
   
9.       (progn
   
10.   (setq lst1 (cons (list (car lst) same) lst1))
    
11.   (setq lst (xx-lst-remove lst same))
    
12.       )
    
13.     )
    
14.     (setq lst (cdr lst))
    
15.   )
    
16.   (reverse lst1)
    
17. )
    
18. 
    
19. (defun xx-lst-remove (lst ele)
    
20. (apply 'append (subst nil (list ele) (mapcar 'list lst)))
    
21. )

;表中第二个元素与第一个元素相同的组合<br /> ;(xx-lst-list21 lst)<br /> ;(SETQ LST '((5 6)(6 7)(7 8)(8 "B")("B" 10)(7 "C")("C" 4)))===><br /> ;(((5 6) (6 7)) ((7 8) (8 "B")) ((7 "C") ("C" 4)))<br /> (defun xx-lst-list21 (lst / lst1 n same)<br />   (while lst<br />     (setq n (caadr lst))<br />     (if (setq same (assoc n lst))<br />       (progn<br />   (setq lst1 (cons (list (car lst) same) lst1))<br />   (setq lst (xx-lst-remove lst same))<br />       )<br />     )<br />     (setq lst (cdr lst))<br />   )<br />   (reverse lst1)<br /> )<br /> <br /> (defun xx-lst-remove (lst ele) <br /> (apply 'append (subst nil (list ele) (mapcar 'list lst)))<br /> )

q3_2006

炫翔 发表于 2014-5-23 10:40
;仅供参考

版主的不能前后分别找哟.....