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

fangmin723

lisperado 发表于 2018-11-12 10:58
标题是指定位置而不是 指定数值

虽然如此，也请注意vl-remove会把所有重复也删除！

我知道他的标题，但是你看的帖子内容没有，帖子内容里面的代码是：删除表中的元素，并不是删除指定位置的元素

删除指定位置元素  和   删除指定元素    是有很大区别的，这一点我猜楼主自己还没有弄清楚

我是以帖子内容为准，毕竟贴出了代码和想实现的功能

fangmin723

lisperado 发表于 2018-11-12 11:08
(defun nth_del (l n / i)
        (setq i 0)
        (vl-remove-if '(lambda (i)(= i n)) l)

人家不喜欢vlisp函数，他认为需要加载(vl-load-com)

yanshengjiang

他要的是，比如说要返回第5项后面的所有项，能不能循环cdr呢？

fangmin723

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

可以啊，但不建议

• (foreach x lst (if (<= (length lst1) 5) (setq lst1 (cons x lst1)) (setq lst2 (cons x lst2)))))
• (reverse lst2)
  

yanshengjiang

fangmin723 发表于 2018-11-12 13:35
可以啊

哦 我才发现我没读懂他的要求。 我以为'(1 2 3 4 5 6 7 )第四项要返回'(5 6 7)了 估计他不是这个需求

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

fangmin723 发表于 2018-11-12 13:13
我知道他的标题，但是你看的帖子内容没有，帖子内容里面的代码是：删除表中的元素，并不是删除指定位置 ...

嘻嘻 大家好像都被标题困惑了！
您对项目的了解“删除表中的元素，并不是删除指定位置的元素”，
我却以为 “删除指定表位置 ”，而13楼所猜测的是“后面的所有项”？

大家都想回帖帮忙，分享是美德。
无论如何让楼主自己选择最佳解决方案吧！

lisperado

fangmin723 发表于 2018-11-12 13:19
人家不喜欢vlisp函数，他认为需要加载(vl-load-com)

虽然机关枪上膛一次可以开几百发，
但谁有权力阻止小李飞刀，武士或忍者用刀剑呢！ :P

xyp1964

lisperado 发表于 2018-11-12 10:58
标题是指定位置而不是 指定数值

虽然如此，也请注意vl-remove会把所有重复也删除！

(vl-remove-if '(lambda (x) (= (vl-position x lst) 5)) lst)

xyp1964

1. ;; (setq lst '(0 0 1 1 2 3 4 4 5 5 6 6 7 7 5 5 8 8 9 9))
   
2. ;; (abc lst 5)
   
3. (defun abc (lst n)
   
4.   (vl-remove-if '(lambda (x) (= (vl-position x lst) n)) lst)
   
5. )

;; (setq lst '(0 0 1 1 2 3 4 4 5 5 6 6 7 7 5 5 8 8 9 9))<br /> ;; (abc lst 5)<br /> (defun abc (lst n)<br />   (vl-remove-if '(lambda (x) (= (vl-position x lst) n)) lst)<br /> )