[LISP]这个功能怎么样实现？

badgirl

怎么样删除表中指定位置的元素？比如（setq aa (list 2 2 3 5 6 9 9 5 4 2)),我要删除表中的第6个元素，得到的结果是(2 2 3 5 6 9 5 4 2).

f5612140

指令: (setq aa (list 2 2 3 5 6 9 9 5 4 2))
(2 2 3 5 6 9 9 5 4 2) 指令: (vl-remove (nth 5 aa) aa)
(2 2 3 5 6 5 4 2) 不好意思,少了一个9

badgirl

可是您将第七个元素也删除了。跟我要的结果不一样呀！(2 2 3 5 6 9 5 4 2).

ZZXXQQ

用下面的纯LISP函数代替2楼的VL-REMOVE函数。 (DEFUN XL-REMOVE (N L / TEMPL)
(SETQ TEMPL (LIST))
(REPEAT (1- N) (SETQ TEMPL (CONS (CAR L) TEMPL) L (CDR L)))
(SETQ L (CDR L) L (APPEND (LIST (REVERSE TEMPL)) L))
)

badgirl

有点不对，要做改动如下： (DEFUN XL-REMOVE (N L / TEMPL)
(REPEAT (1- N) (SETQ TEMPL (append (list (CAR L)) TEMPL) L (CDR L) ) )
(SETQ L (CDR L) L (APPEND (REVERSE TEMPL) L))
)
谢谢！

ZZXXQQ

感谢5楼的指正！昨天随手写了一个没有进行调试就发出了。现将调试后的代码贴上。 (DEFUN XL-REMOVE (N L / TEMPL)
(SETQ TEMPL (LIST))
(REPEAT (1- N) (SETQ TEMPL (CONS (CAR L) TEMPL) L (CDR L)))
(APPEND (REVERSE TEMPL) (CDR L))
)

badgirl

谢谢

无痕

2. (setq lst (list 2 2 3 5 6 9 9 5 4 2))
3. (defun remnlst (n lst / i)
4.    (apply 'append (mapcar '(lambda(x)(if (= n (setq i(if i (1+ i) 0))) nil (list x))) lst))
5. )(remnlst 6 lst)
6. _$
7. (2 2 3 5 6 9 5 4 2)

(setq lst (list 2 2 3 5 6 9 9 5 4 2)) (defun remnlst (n lst / i)    (apply 'append (mapcar '(lambda(x)(if (= n (setq i(if i (1+ i) 0))) nil (list x))) lst)) )(remnlst 6 lst) _$ (2 2 3 5 6 9 5 4 2)