Для каждого числа из заданного
|
(defun next (xl) ; Следующие числа: (cond ; пока список не пуст (xl (cons (1+ (car xl)) ; прибавляем 1 к его голове (next (cdr xl)) ; и переходим к остальным, ) ) ) ) ; собирая результаты в список (next '(1 2 5 )) ; = (2 3 6 ) |
| Пример 7.1. Для каждого числа из заданного списка получить следующее за ним число и все результаты собрать в список. |
| Закрыть окно |
