Напишите функцию, возвращающую список атомов из данного S-выражения в том же порядке, в котором они в него входят.
Пример:
> (atoms '((a b) c nil (d (e f g))))
(A B C NIL D E F G)
(DEFUN atoms (x)
(COND
((NULL x) NIL)
((ATOM x) x)
(T
(list
(atoms (list (CAR x)))
(atoms (list (CDR x)))
)
)
)
)
(DEFUN atoms (x)
(COND
((NULL x) NIL)
((ATOM x) (list x))
(T
(APPEND
(atoms (CAR x))
(atoms (CDR x))
)
)
)
)(defun atoms (w)
(loop for a in w
if (atom a) collect a
else append (atoms a)))
> (atoms '((a b) c nil (d (e f g))))
(A B C NIL D E F G)(defun atoms (w)
(typecase w (atom `(,w))
(t (mapcan #'atoms w))))
> (atoms '((a b) c nil (d (e f g))))
(A B C NIL D E F G)(defun atoms (w)
(if (atom w) `(,w) (mapcan #'atoms w)))
> (atoms '((a b) c nil (d (e f g))))
(A B C NIL D E F G)
Простой
Простой
Простой
Простой
