用vl-remove-if 写个去除祖玛enlist的第1-4个元素，谢谢大侠

katamoto

我想删除祖玛表的第1-4个元素，用vl-remove-if来一句话写，但是自己没整出来，只好到明经求助了。。

(setq a (list 1 2 3 4))
(vl-remove-if '(lambda (x) ...... enlist)
后面就不会了。。。。

aihuyujian

cddddr 试试呗

katamoto

楼上能帮我写一下吗？
或者不用vl-remove-if,能实现我的所要的删除表中指定位置的元素，指定位置是多个，在一个表内list0内，如
（2 3 7 11)，删除表的第2、3、7、11号元素（我知道表是从0开始算的），怎么解决？

代码希望尽量简捷一点，

鱼与熊掌

2. ;来自黄名儒
   
3. ;;除去表一部分
   
4. ;;(enth 2 3 '(1 2 3 4 5))
   
5. (defun enth (from to lst / I L)
   
6.   (setq i -1)
   
7.   (foreach x lst
   
8.     (setq i (1+ i))
   
9.     (cond ((or (< i from) (> i to)) (setq l (cons x l))))
   
10.   ) ;_ 结束foreach
    
11.   (REVERSE l)
    
12. )

;来自黄名儒<br /> ;;除去表一部分<br /> ;;(enth 2 3 '(1 2 3 4 5))<br /> (defun enth (from to lst / I L)<br />   (setq i -1)<br />   (foreach x lst<br />     (setq i (1+ i))<br />     (cond ((or (< i from) (> i to)) (setq l (cons x l))))<br />   ) ;_ 结束foreach<br />   (REVERSE l)<br /> )

鱼与熊掌

2. ;By 熊掌定制.
   
3. ;CAD插件定制 QQ775452144
   
4. (defun cx-EListPo(lst e_lst)
   
5.         (vl-remove-if '(lambda(x)(member(vl-position x lst)e_lst))lst)
   
6. )
   

;By 熊掌定制.<br /> ;CAD插件定制 QQ775452144<br /> (defun cx-EListPo(lst e_lst)<br />         (vl-remove-if '(lambda(x)(member(vl-position x lst)e_lst))lst)<br /> )<br />

鱼与熊掌

(cx-EListPo '(1 2 3 4 5) '(0 3 2))
=> '(2 5)
删除0位 3位 2位的元素.

sutai

鱼与熊掌 发表于 2015-1-30 01:25

好强大！又学到一招~

llsheng_73

鱼与熊掌 发表于 2015-1-30 01:26
(cx-EListPo '(1 2 3 4 5) '(0 3 2))
=> '(2 5)
删除0位 3位 2位的元素.

(CX-ELISTPO'(1 2 3 1 3 5)'(0 2))
(2 5)

llsheng_73

1. (defun tt(lst en_lst / i a)
   
2.   (setq i -1)
   
3.   (reverse(repeat(length lst)
   
4.     (setq i(1+ i)
   
5.           a(if(member i en_lst)a(cons(nth i lst)a)))))
   
6.   )

(defun tt(lst en_lst / i a)<br />   (setq i -1)<br />   (reverse(repeat(length lst)<br />     (setq i(1+ i)<br />           a(if(member i en_lst)a(cons(nth i lst)a)))))<br />   )

(tt'(1 2 3 1 3 5)'(0 2))
(2 1 3 5)

llsheng_73

鱼与熊掌 发表于 2015-1-30 01:22

1. (defun enth (from to lst / I L)
   
2.   (setq i -1)
   
3.   (foreach x lst
   
4.     (setq i (1+ i)
   
5.           l(if(<= from i to)l(cons x l)))
   
6.   ) ;_ 结束foreach
   
7.   (REVERSE l)
   
8. )

(defun enth (from to lst / I L)<br />   (setq i -1)<br />   (foreach x lst<br />     (setq i (1+ i)<br />           l(if(<= from i to)l(cons x l)))<br />   ) ;_ 结束foreach<br />   (REVERSE l)<br /> )