调试程序检查代码着色功能

mccad

调试程序：

2. (setq lst '(("RQ28" "RQ27")
   
3.             ("RQ27" "RQ22")
   
4.             ("RQ22" "RQ21")
   
5.             ("RQ24" "RQ27")
   
6.             ("RQ25" "RQ24")
   
7.             ("RQ26" "RQ25")
   
8.             ("RQ24" "RQ20")
   
9.            )
   
10. )
    
11. 
    
12. ;; (getpath "RQ26" "RQ21")
    
13. (defun getpath (start end / next PD)
    
14.   (if (null path)
    
15.     (setq path (list start))
    
16.     (setq path (cons start path))
    
17.   )
    
18. 
    
19.   (if (= start end)
    
20.     (setq lst nil)
    
21.     (if        lst
    
22.       (progn
    
23.         (if (setq next (getnext start))
    
24.           (cond
    
25.             ((= 1 (length next))
    
26.              (getpath (car next) end)
    
27.             )
    
28.             ((> (length next) 1)
    
29.              (setq pd (length path))
    
30.              (while next
    
31.                (getpath (car next) end)
    
32.                
    
33.                (setq next (cdr next))
    
34.                ;; 路径回退到分支处
    
35.                (while (and (/= end (car path)) (> (length path) pd))
    
36.                  (setq path (cdr path))
    
37.                )
    
38.              )
    
39.             )
    
40.           )
    
41.         )
    
42.       )
    
43.     )
    
44.   )
    
45. )
    
46. 
    
47. 
    
48. ;; (getnext "RQ26")
    
49. (defun getnext (s / next)
    
50.   (setq next (vl-remove-if-not '(lambda (e) (member s e)) lst))
    
51. 
    
52.   ;; 总路径表中移除查到的项防止路径返回
    
53.   (setq lst (vl-remove-if '(lambda (e) (member e next)) lst))
    
54. 
    
55.   (if next
    
56.     (mapcar '(lambda (e1) (car (vl-remove-if '(lambda (e) (= s e)) e1)))
    
57.             next
    
58.     )
    
59.   )
    
60. )
    
61. 
    
62. 
    
63. ;;;_$ (findpath "RQ26" "RQ21" lst)
    
64. (defun findpath        (start end lst / path)
    
65.   (getpath start end)
    
66.   (reverse path)
    
67. )

(setq lst '(("RQ28" "RQ27")<br />             ("RQ27" "RQ22")<br />             ("RQ22" "RQ21")<br />             ("RQ24" "RQ27")<br />             ("RQ25" "RQ24")<br />             ("RQ26" "RQ25")<br />             ("RQ24" "RQ20")<br />            )<br /> )<br /> <br /> ;; (getpath "RQ26" "RQ21")<br /> (defun getpath (start end / next PD)<br />   (if (null path)<br />     (setq path (list start))<br />     (setq path (cons start path))<br />   )<br /> <br />   (if (= start end)<br />     (setq lst nil)<br />     (if        lst<br />       (progn<br />         (if (setq next (getnext start))<br />           (cond<br />             ((= 1 (length next))<br />              (getpath (car next) end)<br />             )<br />             ((> (length next) 1)<br />              (setq pd (length path))<br />              (while next<br />                (getpath (car next) end)<br />                <br />                (setq next (cdr next))<br />                ;; 路径回退到分支处<br />                (while (and (/= end (car path)) (> (length path) pd))<br />                  (setq path (cdr path))<br />                )<br />              )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br /> <br /> ;; (getnext "RQ26")<br /> (defun getnext (s / next)<br />   (setq next (vl-remove-if-not '(lambda (e) (member s e)) lst))<br /> <br />   ;; 总路径表中移除查到的项防止路径返回<br />   (setq lst (vl-remove-if '(lambda (e) (member e next)) lst))<br /> <br />   (if next<br />     (mapcar '(lambda (e1) (car (vl-remove-if '(lambda (e) (= s e)) e1)))<br />             next<br />     )<br />   )<br /> )<br /> <br /> <br /> ;;;_$ (findpath "RQ26" "RQ21" lst)<br /> (defun findpath        (start end lst / path)<br />   (getpath start end)<br />   (reverse path)<br /> )