;;去掉表中某个位置的元素

asdfxx · 发表于 2009-7-28 10:49:00

提示: 作者被禁止或删除内容自动屏蔽

cjs · 发表于 2009-7-28 11:04:00

(vl-remove element-to-remove list)

参数

element-to-remove :要删除的元素的值。可以为任意 LISP 数据类型。

list :任意表。

返回值:list，其中包含删除与 element-to-remove 相等的元素后的所有元素。

淮上 · 发表于 2009-7-28 12:33:00

(vl-sort '(0 1 23 2 23) '<)

asdfxx · 发表于 2009-7-28 12:55:00

提示: 作者被禁止或删除内容自动屏蔽

asdfxx · 发表于 2009-7-28 13:00:00

提示: 作者被禁止或删除内容自动屏蔽

qjchen · 发表于 2009-7-28 14:26:00

:)

ACET-LIST-REMOVE-NTH

(ACET-LIST-REMOVE-NTH n lst)

注:n<0时，取0

当然，你可以看看

好多国内外高手都各显神通 :P

淮上 · 发表于 2009-7-28 14:46:00

(defun test (lst n / i)

(setq i -1)
(vl-remove-if '(lambda (x) (= (setq i (1+ i)) n)) lst)

)

账号		自动登录	找回密码
密码			注册

asdfxx asdfxx 当前离线积分 2242 明经币个注册时间 2009-7-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-28 10:49:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

asdfxx asdfxx 当前离线积分 2242 明经币个注册时间 2009-7-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-7-28 12:55:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

asdfxx asdfxx 当前离线积分 2242 明经币个注册时间 2009-7-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-7-28 13:00:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡