Определить функцию, которая вытаскивает из списка числа - Lisp
Формулировка задачи:
Определить функцию, выбирающую из заданного списка все числовые атомы.
С использованием подсписков.
Решение задачи: «Определить функцию, которая вытаскивает из списка числа»
textual
Листинг программы
- (defun numbers (w &optional ac)
- (cond ((null w) ac)
- ((atom w) (if (numberp w) (cons w ac) ac))
- ((numbers (car w) (numbers (cdr w) ac)))))
- > (numbers '(a ((1 b)) (((2) c) 3)))
- (1 2 3)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
