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

l282027798

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

不是不喜欢，而是有时候加载会失败，而且懒得解决了。

ketxu

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

Sorry for my bad, we needn't set i value ^^

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

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

lisperado

ketxu 发表于 2018-11-29 11:48
Sorry for my bad, we needn't set i value ^^

;try other list ^^

(nth_del '(9 8 7 6 5 4 3 2 1) 3) ;? nth 3 is 6

(setq lst '(1st B 2 "3" ) )

( nth_del lst 3 )

ketxu

Oh i see now. I miss-understood the question when translating from Chinese to my language. Tks you for point oues

start4444

菜卷鱼

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

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