Экспертная система по подбору туристической путевки - Lisp

Формулировка задачи:

Доброго время суток. Как всегда нужна помощь. Вот задание:

Напишите экспертную систему, которая использует продукционные правила логического вывода. Пользователь последовательно отвечает "Да" или "Нет" на вопрос, после чего получает ответ экспертной. При невозможности идентификации выдается соответствующее сообщение. Все данные и необходимые производственные правила находятся в тексте программы.

Должно быть не менее 10 вопросов, тема

Экспертная система по подбору туристической путевки

. Заранее спасибо.

Решение задачи: «Экспертная система по подбору туристической путевки»

textual
                            Листинг программы 
                        

                            CL-USER 11 : 2 > (run-node 'putivka)
Ви бажаєте поїхати за кордон?
>> ні
Бажаєте поїхати на море?
>> так
Бажаєте поїхати на Чорне море?
>> ні
(Вам підходить путівка на Азовське море)
 
CL-USER 12 : 2 > (run-node 'putivka)
Ви бажаєте поїхати за кордон?
>> так
Ви віддаєте перевагу теплому клімату?
>> ні
Любите сніг та мороз?
>> так
(Вам підходить путівка до Ісландії)
 
CL-USER 13 : 2 > (run-node 'putivka)
Ви бажаєте поїхати за кордон?
>> ні
Бажаєте поїхати на море?
>> ні
Бажаєте відвідати гори Карпат?
>> ні
(Вам підходить путівка в Крим)
 
CL-USER 14 : 2 > (run-node 'putivka)
Ви бажаєте поїхати за кордон?
>> ні
Бажаєте поїхати на море?
>> ні
Бажаєте відвідати гори Карпат?
>> так
(Вам підходить путівка в Карпати)
 
CL-USER 15 : 2 > (run-node 'putivka)
Ви бажаєте поїхати за кордон?
>> так
Ви віддаєте перевагу теплому клімату?
>> так
Любите пісок і сонце?
>> ні
(Вам підходить путівка до Туреччини)
                        