[求助]：怎么修改表中的一个数据

大土匪

用什么函数可以只修正表中的一个数据?
例如
(setq a '(1 2 3 4 5))
然后我要让
a=  '(1 3 3 4 5)

不怎么会表达,谢谢

snsj

(sbust 3 2 a)

大土匪

我用的是R14，怎么好像没有这个函数阿

大土匪

发现是版主写错了一个字，subst啊
还有能指定是第二元素，这样吗？（就是index＝1）

大土匪

但是这样不就无法分辨同一表中内容相同的项了吗?
如:我想让'(2 2 2 2 2)变成'(2 3 2 2 2)
就无法使用下面的指令了.
(setq a '(2 2 2 2 2))
(subst 3 (- (nth 2 a) 1) a)

本人比较麻烦,请版主见谅.

还有我觉得你的应该是这样用吧:
(subst <要替换的值> (nth (- <替代第N个元素> 1) <表>) <表>)
因为索引号是从0开始的.
请斧正

陌生人

2. 
   
3. ; (xl-rep lst i a) = 将表lst第i个元素替换为a，返回新表.-----------------------------陌生人.2004.2
   
4. ; eg: (xl-rep '(2 2 2 2) 1 "a") -> (2 "a" 2 2)
   
5. (defun xl-rep (lst i a / n nlst)
   
6.   (setq n 0)
   
7.   (foreach x lst
   
8.     (setq nlst (cons  (if (= i n) a x) nlst)  n (1+ n))
   
9.   )(reverse nlst)
   
10. )
    

<br /> ; (xl-rep lst i a) = 将表lst第i个元素替换为a，返回新表.-----------------------------陌生人.2004.2<br /> ; eg: (xl-rep '(2 2 2 2) 1 "a") -> (2 "a" 2 2)<br /> (defun xl-rep (lst i a / n nlst) <br />   (setq n 0)<br />   (foreach x lst<br />     (setq nlst (cons  (if (= i n) a x) nlst)  n (1+ n))<br />   )(reverse nlst)<br /> )<br />

snsj

这个

2. 
   
3. (defun dtf (NB N LST / x i)
   
4. (setq i 0 )
   
5. (mapcar
   
6.   '(lambda (x)
   
7.      (setq i (+ i 1))
   
8.      (if (= i N) (setq x NB))
   
9.      (setq x x)
   
10.      )
    
11.   LST
    
12.   )
    
13.   )
    

<br /> (defun dtf (NB N LST / x i)<br /> (setq i 0 )<br /> (mapcar<br />   '(lambda (x)<br />      (setq i (+ i 1))<br />      (if (= i N) (setq x NB))<br />      (setq x x)<br />      )<br />   LST<br />   )<br />   )<br />

(setq a '(2 2 2 2 2))
(dtf 3 2 a)
(dtf <代替数字> <要代替数字的序号> <表>)

大土匪

哦，我明白了，谢谢

eachy

“一个日文网页”上的函数

2. 
   
3. ;; 用 a 置換表 l 中 第 n 个元素;
   
4. ;|
   
5. 用法：(subst-n '(0 2) '(99 22) '((1 2 3) 2 55 99 66))       替换第一个子表第三项
   
6.                                    ((1 2 (99 22)) 2 55 99 66)
   
7.       (subst-n '(2 1) '(99) '(1 2 (55) 99 66))   替换第二个子表第二项
   
8.                                   (1 2 (55 ((99))) 99 66)
   
9.       (subst-n 2.0 '(99) '(1 2 55 99 66)) 替换第二个原子
   
10.                              (1 2 (99) 99 66)
    
11. |;
    
12. (defun subst-n (n a l)
    
13.   (cond
    
14.     ((numberp n)                        ;整数或实数
    
15.      (if (zerop n)
    
16.        (append (list a) (cdr l))        ;第一个
    
17.        (cons (car l) (subst-n (1- n) a (cdr l))) ;
    
18.      )
    
19.     )
    
20.     ((listp n)                                ;表
    
21.      (cond
    
22.        ((equal (length n) 1)                ;替换单项
    
23.         (if (zerop (car n))
    
24.           (append (list a) (cdr l))
    
25.           (cons (car l) (subst-n (1- (car n)) a (cdr l)))
    
26.         )
    
27.        )
    
28.        ((> (length n) 1)                ;替换子表项
    
29.         (if (zerop (car n))
    
30.           (cons (subst-n (cdr n) a (car l)) (cdr l))
    
31.           (cons
    
32.             (car l)
    
33.             (subst-n (append (list (1- (car n))) (cdr n)) a (cdr l))
    
34.           )
    
35.         )
    
36.        )
    
37.      )
    
38.     )
    
39.   )
    
40. )

<br /> ;; 用 a 置換表 l 中 第 n 个元素;<br /> ;|<br /> 用法：(subst-n '(0 2) '(99 22) '((1 2 3) 2 55 99 66))       替换第一个子表第三项<br />                                    ((1 2 (99 22)) 2 55 99 66)<br />       (subst-n '(2 1) '(99) '(1 2 (55) 99 66))   替换第二个子表第二项<br />                                   (1 2 (55 ((99))) 99 66)<br />       (subst-n 2.0 '(99) '(1 2 55 99 66)) 替换第二个原子<br />                              (1 2 (99) 99 66)<br /> |;<br /> (defun subst-n (n a l)<br />   (cond<br />     ((numberp n)                        ;整数或实数<br />      (if (zerop n)<br />        (append (list a) (cdr l))        ;第一个<br />        (cons (car l) (subst-n (1- n) a (cdr l))) ;<br />      )<br />     )<br />     ((listp n)                                ;表<br />      (cond<br />        ((equal (length n) 1)                ;替换单项<br />         (if (zerop (car n))<br />           (append (list a) (cdr l))<br />           (cons (car l) (subst-n (1- (car n)) a (cdr l)))<br />         )<br />        )<br />        ((> (length n) 1)                ;替换子表项<br />         (if (zerop (car n))<br />           (cons (subst-n (cdr n) a (car l)) (cdr l))<br />           (cons<br />             (car l)<br />             (subst-n (append (list (1- (car n))) (cdr n)) a (cdr l))<br />           )<br />         )<br />        )<br />      )<br />     )<br />   )<br /> )

陌生人

抗日到底！我们能比小日本做的更好！
[/SIZE] [php]
;|"(xl-sub-i <新项> <序号i层次表> <表>) = 按序号层次表替换表元素 v0.1－－－－－－－－－－－－－－－陌生人。2004.2;
返回: 成功->返回新表。不成功返回原表.
序号从0起算，支持任意深度的层次！
测试: (xl-sub-ilst "a" '(1 1 0) '(0 (1 ((6 8) 9) 7) 2 3 4 5)) -> (0 (1 ("a" 9) 7) 2 3 4 5); ;替换表中第一项中第一项中第0项.
       (xl-sub-ilst "a" '(1 1) '(0 (1 ((6 8) 9) 7) 2 3 4 5))   -> (0 (1 "a" 7) 2 3 4 5)
       (xl-sub-ilst "a" '(2 1 0) '(0 (1 ((6 8) 9) 7) 2 3 4 5)) -> (0 (1 ((6 8) 9) 7) 2 3 4 5)
"|;
(defun xl-sub-ilst (a ilst LST / n)
(if (and (listp lst)(listp ilst)(setq n -1)) ;加入对lst,ilst表的 判断.
   (apply 'append
     (mapcar '(lambda (x)
                   (setq n (1+ n))
              (cond
                ((= (car ilst) n) (if (= 1 (length ilst)) (list a) (list(xl-sub-ilst a (cdr ilst) x))))
                (T (list x))
              ))
              LST
     )
   )
   lst
)
)[/php]

eachy

最初由 陌生人 发布
[B]抗日到底！我们能比小日本做的更好！
[/SIZE] [php]
;|"(xl-sub-i <新项> <序号i层次表> <表>) = 按序号层次表替换表元素 v0.1－－－－－－－－－－－－－－－陌生人。2004.2;
返回:... [/B]

xl-sub-i -> xl-sub-ilst

陌生人

xl-sub-i -> xl-sub-ilst

？什么意思？

eachy

最初由 陌生人 发布
[B]

？什么意思？ [/B]

当然是你写错了:)

陌生人

哦，哈哈，谢谢。
xl-sub-i  是对单个（仅1重）表项替换的。xl-sub-ilst是对深层表项替换的，说明里面忘了改了：）

aeo

最初由 陌生人 发布
[B]抗日到底！我们能比小日本做的更好！
[/SIZE] [php]
;|"(xl-sub-i <新项> <序号i层次表> <表>) = 按序号层次表替换表元素 v0.1－－－－－－－－－－－－－－－陌生人。2004.2;
返回:... [/B]

象ea贴的一样，ilst应该能支持的 不仅仅是表,还应该可以是数字.

2. 
   
3. (defun xl-sub-ilst (a ilst LST / n)
   
4. (setq n -1)
   
5. (cond
   
6.    ((null ilst) a)
   
7.    ((atom ilst)(xl-sub-ilst  a(list ilst )lst))
   
8.       ((listp lst)
   
9.    (apply 'append
   
10.      (mapcar '(lambda (x)
    
11.                (setq n (1+ n))
    
12.           (cond
    
13.             ((= (car ilst) n) (if (= 1 (length ilst)) (list a) (list(xl-sub-ilst a (cdr ilst) x))))
    
14.             (T (list x))
    
15.           ))
    
16.           LST
    
17.      )
    
18.    )
    
19.    lst
    
20. )
    
21. )

<br /> (defun xl-sub-ilst (a ilst LST / n)<br /> (setq n -1)<br /> (cond<br />    ((null ilst) a)<br />    ((atom ilst)(xl-sub-ilst  a(list ilst )lst))<br />       ((listp lst)<br />    (apply 'append<br />      (mapcar '(lambda (x)<br />                (setq n (1+ n))<br />           (cond<br />             ((= (car ilst) n) (if (= 1 (length ilst)) (list a) (list(xl-sub-ilst a (cdr ilst) x))))<br />             (T (list x))<br />           ))<br />           LST<br />      )<br />    )<br />    lst<br /> )<br /> )