自定义vl-remove

/db_自贡黄明儒_

(defun remove (lst ele) (apply 'append (subst nil (list ele) (mapcar 'list lst))))

Lisphk

楼主，是不是一下把所有相同的都删除掉了？ 如果只想删除第一个呢？

lijiao

精神可嘉，好像没看到优越性

/db_自贡黄明儒_

lijiao 发表于 2013-8-14 14:35
精神可嘉，好像没看到优越性

那是那是。lisp本来的作用就是用来消磨时间，其它什么作用也没有。

taner

2. (defun remove (ele lst)
   
3.   (apply
   
4.     'append
   
5.     (mapcar
   
6.       (function        (lambda        (x)
   
7.                   (if (/= x ele)
   
8.                     (LIst x)
   
9.                   )
   
10.                 )
    
11.       )
    
12.       lst
    
13.     )
    
14.   )
    
15. )

(defun remove (ele lst)<br />   (apply<br />     'append<br />     (mapcar<br />       (function        (lambda        (x)<br />                   (if (/= x ele)<br />                     (LIst x)<br />                   )<br />                 )<br />       )<br />       lst<br />     )<br />   )<br /> )

/db_自贡黄明儒_

;;练习

1. (defun remove1 (lst ele / LST1)
   
2.   (foreach x lst
   
3.     (if        (/= x ele)
   
4.       (setq lst1 (cons x lst1))
   
5.     )
   
6.   )
   
7.   (REVERSE lst1)
   
8. )
   
9. 
   
10. (defun remove2 (lst ele / LST1)
    
11.   (foreach x lst
    
12.     (if        (/= x ele)
    
13.       (setq lst1 (append lst1 (list x)))
    
14.     )
    
15.   )  
    
16. )
    

(defun remove1 (lst ele / LST1)<br />   (foreach x lst<br />     (if        (/= x ele)<br />       (setq lst1 (cons x lst1))<br />     )<br />   )<br />   (REVERSE lst1)<br /> )<br /> <br /> (defun remove2 (lst ele / LST1)<br />   (foreach x lst<br />     (if        (/= x ele)<br />       (setq lst1 (append lst1 (list x)))<br />     )<br />   )  <br /> )<br />

xvjiex

感谢楼主分享自定义vl-remove！