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


         

Если текущее форсированное дерево пусто,



                read( Ход),

                ( разрход( Поз, Ход, Поз1),

                        поддер( ФДер, Ход, ФДер1),  !;

                                    

     % Вниз по форс. дереву

                  write( 'Неразрешенный ход'), nl,

                        сделать_ход( Поз, ФДер, Поз1, ФДер1) ).


% Если текущее форсированное дерево пусто, построить новое

        сделать_ход( Поз, nil, Поз1, ФДер1) :-

                чей_ход( Поз, б),

                восст_глуб( Поз, Поз0),


                                        % Поз0 = Поз с глубиной 0

                стратегия( Поз0, ФДер),  !,

                                        % Новое форсированное дерево

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