явный выход из цикла при
|
(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. Выбор самого левого атома из произвольной структуры данных |
| Закрыть окно |
