Добавить число x в неубывающий список на самую последнюю позицию из возможных

; Опpеделите на языке ЛИСП и проверьте работу функции, добавляющей заданное параметром x число в упорядоченный по неубыванию 
; список L таким образом, чтобы сохранилась упорядоченность.
; Например, при x=7, L=(0 3 3 6 9) функция должна возвращать список (0 3 3 6 7 9). 
; Проверьте, что функция добавляет элемент в конец списка.
(defun ADD_IN_LIST (l x)
    
    (ADD_IN_LST l x nil)        ; x - добавляемый элемент
 
)
 
(defun ADD_IN_LST (l x added)   ; параметр added - был ли добавлен элемент (t / nil)
 
    (cond
    
        ((null l) nil)
        
        ; если это последний элемент и добавляемый элемент x >= последнего элемента, но элемент x еще не был добавлен, 
        ; то добавляем x в конец и остановка рекурсии
        ( (and (>= x (car l)) (null (cadr l)) (null added) )     ( cons (car l) (cons x nil) ) )
        
        ; если x >= текущего элемента списка и строго меньше следующего, добавляем x после текущего и перед следующим
        ( ( and (>= x (car l)) (< x (cadr l)) )      ( cons (car l) (cons x (ADD_IN_LST (cdr l) x t)) ) ) 
        
        ; в противном случае, продолжаем сохранять список
        (t (cons (car l) (ADD_IN_LST (cdr l) x added)) )                
        
    )
 
)
 
(terpri 1)
 
(princ (ADD_IN_LIST '(0 3 3 6 9) 7))        (terpri 2)
 
==> (0 3 3 6 7 9)
 
(princ (ADD_IN_LIST '(0 3 3 6) 7))      (terpri 2)
 
==> (0 3 3 6 7)
 
(princ (ADD_IN_LIST '(0 3 3 6 7) 7))        (terpri 2)
 
==> (0 3 3 6 7 7)

(defun test (x lst)
  (if lst
    (if (< x (car lst))
     (cons x (cons (car lst) (test x (cdr lst))))
     (cons (car lst) (test x (cdr lst))))))

(defun test (x lst)
  (cond
    ((null lst) (list x))
    ((null (cdr lst))
      (if (< x (car lst))(list x (car lst))(list (car lst) x)))
    (T (cons (car lst) (test x (cdr lst))))))

(defun ins-el (a lst)
  (let ((r nil))
   (dolist (i lst (reverse r))
     (when (> i a) (push a r)) (push i r))))
 
==> ins-el
 
(ins-el 7 '(0 3 3 6 9))
 
==> (0 3 3 6 7 9)

(defun ins-el (a lst)
  (let ((r nil) (flg nil))
   (dolist (i lst (reverse (if (null flg) (cons a r) r)))
     (when (and (null flg)(> i a)) (push a r) (push a flg)) (push i r))))
 
==> ins-el
 
(ins-el 0 '(0 3 3 6 9))
 
==> (0 0 3 3 6 9)
 
(ins-el 10 '(0 3 3 6 9))
 
==> (0 3 3 6 9 10)
 
(ins-el 4 '(0 3 3 6 9))
 
==> (0 3 3 4 6 9)

(defun test (x lst)
  (cond
    ((null lst) (list x))
    ((null (cdr lst))
      (if (< x (car lst))(list x (car lst))(list (car lst) x)))
    (T (cons (car lst) (test x (cdr lst))))))
 
==> test
 
(test 4 '(0 3 3 6 9))
 
==> (0 3 3 6 4 9)

(defun ins-el (a lst)
 (cond ((null lst) (list a))
       ((> (car lst) a) (cons a lst))
       (t (cons (car lst) (ins-el a (cdr lst))))))
 
==> ins-el
 
(ins-el 4 '(0 3 3 6 9))
 
==> (0 3 3 4 6 9) ;; верно
 
(ins-el -1 '(0 3 3 6 9))
 
==> (-1 0 3 3 6 9) ;; верно
 
(ins-el 10 '(0 3 3 6 9))
 
==> (0 3 3 6 9 10) ;; верно