Функциональное программирование




Рекурсия - часть 5


(negnums l) = (negnums (cdr l)

Программа

(defun negnums (l)

(cond ((null l) nil)

((< (car l) 0) (cons (car l) (negnums (cdr l))))

(t (negnums (cdr l)))))


6.7 Общая форма.

Общая форма определения рекурсионной функции

(defun <имя> <параметры>

(cond (терминальная ветвь1)

(терминальная ветвь2)

...................

(терминальная ветвьn)

(рекурсивная ветвь1)

(рекурсивная ветвь2)

....................

(рекурсивная ветвьn)))





Содержание  Назад  Вперед