[LISP函数]：表中old元素替换为new元素

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; 将表中old元素替换为new元素
   
5. (defun th-lst-subst (new old lst)
   
6.   (apply
   
7.     'append
   
8.     (subst
   
9.       (list new)
   
10.       (list old)
    
11.       (mapcar
    
12.         'list
    
13.         lst
    
14.       )
    
15.     )
    
16.   )
    
17. )
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; 将表中old元素替换为new元素<br /> (defun th-lst-subst (new old lst)<br />   (apply<br />     'append<br />     (subst<br />       (list new)<br />       (list old)<br />       (mapcar<br />         'list<br />         lst<br />       )<br />     )<br />   )<br /> )<br />   [/FONT]<br />

176489156

有什么用

abcabcxyz

没太看明白,楼主能否给个解释呀

xiaofengwang

不懂，指点！

huanguangbo

哦知道了啊

wangyi168

很好！小巧使用，你真聪明啊

lukern

本程序好像没有查错功能

690994

简化了,一般人难懂,

carrot1983

手痒痒：
[php]
;; 参数：
;; old 旧元素
;; new 新元素
;; lst 列表
;; 功能：将表中old元素替换为new元素
;; By Carrot1983
(defun C-List-Subst (old new lst / item return)
  (setq return '())
  (while (setq item (car lst))
    (setq return (if (equal item old) ;_可扩展条件
                   (cons new return)
                   (cons item return)
                 )
    )
    (setq lst (cdr lst))
  )
  (reverse return)
)
[/php]

MoldTL

谢谢LZ的函数

yjch

更新数据时用起来太方便了，谢谢TANGER