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




Программа поиска - часть 10


                                                             % Извлечь F-оценку дерева

                arg( 2, Дер, F),  !.

                                           % F - это 2-й аргумент Дер

% встав( Дер, ДД, НовДД) вставляет Дер в список

% деревьев ДД; результат - НовДД

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

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

                реш( Д1),  !.

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

                реш( Д),

                встав( Д, ДД, ДД1),  !.

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

                f( Д, F), f( Д1, F1), F=< F1,  !.

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

                встав( Д, ДД, ДД1).

% "оценка" находит "возвращенную" F-оценку И / ИЛИ-списка деревьев

        оценка( или :[Дер | _ ], F) :-



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