[求助]：怎样删掉列表中的值？

zhoufupeng

求教，假设有一个列表‘（“A” “B" "C" "D"）
有没有办法删掉其中一个,把它变成'（“A” “C” “D”）呢？

zooloo

(vl-remove "B" '("A" "B" "C" "D"))

zhoufupeng

好用呢，谢谢

caddog

这样作有一个弊端，若表中有两个相同的直，都会被删除掉
(vl-remove "B" '("A" "B" "C" "B" "D"))
返回("A" "C" "D")

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun txt1-delnth (idx lst / nlst cnt elem)
   
5.   (setq nlst '()
   
6.         cnt 0
   
7.   )
   
8.   (foreach elem lst
   
9.     (if (/= cnt idx)
   
10.       (setq nlst (cons elem nlst))
    
11.     )
    
12.     (setq cnt (1+ cnt))
    
13.   )
    
14.   (reverse nlst)
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun txt1-delnth (idx lst / nlst cnt elem)<br />   (setq nlst '()<br />         cnt 0<br />   )<br />   (foreach elem lst<br />     (if (/= cnt idx)<br />       (setq nlst (cons elem nlst))<br />     )<br />     (setq cnt (1+ cnt))<br />   )<br />   (reverse nlst)<br /> )<br />   [/FONT]<br />