[求助]将序列b插入到序列a中指定位置c的程序

SWAYWOOD

将序列b插入到序列a中指定位置c的程序 如何能做到？ 如：a (（1 "a") (2 "b") (3 "c") ……） b (2 (21 "aa") (22 "bb") (23 "cc")) 得到 (（1 "a") (2 "b") (21 "aa") (22 "bb") (23 "cc") (3 "c") ……）?

meflying

(defun c:test( / a b c)
(setq a '((1 "a") (2 "b") (3 "c")))
(setq b '(2 (21 "aa") (22 "bb") (23 "cc")))
(setq b (cons (assoc 2 a) (cdr b)))
(setq a (subst (cons 2 b) (assoc 2 a) a))
(setq a (mapcar '(lambda(e) (if (/= (car e) 2) (list e) (cdr e))) a))
(apply 'append a)
)

无痕

不建议用subst



(defun tt(a b c)


(setq i -1


                                                         tl (mapcar '(lambda(x)(if (= (setq i (1+ i))        c)(append a (list x))(list x)) b)


)


(apply 'append tl)


)

SWAYWOOD

多谢，每人一朵花。


我主要是不知道apply有这么个用法。


个人认为，用subst容易替换掉其它项，虽然本例中无碍，但平时使用时应注意。

meflying

不是这样的吧,这样是把2为关键字的项都替换了,,,可你的要求呢?是不替换的吗?如果不都替换,那怎么确定你要替换的是哪项呢?