如何返回去除某元素后的表？

yaopx0782

本人编程时需要在一个长表中随机去除某一个元素（实际是子表），然后在剩下的表中继续进行同样的操作，但从表中取某个元素容易，怎样才能得到去掉某个元素后的表呢？请各位高手帮忙，不胜感谢！

torcky

也许你需要vl-remove函数!

wdb

可以从表中逐个读出元素，然后判断这个元素是否满足你的条件，如满足条件，则写入另一个表中。循环读完即可。

yaopx0782

谢谢，我用member函数和reverse函数以及append函数把问题给解决了，不过只是针对我的问题，因为我的问题中表的元素没有相同的。

Ea

把你的解决方法帖上来呀，这样才有人和你探讨算法，共同学习。

yaopx0782

(defun slist(i blist)
(setq e (nth i blist))
(setq list2 (cdr (member e blist)))
(setq list1 (reverse (cdr (member e (reverse blist)))))
(setq blist (append list1 list2))
) 此方法适用于表中元素不相同的的情况。

ZZXXQQ

yaopx0782：如果表中不存在指定元素，6楼程序会出错，应该加上错误判断。

1.   (DEFUN SLIST (ITEM LLIST)
2.    (IF (MEMBER ITEM LLIST)
3.      (APPEND
4.        (REVERSE (CDR (MEMBER ITEM (REVERSE LLIST))))
5.        (CDR (MEMBER ITEM LLIST))
6.      )
7.      LLIST
8.    )
9.   )

复制代码

yaopx0782

(defun nth-remove (f_n f_list / ) ;removes nth element from a list
(if (and (numberp f_n) (listp f_list))
(if (and (>= f_n 0) (< f_n (length f_list)))
(progn
(repeat f_n
(setq f_list (append (cdr f_list) (list (car f_list))))
)
(setq f_list (cdr f_list))
(repeat (- (length f_list) f_n)
(setq f_list (append (cdr f_list) (list (car f_list))))
)
)
)
)
f_list
)

zhynt

;;去除表中指定项
(defun zhy_drop (lst item)
(append (reverse (cdr (member item (reverse lst))))
(cdr (member item lst))
)
)