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



             

Пример 11.3


(defun first-a (la) ;; самый левый атом (setq x la) (loop (setq x (car x)) ; левый элемент структуры (cond ((atom x)(return x)) ) ; явный выход из цикла при обнаружении атома ) )

(print (first-a '(((123) 46) 5) ))

Пример 11.3. Выбор самого левого атома из произвольной структуры данных

Закрыть окно






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