为表中每个元素前插入序号

gaics · 发表于 2023-6-5 16:47:20

_$ (setq a'("a" "b" "c"))
("a" "b" "c")
_$ (setq n (length a))
3
_$ (apply 'append (mapcar'(lambda(x)(setq a(cdr a))(list (- n (length a)) x))a))
(1 "a" 2 "b" 3 "c")

llsheng_73 · 发表于 2023-6-5 16:52:17

(setq i 0)(apply'append(mapcar'(lambda(x)(List(setq i(1+ i))x))a))

gaics · 发表于 2023-6-5 16:56:17

llsheng_73 发表于 2023-6-5 16:52
(setq i 0)(apply'append(mapcar'(lambda(x)(List(setq i(1+ i))x))a))

谢谢73哥！

PGJ · 发表于 2023-6-6 07:38:11

感谢分享，很简洁

nijiea123 · 发表于 2023-6-7 11:12:33

不错很简洁

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

[经验] 为表中每个元素前插入序号

评分