求助

spring · 发表于 2004-4-16 18:40:00

(setq li '("20" "0" "15" "20" "0"))

如果我只想把表中的第四项 "20" 替换掉,要怎么办

一开始我想用 subst 函数,subst 函数会替换掉表 li 里所有的 "20" 所以不行

meflying · 发表于 2004-4-16 19:13:00

我也想知道,现在我的办法就是循环...

spring · 发表于 2004-4-17 12:25:00

晕,连辉哥都搞不定

那我这个小辉就....呵呵

lockmyeye · 发表于 2004-4-17 12:51:00

(DEFUN test (lst n re / i)
(SETQ i -1)
(MAPCAR '(LAMBDA (x) (if (= (SETQ i (1+ i)) n) re x)) lst)
)

spring · 发表于 2004-4-17 14:11:00

谢谢!问题已经搞定

回去好好学学

meflying · 发表于 2004-4-17 19:45:00

lockmyeye发表于2004-4-17 12:51:00(DEFUN test (lst n re / i) (SETQ i -1) (MAPCAR '(LAMBDA (x) (if (= (SETQ i (1+ i)) n) re x)) lst))

似乎只是程序结构上简化了而已

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