выход из цикла при пустом
|
(defun len-do (ld) ;; длина списка (do ((x ld (cdr x)); на каждом шаге переход к хвосту списка (N 0 (1+ N))) ; подсчет числа шагов ((null x) N)) ; выход из цикла при пустом списке ) (print (len-do '(1 2 3 4 5))) |
| Пример 11.4. Вычисление длины списка |
| Закрыть окно |
