求助递归问题.

77077

还是没能好好理解递归,不过直觉告诉我,这个可以用递归来做更快捷!
这是一个odcl对话框tree控件加载节点的代码,求高手们帮个忙,用递归方法解决下~~~

2. (setq lst '(
   
3. (("A" "分类")
   
4.    (("A1" "中类")
   
5.      ("A11" "子类")
   
6.      ("A12" "子类"))
   
7.   (("A2" "中类")
   
8.     ("A21" "子类")
   
9.     ("A22" "子类")
   
10.     ("A23" "子类"))
    
11. (("A3" "中类")
    
12.     ("A31" "子类")
    
13.     ("A32" "子类")
    
14.     ("A33" "子类"))
    
15.   (("A4" "中类")
    
16.     ("A41" "子类")
    
17.     ("A42" "子类")
    
18.     ("A43" "子类")
    
19.     ("A44" "子类"))
    
20.   (("A5" "中类"))
    
21.     )
    
22. (("B" "分类")
    
23.    (("B1" "中类")
    
24.      ("B11" "子类")
    
25.      ("B12" "子类"))
    
26.   (("B2" "中类")
    
27.     ("B21" "子类")
    
28.     ("B22" "子类")
    
29.     ("B23" "子类"))
    
30. (("B3" "中类")
    
31.     ("B31" "子类")
    
32.     ("B32" "子类")
    
33.     ("B33" "子类"))
    
34.   (("B4" "中类")
    
35.     ("B41" "子类")
    
36.     ("B42" "子类")
    
37.     ("B43" "子类")
    
38.     ("B44" "子类")))
    
39.     )
    
40. );setq
    
41. (defun c:ydcood_ydcood_OnInitialize ( / )
    
42. (foreach a lst
    
43.     (setq Pa (dcl_Tree_AddParent ydcood_ydcood_tree
    
44.        (strcat (car(car a)) ":" (cadr (car a)))))
    
45.     (foreach b (cdr a)
    
46.        (setq Pb (dcl_Tree_AddChild ydcood_YDCOOD_Tree
    
47.             (list(list pa (strcat (car(car b)) ":" (cadr (car b)))))))
    
48.        (foreach c (cdr b)
    
49.            (setq Pc(dcl_Tree_AddChild ydcood_YDCOOD_Tree
    
50.                (list(list pb (strcat (car c) ":" (cadr c))))))
    
51.           )
    
52.           )
    
53.      )
    
54. )
    

(setq lst '(<br /> (("A" "分类")<br />    (("A1" "中类")<br />      ("A11" "子类")<br />      ("A12" "子类"))<br />   (("A2" "中类")<br />     ("A21" "子类")<br />     ("A22" "子类")<br />     ("A23" "子类"))<br /> (("A3" "中类")<br />     ("A31" "子类")<br />     ("A32" "子类")<br />     ("A33" "子类"))<br />   (("A4" "中类")<br />     ("A41" "子类")<br />     ("A42" "子类")<br />     ("A43" "子类")<br />     ("A44" "子类"))<br />   (("A5" "中类"))<br />     )<br /> (("B" "分类")<br />    (("B1" "中类")<br />      ("B11" "子类")<br />      ("B12" "子类"))<br />   (("B2" "中类")<br />     ("B21" "子类")<br />     ("B22" "子类")<br />     ("B23" "子类"))<br /> (("B3" "中类")<br />     ("B31" "子类")<br />     ("B32" "子类")<br />     ("B33" "子类"))<br />   (("B4" "中类")<br />     ("B41" "子类")<br />     ("B42" "子类")<br />     ("B43" "子类")<br />     ("B44" "子类")))<br />     )<br /> );setq<br /> (defun c:ydcood_ydcood_OnInitialize ( / )<br /> (foreach a lst<br />     (setq Pa (dcl_Tree_AddParent ydcood_ydcood_tree<br />        (strcat (car(car a)) ":" (cadr (car a)))))<br />     (foreach b (cdr a)<br />        (setq Pb (dcl_Tree_AddChild ydcood_YDCOOD_Tree<br />             (list(list pa (strcat (car(car b)) ":" (cadr (car b)))))))<br />        (foreach c (cdr b)<br />            (setq Pc(dcl_Tree_AddChild ydcood_YDCOOD_Tree<br />                (list(list pb (strcat (car c) ":" (cadr c))))))<br />           )<br />           )<br />      )<br /> )<br />

77077

唉,好像错了

2. 
   
3. (defun addchild (x)
   
4.    (if (= (car x) nil)
   
5.         nil
   
6.         (progn
   
7.         (foreach n x
   
8.           (setq Px (dcl_Tree_AddChild ydcood_YDCOOD_Tree
   
9.                (list(list p (strcat (car(car n)) ":" (cadr (car n)))))))
   
10.            (addchild (cdr x))      
    
11.         )
    
12.         )
    
13.    )
    
14. )
    

<br /> (defun addchild (x)<br />    (if (= (car x) nil)<br />         nil <br />         (progn<br />         (foreach n x<br />           (setq Px (dcl_Tree_AddChild ydcood_YDCOOD_Tree<br />                (list(list p (strcat (car(car n)) ":" (cadr (car n)))))))<br />            (addchild (cdr x))       <br />         )<br />         )<br />    )<br /> )<br />

正常的是

用我自己的递归弄出来的变成

77077

哦,明白了,我的lst出错,格式没定义正确~