谁有替换表中第N个元素的函数，谢谢

liminnet · 发表于 2009-6-8 11:33:00

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

"觉得好，就打赏"

还没有人打赏，支持一下

caoyin · 发表于 2009-6-8 12:30:00

(defun lt:list-subst-n (lst n new / it lst2 le)
(setq it (nth n lst) lst2 (reverse lst) le (- (length lst) n 1))
(while (/= (length (setq lst2 (cdr (member it lst2)))) n))
(while (/= (length (setq lst (cdr (member it lst)))) le))
(append (reverse lst2) (list new) lst)
)
;;test
(lt:list-subst-n '("A" "B" "C" "D" "E" "F" "G") 4 "NEW")->("A" "B" "C" "D" "NEW" "F" "G")

liminnet · 发表于 2009-6-8 13:54:00

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

TANER · 发表于 2009-6-8 14:19:00

(defun hao-lst-repl (lst pos new)
(setq pos (1+ pos))
(mapcar
'(lambda (x)
(if (zerop (setq pos (1- pos)))
new
x
)
)
lst
)
)
(defun t2-lst-repl (lst pos new / i)
(setq i -1)
(mapcar
'(lambda (x)
(if (= (setq i (1+ i))
pos
)
new
x
)
)
lst
)
)

caoyin · 发表于 2009-6-8 17:27:00

看似简单，但对于长的表不快

liminnet · 发表于 2009-6-8 17:59:00

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

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

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-6-8 11:33:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽 "觉得好，就打赏" 打赏还没有人打赏，支持一下

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

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

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

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

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

谁有替换表中第N个元素的函数，谢谢

回复：（TANER）[CODE](defun hao-lst-repl (lst pos ...