Реализовать функцию, которая возвращает некоторый произвольный элемент множества.
Формально это сложная задача, но мы ее решим тривиально и не корректно:
(defun card-num (set)
(cond ((null set) 0)
(t (+ 1 (card-num (cdr set))))
)
)
(defun (set)
(nth (random (card-num set))
)
Тестирование:
> (element '(a b c d e f g h))
D
> (element '(a b c d e f g h))
E
> (element '(a b c d e f g h))
E
> (element '(a b c d e f g h))
C
> (element '(a b c d e f g h))
B