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




Базовые процедуры поиска в И / ИЛИ-графах - часть 6


                решитьвсе( Вершины, Деревья).

        отобр( Дер) :-

                                        % Отобразить решающее дерево

                отобр( Дер, 0),  !.

                          % с отступом 0

        отобр( Верш ---> Дер, Н) :-

                                       % Отобразить решающее дерево с отступом Н

                write( Верш), write( '--->'),

                H1 is H + 7,

                отобр( Дер, H1),  !.

        отобр( и : [Д], Н) :-

                                       % Отобразить И-список решающих деревьев

        отобр( Д, Н).

        отобр( и : [Д | ДД], Н) :-

                                       % Отобразить И-список решающих деревьев



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