Статьи / Задачи с решениями - часть вторая (Задача №5: Выбор элемента)
В статье рассматривается 7 задач и предлагаются детали реализации.
Автор: Потапенко В.А.
Написал: artish   Дата: 2008-09-09 20:10
Комментарии: (0)   Рейтинг:
Задача: Выбор элемента

Реализовать функцию, которая возвращает некоторый произвольный элемент множества.

Формально это сложная задача, но мы ее решим тривиально и не корректно:
 
(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
 
[1] [2] [3] [4] > 5 < [6] [7]


Онлайн :

0 пользователь(ей), 54 гость(ей) :




Реклама на сайте: