[讨论]：有没有更好的方法简化这个函数？

zxq0220

[php]
;;表删除第N项元素
;;(DNR '(0 1 2 3 4 5) 3) -> (0 1 3 4 5)
(DEFUN DNR (L N)
(IF (< 0 N (1+ (LENGTH L))) ;判断N是否出界(0<N<=表长)
  (IF (= N 1)                           ;N是第一个吗？
   (CDR L)                         ;返回尾表
   (APPEND (LIST (CAR L)) (DNR (CDR L) (1- N)));首项+删去N-1项的尾表
  )
)
)
[/php]

xyp1964

最初由 zxq0220 发布
[B][php]
;;表删除第N项元素
;;(DNR '(0 1 2 3 4 5) 3) -> (0 1 3 4 5)
(DEFUN DNR (L N)
(IF (< 0 N (1+ (LENGTH L))) ;判断N是否出界(0<N<=表长)
  (IF (= N 1)                           ;N是第一个吗？
   ... [/B]

命令: (DNR '(0 1 2 3 4 5) 8)
nil

狂刀

(DNR '(0 1 2 nil 4 5) 3)->(0 1 nil 4 5)
(DNR '(0 1 (2 3) 4 5) 3)->(0 1 4 5)
(DNR '(0 1 (2 3 4) 5) 3)->(0 1 5)

xyp1964

命令: (DNR '(0 1 2 nil 4 5) 3)
(0 1 nil 4 5)

命令: (DNR '(0 1 2 nil 4 5) 4)
(0 1 2 4 5)

命令: (DNR '(0 1 2 nil 4 5) 5)
(0 1 2 nil 5)

命令: (DNR '(0 1 2 nil 4 5) 6)
(0 1 2 nil 4)

命令: (DNR '(0 1 2 nil 4 5) 7)
nil
出错。超过原表范围应该返回原表！

eachy

还可以这样写

2. 
   
3. (defun xdl-lst-deln (lst n)
   
4.   (if (not (listp n))
   
5.     (setq n (list n))
   
6.   )
   
7.   (setq          i -1)
   
8.   (vl-remove nil
   
9.              (mapcar '(lambda (x)
   
10.                         (setq i (1+ i))
    
11.                         (if (member i n)
    
12.                           nil;_如果你认为 nil 也有意义，可以换一个自己认为不会冲突的字串
    
13.                           x
    
14.                         )
    
15.                       )
    
16.                      lst
    
17.              )
    
18.   )
    
19. )

<br /> (defun xdl-lst-deln (lst n)<br />   (if (not (listp n))<br />     (setq n (list n))<br />   )<br />   (setq          i -1)<br />   (vl-remove nil<br />              (mapcar '(lambda (x)<br />                         (setq i (1+ i))<br />                         (if (member i n)<br />                           nil;_如果你认为 nil 也有意义，可以换一个自己认为不会冲突的字串<br />                           x<br />                         )<br />                       )<br />                      lst<br />              )<br />   )<br /> )

舟自横

[php]
(defun dnr (n xlist /  i  uu)
(setq i 0 uu nil)
(foreach it xlist (progn (if (/= i n)
(setq uu (cons it uu)))
(setq i (1+ i))
))
(reverse uu))
[/php]
这样如何

aeo

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

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

命令: (remove-nth '(0 1 2 3 4) 1)
(0 2 3 4)

DEA

LISP就这个函数了，
reverse member与结合
如：(setq AB (reverse (member (assoc 39 A) (reverse A))))

狂刀

aeo的代码不错
楼上的，你试试 '( 1 2 3 2 1) 能行么？