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



           

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


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

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

        преемспис( _, [ ], [ ]).

        преемспис( G0, [В/С | ВВ], ДД) :-

                G is G0 + С,

                h( В, Н),

                                  % Эвристика h(B)

                F is G + Н,

                преемспис( G0, ВВ, ДД1),

                встав( л( В, F/G), ДД1, ДД).

% Вставление дерева Д в список деревьев ДД с сохранением

% упорядоченности по f-оценкам

        встав( Д, ДД, [Д | ДД] ) :-

                f( Д, F), опт_f( ДД, F1),

                F =< F1,  !.

        встав( Д, [Д1 | ДД], [Д1 | ДД1] ) ) :-



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