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




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


                    Предел1 is Предел - С,

                    расширспис( Поддеревья, Предел1, НовПоддер, ЕстьРеш1),

                    продолжить( ЕстьРеш1, Верш, С, НовПоддер, Предел,

                                                                                            НовДер, ЕстьРеш).

% расширспис( Деревья, Предел, Деревья1, ЕстьРеш)

% расширяет деревья из заданного списка с учетом

% ограничения Предел и выдает новый список Деревья1

% с "решающим статусом" ЕстьРеш.

        расширспис( Деревья, Предел, Деревья1, ЕстьРеш) :-

                выбор( Деревья, Дер, ОстДер, Предел, Предел1),

                расширить( Дер, Предел1, НовДер, ЕстьРеш1),

                собрать( ОстДер, НовДер, ЕстьРеш1, Деревья1, ЕстьРеш).

% "продолжить" решает, что делать после расширения

% списка деревьев

        продолжить( да, Верш, С, Поддеревья, _,

                                                решдер( Верш, F, Поддеревья), да): -



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