Всем привет!!!
Написали программу по простой рекурсии
посмотрите пожалуйста если ли в этой программе ошибки ...

Задание:
Используя различные виды рекурсии решить задачу:
Реализовать функцию, которая выдавала бы элемент списка по заданному номеру с конца.


Программа:

(setq l '(1 2 3 4 5 6 7 8 9))

 

 

 (defun obr (l)

              (cond ((atom l) l)

               ((null (cdr l))

                (cons (obr (car l)) nil))

                 (t (append (obr (cdr l))

                  (obr (cons (car l) nil))))))

 

(defun ch (k j l i)

             (cond ((or (null l) (= k 0)) j) ((> i 0) (ch k j (obr l) (- i 1)))

              (t (setq j (ch (- k 1) (setq j (car l)) (cdr l) i)))))