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


         

Совет выполним во всех преемниках



                ходы_противника( Совет, ХодыПр),

                bagof ( Ход . . Поз1, ход( ХодыПр, Поз, Ход, Поз1), ХПспис),

                выполн_все( Совет, ХПспис, КорнПоз, ФДеревья).


                                        % Совет выполним во всех преемниках Поз

        выполн_все( _, [ ], _, [ ]).

        выполн_все( Совет, [Ход . . Поз | ХПспис], КорнПоз,

                                                                [Ход . . ФД | ФДД] ) :-

                выполн( Совет, Поз, КорнПоз, ФД),

                выполн_все( Совет, ХПспис, КорнПоз, ФДД).


% Интерпретация главной цели и цели-поддержки:

% цель - это И / ИЛИ / НЕ комбинация. имен предикатов

        удовл( Цель1 и Цель2, Поз, КорнПоз) :-  !,

                удовл( Цель1, Поз, КорнПоз),

                удовл( Цель2, Поз, КорнПоз).


        удовл( Цель1 или Цель2, Поз, КорнПоз) :-  !,

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