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

Пока список не пуст


(defun lens (xl) ; Длины элементов (cond ; Пока список не пуст (xl (cons (length (car xl)); вычисляем длину его головы (lens (cdr xl)) ; и переходим к остальным, ) ) ) ) ; собирая результаты в список
(lens '((1 2 ) () (a b c d ) (1 (a b c d ) 3 )) ) ; = (2 0 4 3 )
Пример 7.3. Выяснить длины элементов списка
Закрыть окно



Содержание раздела