请教一个简便写法

tanle2020

请教一个简便写法：
(list L1 L2 L3 …… L100)
怎样缩写一下

cabinsummer

(setq n 1)
(repeat 100
  (setq l (append l (list (read (strcat "L" (itoa n))))) n (1+ n))
)

tanle2020

cabinsummer 发表于 2012-3-14 22:04
(setq n 1)
(repeat 100
  (setq l (append l (list (read (strcat "L" (itoa n))))) n (1+ n))

谢谢！小弟不才，我的代码是这样子的，请问如何实现
(setq l1 "一" l2 "二" l3 "三" l4 "四" …… l100 "一百")
(setq jsjg_list (list l1 l2 l3 …… l100))
(start_list "mq_jsjg")
(mapcar 'add_list jsjg_list)
(end_list)

lijiao

(setq jsjg_list '( "一" "二"  "三"  "四" ……   "一百"))
(start_list "mq_jsjg")
(mapcar 'add_list jsjg_list)
(end_list)