> 1 <

Автор Сообщение

Шокир

Members


Статус

6 сообщений

Где: Russia
Род занятий:
Возраст:

#3764   2010-12-23 21:02 GMT+3 часа(ов)      
Всем привет!!!
Написали программу по простой рекурсии
посмотрите пожалуйста если ли в этой программе ошибки ...

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


Программа:
(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)))))
> 1 <


Онлайн :

0 пользователь(ей), 38 гость(ей) :