Программирование на языке ПРОЛОГ для искуственного интеллекта




Усовершенствование процедуры ответпольз - часть 10


        обработать( нет, Цель, _, _, _, ложь, N) :-
                копия( Цель, Копия),
                сказано( Копия, правда, _),  !,

                                        % 'нет' означает, больше нет решений
                assertz( конец_ответов( Цель) ),
                                        % Отметить конец ответов
                fail;
                след_индекс( Инд),

                                        % Следующий свободный индекс для "сказано"
                assertz( сказано( Цель, ложь, Инд) ).
                                        % 'нет' означает нет ни одного решения

        формат( Пер, Имя, Имя, Перем, [Пер/Имя | Перем]) :-
                var( Пер),  !.



Содержание  Назад  Вперед