如何删除list中，指定位置的元素，返回删除后的列表？

l282027798

如题，lisp有没有现成的函数？
非要自己写一个吗？感觉自己写的太浪费内存了，怕卡。
一个循环套一个循环的。


;删除list指定元素
(defun dele_lst(lst n)
    (setq j 0 lss (list))
    (repeat (length lst)
        (if (/= j (- n 1))    ;如果不是指定元素
            (setq lss (cons (nth j lst) lss))
        )
        (setq j (+ j 1))
    )
    (reverse lss)
)

(setq lst (list 1 2 3 4 5 6 7))
(princ (dele_lst lst 3))


;返回结果  (1 2 4 5 6 7)

llsheng_73

1. (defun del_position(lst n / i l a)
   
2.   (setq l(length lst)
   
3.         i(if(<(+ n n)l)-1 l))
   
4.   (if(< i n)
   
5.     (progn(while(<(setq i(1+ i))n)
   
6.             (setq a(cons(car lst)a)lst(cdr lst)))
   
7.       (append(reverse a)(cdr lst)))
   
8.     (progn(setq lst(reverse lst))
   
9.       (while(>(setq i(1- i))n)
   
10.             (setq a(cons(car lst)a)
    
11.                   lst(cdr lst)))
    
12.       (append(reverse(cdr lst))a))))

(defun del_position(lst n / i l a)<br />   (setq l(length lst)<br />         i(if(<(+ n n)l)-1 l))<br />   (if(< i n)<br />     (progn(while(<(setq i(1+ i))n)<br />             (setq a(cons(car lst)a)lst(cdr lst)))<br />       (append(reverse a)(cdr lst)))<br />     (progn(setq lst(reverse lst))<br />       (while(>(setq i(1- i))n)<br />             (setq a(cons(car lst)a)<br />                   lst(cdr lst)))<br />       (append(reverse(cdr lst))a))))

(DEL_POSITION'(0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9)6)
(0 0 1 1 2 2 3 4 4 5 5 6 6 7 7 8 8 9 9)

lisperado

yanshengjiang 发表于 2018-11-12 13:21
他要的是，比如说要返回第5项后面的所有项，能不能循环cdr呢？

1. ;借用函数库
   
2. ;reverse cdr (recursive) - hp
   
3. (defun rcdr (n l )
   
4.   (if (> n 0)(cons (nth (1- n) l) (rcdr (1- n) l ))))
   
5. 
   
6. 
   
7. (setq lst '(1 2 3 4 5 6 7 8 9 10))
   
8. (rcdr 4 lst)
   
9. ;;;(4 3 2 1)
   
10. 
    
11. 
    
12. ;;_cdr - lisperado
    
13. ;;i - mode 0=包头 , 1=包尾
    
14. ;;n - nth count of cdr
    
15. ;;l - list
    
16. ;;returns a list containing all the elements of list, except the remaining elements
    
17. 
    
18. (defun _cdr (i n l)
    
19. (vl-remove nil
    
20.    (if (and (numberp i) (zerop i))
    
21.     (reverse (rcdr n l ))
    
22.     (rcdr n (reverse l) )
    
23.     )
    
24.    )
    
25.   )
    
26. 
    
27. 
    
28. (_cdr 0 5 lst ) ;包头
    
29. ;;;(1 2 3 4 5)
    
30. 
    
31. (_cdr 1 5 lst ) ;包尾
    
32. ;;;(6 7 8 9 10)  
    
33. 
    

;借用函数库<br /> ;reverse cdr (recursive) - hp<br /> (defun rcdr (n l )<br />   (if (> n 0)(cons (nth (1- n) l) (rcdr (1- n) l ))))<br /> <br /> <br /> (setq lst '(1 2 3 4 5 6 7 8 9 10))<br /> (rcdr 4 lst)<br /> ;;;(4 3 2 1)<br /> <br /> <br /> ;;_cdr - lisperado<br /> ;;i - mode 0=包头 , 1=包尾<br /> ;;n - nth count of cdr<br /> ;;l - list<br /> ;;returns a list containing all the elements of list, except the remaining elements<br /> <br /> (defun _cdr (i n l)<br /> (vl-remove nil<br />    (if (and (numberp i) (zerop i))<br />     (reverse (rcdr n l ))<br />     (rcdr n (reverse l) )<br />     )<br />    )<br />   )<br /> <br /> <br /> (_cdr 0 5 lst ) ;包头<br /> ;;;(1 2 3 4 5)<br /> <br /> (_cdr 1 5 lst ) ;包尾<br /> ;;;(6 7 8 9 10)  <br /> <br />

lisperado

ketxu 发表于 2018-11-11 23:48
I choice with

(defun nth_del (l n / i)
        (setq i 0)
        (vl-remove-if '(lambda (i)(= i n)) l)
)


hi,if symbol 'i' is localized in lambda, then 'i' holds no value, it always be nil :)

you forgot iteration??  (setq i (1+ i))

suggestion:

1. (defun nth_del (l n / i)
   
2.         (setq i -1)
   
3.         (vl-remove-if ''((l) (= n (setq i (1+ i)) ) ) l)
   
4. )

(defun nth_del (l n / i)<br />         (setq i -1)<br />         (vl-remove-if ''((l) (= n (setq i (1+ i)) ) ) l)<br /> )

fangmin723

直接用vl-remove就可以了
命令: (setq lst (vl-remove 3 '(1 2 3 4 5 6 7))) (1 2 4 5 6 7)

fangmin723

呃，卡住了，连续回复了两次

l282027798

fangmin723 发表于 2018-11-8 15:52
直接用vl-remove就可以了
命令: (setq lst (vl-remove 3 '(1 2 3 4 5 6 7))) (1 2 4 5 6 7)

用vl 系列，还得 (vl-load-com) 呢

fangmin723

l282027798 发表于 2018-11-8 16:24
用vl 系列，还得 (vl-load-com) 呢

呃，我没加载(vl-load-com)也能用啊，再说，就非加载的话不就一句代码的事吗，为啥弄得那么复杂

fangmin723

(defun tt(lst loc / n nlst)
        (setq n 0 nlst nil)
        (mapcar '(lambda(x) (if (/= n loc) (progn (setq nlst (cons x nlst) n (+ n 1))) (progn (setq n (+ n 1)))) (prin1)) lst)
        (reverse nlst)
)


命令: (tt '(0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9) 6)
(0 0 1 1 2 2 3 4 4 5 5 6 6 7 7 8 8 9 9)

ketxu

I choice with <1000 items list :

1. (defun nth_del (l n / i)
   
2.         (setq i 0)
   
3.         (vl-remove-if '(lambda(i)(= i n)) l)
   
4. )

(defun nth_del (l n / i)<br />         (setq i 0)<br />         (vl-remove-if '(lambda(i)(= i n)) l)<br /> )

lisperado

fangmin723 发表于 2018-11-8 15:52
直接用vl-remove就可以了
命令: (setq lst (vl-remove 3 '(1 2 3 4 5 6 7))) (1 2 4 5 6 7)

标题是指定位置而不是 指定数值

虽然如此，也请注意vl-remove会把所有重复也删除！
(setq lst  (0 0 1 1 2 3 4 4 5 5 6 6 7 7 5 5 8 8 9 9))

(vl-remove 5 lst)
'(0 0 1 1 2 2 3 4 4 6 6 7 7 8 8 9 9)

小心类似 subst 也要多注意

举例：
(subst nil 5 lst)
(0 0 1 1 2 2 3 4 4 nil nil 6 6 7 7 nil nil 8 8 9 9)