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




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


                            Преемники),   !,

                преемспис( G, Преемники, ДД),

                опт_f( ДД, F1),

                расширить( П, д( В, F1/G, ДД), Предел, Дер1,

                                                                    ЕстьРеш, Реш);

            ЕстьРеш = никогда).

                % Нет преемников - тупик

        расширить( П, д( В, F/G, [Д | ДД]), Предел, Дер1,

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

                F <= Предел,

                опт_f( ДД, OF), мин( Предел, OF, Предел1),

                расширить( [В | П], Д, Предел1, Д1, ЕстьРеш1, Реш),



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