[编程交流] 在certa的列表1中插入列表2

(setq list1 '(0.0 -0.196738 0.0 0.196738 0.0 0.0)
     list2 '(-0.059895 0.120221 -0.059895 0.0)
)
(setq position 3)
(setq run 0)
(foreach item list1
 (if (= (setq run (1+ run)) position)
   (foreach element list2
     (setq lst (cons element lst))
   )
   (setq lst (cons item lst))
 )
)

(setq pos 3)
(mapcar '(lambda (u) (if (= (length lst) pos) (mapcar '(lambda (x) (setq lst (cons x lst))) list2)
                      (setq lst (cons u lst))))
       list1)

(defun foo ( new pos lst / tmp )
   (repeat pos (setq tmp (cons (car lst) tmp) lst (cdr lst)))
   (append (reverse tmp) new lst)
)

_$ (setq l1 '(0 1 2 3 4 5))
(0 1 2 3 4 5)
_$ (setq l2 '("a" "b" "c"))
("a" "b" "c")
_$ (foo l2 3 l1)
(0 1 2 "a" "b" "c" 3 4 5)

(defun inslist (l1 n l2 / f)
 (defun f (l n)
   (if
     (and l (> n 0))
     (cons (car l) (f (cdr l) (1- n)))
     (append l2 l)
   )
 )
 (f l1 n)
)

(setq l1 '(0.0 -0.196738 0.0 0.196738 0.0 0.0)
     l2 '(-0.059895 0.120221 -0.059895 0.0)
)
(inslist l1 3 l2) -> (0.0 -0.196738 0.0 -0.059895 0.120221 -0.059895 0.0 0.196738 0.0 0.0)

(defun foo ( new pos lst )
   (if (and (< 0 pos) lst)
       (cons (car lst) (foo new (1- pos) (cdr lst)))
       (append new lst)
   )
)