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




Поиск с предпочтением - часть 7


                продолжить( П, д( В, F/G, [Д1, ДД]), Предел, Дер1,

                                                            ЕстьРеш1, ЕстьРеш, Реш).

        расширить( _, д( _, _, [ ]), _, _, никогда, _ ) :-  !.

                                   % Тупиковое дерево - нет решений

        расширить( _, Дер, Предел, Дер, нет, _ ) :-

                f( Дер, F), F > Предел.

          % Рост остановлен

        продолжить( _, _, _, _, да, да, Реш).

        продолжить( П, д( В, F/G, [Д1, ДД]), Предел, Дер1,

                                                           ЕстьРеш1, ЕстьРеш, Реш):-

                ( ЕстьРеш1 = нет, встав( Д1, ДД, НДД);

                  ЕстьРеш1 = никогда, НДД = ДД),

                опт_f( НДД, F1),



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