Заданы глубина подсписка, позиция и s-выражение. Включить s-выражение во все имеющиеся подсписки заданной глуб - Lisp - Ответ 9615942

;; Вставить в список lst в позицию n
 
(defun ins-in-pos (lst v n)
  (cond ((null lst) (list v))
        ((zerop n) (cons v lst))
        (t (cons (car lst) (ins-in-pos (cdr lst) v (- n 1))))))
 
==> INS-IN-POS
 
;; Проверка
 
(ins-in-pos '(1 2 3 4 5) '(u u) 3)
 
==> (1 2 3 (U U) 4 5)
 
(ins-in-pos '(1 2 3 4 5) '(u u) 5)
 
==> (1 2 3 4 5 (U U))
 
(ins-in-pos '(1 2 3 4 5) '(u u) 14)
 
==> (1 2 3 4 5 (U U))
 
;; решение
 
(defun task (lst lv p v)
  (if (> lv 0) (mapcar #'(lambda (x) (if (atom x) x (task x (- lv 1) p v))) lst)
               (ins-in-pos lst v p)))
 
==> TASK
 
;; Проверка
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 1 '(* *)) 
 
==> (A B (C (* *) D (E F) ((G H))) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 2 '(* *)) 
 
==> (A B (C D (* *) (E F) ((G H))) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 3 '(* *)) 
 
==> (A B (C D (E F) (* *) ((G H))) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 4 '(* *)) 
 
==> (A B (C D (E F) ((G H)) (* *)) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 1 5 '(* *)) 
 
==> (A B (C D (E F) ((G H)) (* *)) I (((J)) (* *)))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 4 1 '(* *)) 
 
==> (A B (C D (E F) ((G H))) I (((J))))
 
(task '(a b (c d (e f) ((g h))) i (((j)))) 3 1 '(* *)) 
 
==> (A B (C D (E F) ((G (* *) H))) I (((J (* *)))))