请教：修改深藏在多重列表中的元素值

etoxp

有一个多重列表，我想修改深藏在这个列表中的某元素的值，返回更新后的列表，程序要怎么写呢？有没有简单的实现方法？
譬如：我想修改下面列表中ABB2的值，要怎么做呢？ ABB3的位置可以用一个定位列表来表示，譬如'(0 1 1 2)
(setq List0 (list
              (list
                (list
                  (list AAA1 AAA2 AAA3)
                  (list AAB1 AAB2 AAB3)
                  (list AAC1 AAC2 aAC3)
                )
                (list
                  (list ABA1 ABA2 ABA3)
                  (list ABB1 ABB2 ABB3)
                  (list ABC1 ABC2 ABC3)
                )
              )
              (list
                (list
                  (list BAA1 BAA2 BAA3)
                  (list BAB1 BAB2 BAB3)
                  (list BAC1 BAC2 BAC3)
                )
                (list
                  (list BBA1 BBA2 BBA3)
                  (list BBB1 BBB2 BBB3)
                  (list BBC1 BBC2 BBC3)
                )
              )
            )
)

2. (setq List0 (list
   
3.         (list
   
4.     (list
   
5.       (list AAA1 AAA2 AAA3)
   
6.       (list AAB1 AAB2 AAB3)
   
7.       (list AAC1 AAC2 aAC3)
   
8.     )
   
9.     (list
   
10.       (list ABA1 ABA2 ABA3)
    
11.       (list ABB1 ABB--2 ABB3)
    
12.       (list ABC1 ABC2 ABC3)
    
13.     )
    
14.         )
    
15.         (list
    
16.     (list
    
17.       (list BAA1 BAA2 BAA3)
    
18.       (list BAB1 BAB2 BAB3)
    
19.       (list BAC1 BAC2 BAC3)
    
20.     )
    
21.     (list
    
22.       (list BBA1 BBA2 BBA3)
    
23.       (list BBB1 BBB2 BBB3)
    
24.       (list BBC1 BBC2 BBC3)
    
25.     )
    
26.         )
    
27.       )
    
28. )

(setq List0 (list<br />         (list<br />     (list<br />       (list AAA1 AAA2 AAA3)<br />       (list AAB1 AAB2 AAB3)<br />       (list AAC1 AAC2 aAC3)<br />     )<br />     (list<br />       (list ABA1 ABA2 ABA3)<br />       (list ABB1 ABB--2 ABB3)<br />       (list ABC1 ABC2 ABC3)<br />     )<br />         )<br />         (list<br />     (list<br />       (list BAA1 BAA2 BAA3)<br />       (list BAB1 BAB2 BAB3)<br />       (list BAC1 BAC2 BAC3)<br />     )<br />     (list<br />       (list BBA1 BBA2 BBA3)<br />       (list BBB1 BBB2 BBB3)<br />       (list BBC1 BBC2 BBC3)<br />     )<br />         )<br />       )<br /> )

Gu_xl

1. (defun f (l ll a / i b)  (if (and
   
2.         (listp l)
   
3.         (setq b (car ll))
   
4.         (setq i -1)
   
5.       )
   
6.     (mapcar
   
7.       '(lambda (x)
   
8.          (setq i (1+ i))
   
9.          (if (/= i b)
   
10.            x
    
11.            (if (cdr ll)
    
12.              (f x (cdr ll) a)
    
13.              a
    
14.            )
    
15.          )
    
16.        )
    
17.       l
    
18.     )
    
19.     l
    
20.   )
    
21. )
    
22. ;;测试 (f list0 '(0 1 1 2) "ABB#")

(defun f (l ll a / i b)  (if (and<br />         (listp l)<br />         (setq b (car ll))<br />         (setq i -1)<br />       )<br />     (mapcar<br />       '(lambda (x)<br />          (setq i (1+ i))<br />          (if (/= i b)<br />            x<br />            (if (cdr ll)<br />              (f x (cdr ll) a)<br />              a<br />            )<br />          )<br />        )<br />       l<br />     )<br />     l<br />   )<br /> )<br /> ;;测试 (f list0 '(0 1 1 2) "ABB#")

etoxp

是不是我问的问题太简单了，感觉貌似要用递归来实现。

自贡黄明儒

etoxp 发表于 2014-3-11 20:22
是不是我问的问题太简单了，感觉貌似要用递归来实现。

想来也是用递归，不过,你把表整这么深干什么呢？

etoxp

Gu_xl 发表于 2014-3-12 12:53

谢谢G版，非常感谢！