Введение в программирование на Лиспе



             

Пример 7.1


(defun next (xl) ; Следующие числа:

(cond ; пока список не пуст

(xl (cons (1+ (car xl)) ; прибавляем 1 к его голове

(next (cdr xl)) ; и переходим к остальным,

) ) ) ) ; собирая результаты в список

(next '(1 2 5 )) ; = (2 3 6 )




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