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

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

Аннотация

    Книга известного специалиста по программированию (Югославия), содержащая основы языка Пролог и его приложения для решения задач искусственного интеллекта. Изложение отличается методическими достоинствами — книга написана в хорошем стиле, живым языком. Книга дополняет имеющуюся на русском языке литературу по языку Пролог.
    Для программистов разной квалификации, специалистов по искусственному интеллекту, для всех изучающих программирование.


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

    Посвящается Бранке, Андрею и Тадею

От редактора перевода

    По существующей традиции предисловие редактора перевода — это своего рода рецензия, в которой обычно излагается история вопроса, а затем дается обзор содержания книги и оценка ее качества (как правило, рекламного характера). В данном случае моя задача несколько упрощается, так как все это читатель, перевернув страницу, найдет в предисловии известного американского ученого, специалиста по искусственному интеллекту П. Уинстона, а затем — в предисловии автора. Мне остается только присоединиться к авторитетному мнению П. Уинстона, что перед нами прекрасно написанный учебник до Прологу, ориентированный на практическое использование в области искусственного интеллекта. Добавлю также, что для советского читателя потребность в такой книге особенно велика, поскольку в нашей стране Пролог пока еще не получил того распространения, которого он заслуживает.
    Несколько замечаний относительно особенностей перевода. Кроме обычных терминологических трудностей, как правило возникающих при переводе книг по программированию, переводчикам пришлось преодолевать одну дополнительную сложность. Дело в том, что в Прологе идентификаторы (имена переменных, процедур и атомов) несут на себе значительно большую смысловую нагрузку, чем в традиционных языках программирования. Поэтому программные примеры пришлось излагать на некоей условной русской версии Пролога — в противном случае, для читателей, не владеющих английским языком, эти примеры стали бы значительно менее понятными. Мы оставили без перевода все имена встроенных операторов и процедур, все же остальные имена переводились на русский язык. Следует признать, что в ряде случаев русская версия этих имен оказалась менее эстетически привлекательной, чем исходный английский вариант. Пытаясь наиболее точно передать смысл того или иного имени, переводчик нередко оказывался перед нелегким выбором между громоздким идентификатором (иногда из нескольких слов) и неблагозвучной аббревиатурой. Впрочем, все эти проблемы хорошо известны любому "русскоязычному" программисту.
    Главы 1-8 перевел А.И. Лупенко, а предисловия и главы 9-16 — А.М. Степанов. Подготовку оригинала-макета книги на ЭВМ выполнили А.H. Черных и H.Г. Черных.
    Эту книгу можно рекомендовать как тем читателям, которые впервые приступают к изучению Пролога и искусственного интеллекта, так и программистам, уже имеющим опыт составления пролог-программ.
А. М. Степанов

Предисловие

    В средние века знание латинского и греческого языков являлось существенной частью образования любого ученого. Ученый, владеющий только одним языком, неизбежно чувствовал себя неполноценным, поскольку он был лишен той полноты восприятия, которая возникает благодаря возможности посмотреть на мир сразу с двух точек зрения. Таким же неполноценным ощущает себя сегодняшний исследователь в области искусственного интеллекта, если он не обладает основательным знакомством как с Лиспом, так и с Прологом — с этими двумя основополагающими языками искусственного интеллекта, без знания которых невозможен более широкий взгляд на предмет исследования.
    Сам я приверженец Лиспа, так как воспитывался в Массачусетском технологическом институте, где этот язык был изобретен. Тем не менее, я никогда не забуду того волнения, которое я испытал, увидев в действии свою первую программу, написанную в прологовском стиле. Эта программа была частью знаменитой системы Shrdlu Терри Винограда. Решатель задач, встроенный в систему, работал в "мире кубиков" и заставлял руку робота (точнее, ее модель) перемещать кубики на экране дисплея, решая при этом хитроумные задачи, поставленные оператором.
    Решатель задач Винограда был написан на Микропленнере, языке, который, как мы теперь понимаем, был своего рода Прологом в миниатюре. Любой прологоподобный язык заставляет программиста мыслить в терминах целей, поэтому, несмотря на все недостатки Микропленнера, достоинством этой программы было то, что в ее структуре содержались многочисленные явные указания на те или иные цели. Процедуры-цели "схватить", "освободить", "избавиться", "переместить", "отпустить" и т.п. делали программу простой и компактной, а поведение ее казалось поразительно разумным.
    Решатель задач Винограда навсегда изменил мое программистское мышление. Я даже переписал его на Лиспе и привел в своем учебнике по Лиспу в качестве примера — настолько эта программа всегда поражала меня мощью заложенной в ней философии "целевого" программирования, да и само программирование в терминах целей всегда доставляло мне удовольствие.
    Однако учиться целевому программированию на примерах лисповских программ — это все равно, что читать Шекспира на языке, отличном от английского. Какое-то впечатление вы получите, но сила эстетического воздействия будет меньшей, чем при чтении оригинала. Аналогично этому, лучший способ научиться целевому программированию — это читать и писать программы на Прологе, поскольку сама сущность Пролога как раз и состоит в программировании в терминах целей.
    В самом широком смысле слова эволюция языков программирования — это движение от языков низкого уровня, пользуясь которыми, программист описывает, как что-либо следует делать, к языкам высокого уровня, на которых просто указывается, что необходимо сделать. Так, например, появление Фортрана освободило программистов от необходимости разговаривать с машиной на прокрустовом языке адресов и регистров. Теперь они уже могли говорить на своем (или почти на своем) языке, только изредка делая уступки примитивному миру 80-колонных перфокарт.
    Однако Фортран и почти все другие языки программирования все еще остаются языками типа "как". И чемпионом среди этих языков является, пожалуй, современный модернизированный Лисп. Так, скажем, Common Lisp, имея богатейшие выразительные возможности, разрешает программисту описывать наиболее "выразительно" именно то, как что-либо следует делать. В то же время очевидно, что Пролог порывает с традициями языков типа "как", поскольку он определенным образом направляет программистское мышление, заставляя программиста давать определения ситуаций и формулировать задачи вместо того, чтобы во всех деталях описывать способ решения этих задач.
    Отсюда следует, насколько важен вводный курс по Прологу для всех студентов, изучающих вычислительную технику и программирование — просто не существует лучшего способа понять, что из себя представляет программирование типа "что".
    Многие страницы этой книги могут служить хорошей иллюстрацией того различия, которое существует между этими двумя стилями программистского мышления. Например, в первой главе это различие иллюстрируется на задачах, относящихся к семейным отношениям. Прологовский программист дает простое и естественное описание понятия "дедушка": дедушка — это отец родителя. На Прологе это выглядит так:
    дедушка( X, Z) :- отец( X, Y), родитель( Y, Z).
    Как только пролог-система узнала, что такое дедушка, ей можно задать вопрос, например: кто является дедушкой Патрика? В обозначениях Пролога этот вопрос и типичный ответ имеют вид:
    ?-  дедушка( X, патрик).
    X = джеймс;

    X = карл.
    Каким образом решать эту задачу, как "прочесывать" базу данных, в которой записаны все известные отношения "отец" и "родитель", — это уже забота самой пролог-системы. Программист только сообщает системе то, что ему известно, и задает вопросы. Его в большей степени интересуют знания и в меньшей — алгоритмы, при помощи которых из этих знаний извлекается нужная информация.
    Поняв, что очень важно научиться Прологу, естественно задать себе следующий вопрос — как это сделать. Я убежден, что изучение языка программирования во многом сходно с изучением естественного языка. Так, например, в первом случае может пригодиться инструкция по программированию точно так же, как во втором — словарь. Но никто не изучает язык при помощи словаря, так как слова — это только часть знаний, необходимых для овладения языком. Изучающий язык должен кроме того узнать те соглашения, следуя которым, можно получать осмысленные сочетания слов, а затем научиться у мастеров слова искусству литературного стиля.
    Точно так же, никто не изучает язык программирования, пользуясь только инструкцией по программированию, так как в инструкциях очень мало или вообще ничего не говорится о том, как хорошие программисты используют элементарные конструкции языка. Поэтому необходим учебник, причем лучшие учебники обычно предлагают читателю богатый набор примеров. Ведь в хороших примерах сконцентрирован опыт лучших программистов, а именно на опыте мы, в основном, и учимся.
    В этой книге первый пример появляется уже на первой странице, а далее на читателя как из рога изобилия обрушивается поток примеров прологовских программ, написанных программистом-энтузиастом, горячим приверженцем прологовской идеологии программирования. После тщательного изучения этих примеров читатель не только узнает, как "работает" Пролог, но и станет обладателем личной коллекции программ-прецедентов, готовых к употреблению: он может разбирать эти программы на части, приспосабливать каждую часть к своей задаче, а затем снова собирать их вместе, получая при этом новые программы. Такое усвоение предшествующего опыта можно считать первым шагом на пути от новичка к программисту-мастеру.
    Изучение хороших программных примеров дает, как правило, один полезный побочный эффект: мы узнаем из них не только очень многое о самом программировании, но и кое-что - о какой-нибудь интересной научной области. В данной книге такой научной областью, стоящей за большинством примеров, является искусственный интеллект. Читатель узнает о таких идеях в области автоматического решения задач, как сведение задач к подзадачам, прямое и обратное построение цепочки рассуждений, ответы на вопросы "как" и "почему", а также разнообразные методы поиска.
    Одним из замечательных свойств Пролога является то, что это достаточно простой язык, и студенты могли бы использовать его непосредственно в процессе изучения вводного курса по искусственному интеллекту. Я не сомневаюсь, что многие преподаватели включат эту книгу в свои курсы искусственного интеллекта с тем, чтобы студенты смогли увидеть, как при помощи Пролога абстрактные идеи приобретают конкретные и действенные формы.
    Полагаю, что среди учебников по Прологу эта книга окажется особенно популярной, и не только из-за своих хороших примеров, но также из-за целого ряда других своих привлекательных черт:
    • тщательно составленные резюме появляются на всем протяжении книги;
    • все вводимые понятия подкрепляются многочисленными упражнениями;
    • процедуры выборки элементов структур подводят нас к понятию абстракции данных;
    • обсуждение вопросов стиля и методологии программирования занимает целую главу;
    • автор не только показывает приятные свойства языка, но и со всей откровенностью обращает наше внимание на трудные проблемы, возникающие при программировании на Прологе.
    Все это говорит о том, что перед нами прекрасно написанная, увлекательная и полезная книга.
Патрик Г. Уинстон
Кеймбридж, Массачусетс 

Предисловие автора 

    Язык программирования Пролог базируется на ограниченном наборе механизмов, включающих в себя сопоставление образцов, древовидное представление структур данных и автоматический возврат. Этот небольшой набор образует удивительно мощный и гибкий программный аппарат. Пролог особенно хорошо приспособлен для решения задач, в которых фигурируют объекты (в частности, структуры) и отношения между ними. Например, в качестве легкого упражнения, можно попробовать выразить на Прологе пространственные отношения между объектами, изображенными на обложке этой книги. Пример такого отношения: верхний шар расположен дальше, чем левый шар. Нетрудно также сформулировать и более общее положение в виде следующего правила: если X ближе к наблюдателю, чем Y, a Y — ближе, чем Z, то объект X находится ближе, чем Z. Пользуясь правилами и фактами, пролог-система может проводить рассуждения относительно имеющихся пространственных отношений и, в частности, проверить, насколько они согласуются с вышеуказанным общим правилом. Все эти возможности придают Прологу черты мощного языка для решения задач искусственного интеллекта, а также любых задач, требующих нечислового программирования.
    Само название Пролог есть сокращение, означающее программирование в терминах логики. Идея использовать логику в качестве языка программирования возникла впервые в начале 70-x годов. Первыми исследователями, разрабатывавшими эту идею, были Роберт Ковальский из Эдинбурга (теоретические аспекты), Маартен ван Эмден из Эдинбурга (экспериментальная демонстрационная система) и Ален Колмероэ из Марселя (реализация). Сегодняшней своей популярности Пролог во многом обязан эффективной реализации этого языка, полученной в Эдинбурге Дэвидом Уорреном в середине 70-x годов.
    Поскольку Пролог уходит своими корнями в математическую логику, его преподавание часто начинают с изложения логики. Однако такое введение в Пролог, насыщенное математическими понятиями, приносит мало пользы в том случае, когда Пролог изучается в качестве практического инструмента программирования. Поэтому в данной книге мы не будем заниматься математическими аспектами этого языка, вместо этого мы сосредоточим свое внимание на навыках использования базовых механизмов Пролога, для решения целого ряда содержательных задач. В то время, как традиционные языки программирования являются процедурно-ориентированными, Пролог основан на описательной или декларативной точке зрения на программирование. Это свойство Пролога коренным образом меняет программистское мышление и делает обучение программированию на Прологе увлекательным занятием, требующим определенных интеллектуальных усилий.
    В первой части книги содержится введение в Пролог, в ней показано, как составлять программы на Прологе. Во второй части демонстрируется, как мощные средства языка применяются в некоторых областях искусственного интеллекта, таких как, например, решение задач, эвристический поиск, экспертные системы, машинные игры и системы, управляемые образцами. В этой части излагаются фундаментальные методы в области искусственного интеллекта. Далее они прорабатываются достаточно глубоко для того, чтобы реализовать их на Прологе и получить готовые программы. Эти программы можно использовать в качестве "кирпичиков" для построения сложных прикладных систем. В книге рассматриваются также вопросы обработки таких сложных структур данных, как графы и деревья, хотя эти вопросы, строго говоря, и не имеют прямого отношения к искусственному интеллекту. В программах искусственного интеллекта методы обработки структур применяются довольно часто, и, реализуя их, читатель приобретет самые общие навыки программирования на Прологе. В книге особое внимание уделяется простоте и ясности составляемых программ. Повсеместно мы стремились избегать программистских "хитростей", повышающих эффективность за счет учета особенностей конкретной реализации Пролога.
    Эта книга предназначена для тех, кто изучает Пролог и искусственный интеллект. Материал книги можно использовать в курсе лекций по искусственному интеллекту, ориентированном на прологовскую реализацию. Предполагается, что читатель имеет общее представление о вычислительных машинах, но предварительные знания в области искусственного интеллекта необязательны. От читателя не требуется также какого-либо программистского опыта. Дело в том, что богатый программистский опыт вместе с приверженностью к традиционному процедурному программированию (например, на Паскале) может стать помехой при изучении Пролога, требующего свежего программистского мышления.
    Среди различных диалектов Пролога наиболее широко распространен так называемый эдинбургский синтаксис (или синтаксис DEC-10), который мы я принимаем в данной книге. Для того, чтобы обеспечить совместимость с различными реализациями Пролога, мы используем в книге сравнительно небольшое подмножество встроенных средств, имеющихся во многих вариантах Пролога.
    Как читать эту книгу? В первой части порядок чтения естественным образом совпадает с порядком изложения, принятым в книге. Впрочем, часть разд. 2.4, в которой дается более формальное описание процедурной семантики Пролога, можно опустить. В главе 4 приводятся примеры программ, которые можно читать только выборочно. Вторая часть книги допускает более гибкий порядок чтения, поскольку различные главы этой части предполагаются взаимно независимыми. Однако некоторые из тем было бы естественным прочесть раньше других - это относится к основным понятиям, связанным со структурами данных (гл. 9), и к базовым стратегиям поиска (гл. 11 и 13). В приведенной ниже диаграмме показана наиболее естественная последовательность чтения глав.
   
    Существует целый ряд исторически сложившихся и противоречащих друг другу взглядов на Пролог. Пролог быстро завоевал популярность в Европе как практический инструмент программирования. В Японии Пролог оказался в центре разработки компьютеров пятого поколения. С другой стороны, в связи с определенными историческими факторами, в США Пролог получил признание несколько позднее. Один из этих факторов был связан с предварительным знакомством с Микропленнером, языком, близким к логическому программированию, но реализованным не эффективно. Этот отрицательный опыт, относящийся к Микропленнеру, был неоправданно распространен и на Пролог, но позднее, после появления эффективной реализации, предложенной Дэвидом Уорреном, это предубеждение было убедительно снято. Определенная сдержанность по отношению к Прологу объяснялась также существованием "ортодоксальной школы" логического программирования, сторонники которой настаивали на использовании чистой логики, не запятнанной добавлением практически полезных внелогических средств. Практикам в области применения Пролога удалось изменить эту бескомпромиссную позицию и принять более прагматический подход, позволивший удачно сочетать декларативный принцип с традиционным - процедурным. И наконец, третьим фактором, приведшим к задержке признания Пролога, явилось то обстоятельство, что в США в течение долгого времени Лисп не имел серьезных конкурентов среди языков искусственного интеллекта. Понятно поэтому, что в исследовательских центрах с сильными лисповскими традициями возникало естественное противодействие Прологу. Но со временем соперничество между Прологом и Лиспом потеряло свою остроту, и в настоящее время многие считают, что оптимальный подход состоит в сочетании идей, лежащих в основе этих двух языков.
Благодарности
    Интерес к Прологу впервые возник у меня под влиянием Дональда Мики. Я благодарен также Лоренсу Берду, Фернандо Перейра и Дэвиду Г. Уоррену, входившим в свое время в эдинбургскую группу разработчиков Пролога, за их советы по составлению программ и многочисленные дискуссии. Чрезвычайно полезными были замечания и предложения, высказанные Эндрью Макгеттриком и Патриком Уинстоном. Среди прочитавших рукопись книги и сделавших ценные замечания были также Игорь Кононенко, Таня Маярон, Игорь Мозетик, Тимоти Ниблетт и Фрэнк Зердин. Мне бы хотелось также поблагодарить Дебру Майсон-Этерингтон и Саймона Пламтри из издательства Эддисон-Уэсли за труд, вложенный в издание этой книги. И наконец, эта книга не могла бы появиться на свет без стимулирующего влияния творческой деятельности всего международного сообщества специалистов по логическому программированию.
Иван Братко
Институт Тьюринга, Глазго
Январь 1986 

Часть 1
Язык Пролог

Глава 1
Общий обзор языка Пролог

    В этой главе на примере конкретной программы рассматриваются основные механизмы Пролога. Несмотря на то, что материал излагается в основном неформально, здесь вводятся многие важные понятия.

1.1. Пример программы: родственные отношения

    Пролог — это язык программирования, предназначенный для обработки символьной нечисловой информации. Особенно хорошо он приспособлен для решения задач, в которых фигурируют объекты и отношения между ними. На рис. 1.1 представлен пример — родственные отношения. Тот факт, что Том является родителем Боба, можно записать на Прологе так:
    родитель( том, боб).
    Здесь мы выбрали родитель в качестве имени отношения, том и боб — в качестве аргументов этого отношения. По причинам, которые станут понятны позднее, мы записываем такие имена, как том, начиная со строчной буквы. Все дерево родственных отношений рис. 1.1 описывается следующей пролог-программой:
    родитель( пам, боб).
    родитель( том, боб).
    родитель( том, лиз).
    родитель( боб, энн).
    родитель( боб, пат).
    родитель( пам, джим).
    Рис. 1.1.  Дерево родственных отношений.
    Эта программа содержит шесть предложений. Каждое предложение объявляет об одном факте наличия отношения родитель.
    После ввода такой программы в пролог-систему последней можно будет задавать вопросы, касающиеся отношения родитель. Например, является ли Боб родителем Пат? Этот вопрос можно передать пролог-системе, набрав на клавиатуре терминала:
    ?-  родитель( боб, пат).
    Найдя этот факт в программе, система ответит
    yes         (да)
    Другим вопросом мог бы быть такой:
    ?-  родитель( лиз, пат).
    Система ответит
    no             (нет),
    поскольку в программе ничего не говорится о том, является ли Лиз родителем Пат. Программа ответит "нет" и на вопрос
    ?-  родитель( том, бен).
    потому, что имя Бен в программе даже не упоминается.
    Можно задавать и более интересные вопросы. Например:"Кто является родителем Лиз?"
    ?-  родитель( X, лиз).
    На этот раз система ответит не просто "да" или "нет". Она скажет нам, каким должно быть значение X (ранее неизвестное), чтобы вышеприведенное утверждение было истинным. Поэтому мы получим ответ:
    X  =  том
    Вопрос "Кто дети Боба?" можно передать пролог-системе в такой форме:
    ?-  родитель( боб, X).
    В этом случае возможно несколько ответов. Сначала система сообщит первое решение:
    X  =  энн
    Возможно, мы захотим увидеть и другие решения. О нашем желании мы можем сообщить системе (во многих реализациях для этого надо набрать точку с запятой), и она найдет другой ответ:
    X  =  пат
    Если мы потребуем дальнейших решений, система ответит "нет", поскольку все решения исчерпаны.
    Нашей программе можно задавать и более общие вопросы: "Кто чей родитель?" Приведем другую формулировку этого вопроса:
    Найти X и Y такие, что X — родитель Y.
    На Прологе это записывается так:
    ?-  родитель( X, Y).
    Система будет по очереди находить все пары вида "родитель-ребенок". По мере того, как мы будем требовать от системы новых решений, они будут выводиться на экран одно за другим до тех пор, пока все они не будут найдены. Ответы выводятся следующим образом:
    X  =  пам
    Y  =  боб;

    X  =  том
    Y  =  боб;

    X  =  том
    Y  =  лиз;
    ...
    Мы можем остановить поток решений, набрав, например, точку вместо точки с запятой (выбор конкретного символа зависит от реализации).
    Нашей программе можно задавать и еще более сложные вопросы, скажем, кто является родителем родителя Джима? Поскольку в нашей программе прямо не сказано, что представляет собой отношение родительродителя, такой вопрос следует задавать в два этапа, как это показано на рис. 1.2.
    (1)    Кто родитель Джима?   Предположим, что это некоторый Y.
    (2)    Кто родитель Y?   Предположим, что это некоторый X.
    Такой составной вопрос на Прологе записывается в виде последовательности двух простых вопросов:
    ?-  родитель( Y, джим), родитель( X, Y).
    Ответ будет:
    X  =  боб
    Y  =  пат

    Рис. 1.2. Отношение родительродителя, выраженное через композицию двух отношений родитель.
    Наш составной вопрос можно интерпретировать и так: "Найти X и Y, удовлетворяющие следующим двум требованиям":
    родитель( Y, джим) и родитель( X, Y)
    Если мы поменяем порядок этих двух требований, то логический смысл останется прежним:
    родитель( X, Y) и родитель( Y, джим)
    Этот вопрос можно задать нашей пролог-системе и в такой форме:
    ?-  родитель( X, Y), родитель( Y, джим).
    При этом результат будет тем же. Таким же образом можно спросить: "Кто внуки Тома?"
    ?-  родитель( том, X), родитель( X, Y).
    Система ответит так:
    X  =  боб
    Y  =  энн;

    X  =  боб
    Y  =  пат
    Следующим вопросом мог бы быть такой: "Есть ли у Энн и Пат общий родитель?" Его тоже можно выразить в два этапа:
    (1)    Какой X является родителем Энн?
    (2)    Является ли (тот же) X родителем Пат?
    Соответствующий запрос к пролог-системе будет тогда выглядеть так:
    ?-  родитель( X, энн), родитель( X, пат).
    Ответ:
    X  =  боб
    Наша программа-пример помогла проиллюстрировать некоторые важные моменты:
    • На Прологе легко определить отношение, подобное отношению родитель, указав n-ку объектов, для которых это отношение выполняется.
    • Пользователь может легко задавать пролог-системе вопросы, касающиеся отношений, определенных в программе.
    • Пролог-программа состоит из предложений. Каждое предложение заканчивается точкой.
    • Аргументы отношения могут быть (среди прочего): конкретными объектами, или константами (такими, как том и энн), или абстрактными объектами, такими, как X и Y. Объекты первого типа называются атомами. Объекты второго типа — переменными.
    • Вопросы к системе состоят из одного или более целевых утверждений (или кратко целей). Последовательность целей, такая как
    родитель( X, энн), родитель( X, пат)
    означает конъюнкцию этих целевых утверждений:
    X  —  родитель Энн   и
    X  —  родитель Пат.
    Пролог-система рассматривает вопросы как цели, к достижению которых нужно стремиться.
    • Ответ на вопрос может оказаться или положительным или отрицательным в зависимости от того, может ли быть соответствующая цель достигнута или нет. В случае положительного ответа мы говорим, что соответствующая цель достижима и успешна. В противном случае цель   недостижима,   имеет неуспех   или   терпит неудачу.
    • Если на вопрос существует несколько ответов, пролог-система найдет столько из них, сколько пожелает пользователь.
Упражнения
    1.1. Считая, что отношение родитель определено так же, как и раньше в данном разделе (см. рис. 1.1), найдите, какими будут ответы пролог-системы на следующие вопросы:
    (a)  ?-  родитель( джим, X).
    (b)  ?-  родитель( X, джим).
    (c)  ?-  родитель( пам,X), родитель( X, пат).
    (d)  ?-  родитель( пам, X), родитель( X, Y),
           родитель( Y, джим).
    1.2.  Сформулируйте на Прологе следующие вопросы об отношении родитель:
    (a)  Кто родитель Пат?
    (b)  Есть ли у Лиз ребенок?
    (c)  Кто является родителем родителя Пат? 

1.2. Расширение программы-примера с помощью правил

    Нашу программу-пример можно легко расширить многими интересными способами. Давайте сперва добавим информацию о том, каков пол людей, участвующих в отношении родитель. Это можно сделать, просто добавив в нее следующие факты:
    женщина( пам).
    мужчина( том).
    мужчина( боб).
    женщина( лиз).
    женщина( пат).
    женщина( энн).
    мужчина( джим).
    Мы ввели здесь два новых отношения — мужчина и женщина. Эти отношения — унарные (или одноместные). Бинарное отношение, такое как родитель, определяет отношение между двумя объектами; унарные же можно использовать для объявления наличия (отсутствия) простых свойств у объектов. Первое из приведенных выше предложений читается так: Пам — женщина. Можно было бы выразить информацию, представляемую этими двумя унарными отношениями (мужчина и женщина), по-другому - с помощью одного бинарного отношения пол. Тогда новый фрагмент нашей программы выглядел бы так:
    пол( пам, женский).
    пол( том, мужской).
    пол( боб, мужской).
    ...
    В качестве дальнейшего расширения нашей программы-примера давайте введем отношение отпрыск, которое обратно отношению родитель. Можно было бы определить отпрыск тем же способом, что и родитель, т.е. представив список простых фактов наличия этого отношения для конкретных пар объектов, таких, что один является отпрыском другого. Например:
    отпрыск( лиз, том).
    Однако это отношение можно определить значительно элегантнее, использовав тот факт, что оно обратно отношению родитель, которое уже определено. Такой альтернативный способ основывается на следующем логическом утверждении:
    Для всех X и Y
     Y является отпрыском X, если
     X является родителем Y.
    Эта формулировка уже близка к формализму, принятому в Прологе. Вот соответствующее прологовское предложение, имеющее тот же смысл:
    отпрыск( Y, X) :- родитель( X, Y).
    Это предложение можно прочитать еще и так:
    Для всех X и Y,
      если X — родитель Y, то
      Y — отпрыск X.
    Такие предложения Пролога, как
    отпрыск( Y, X) :- родитель( X, Y).
    называются правилами. Есть существенное различие между фактами и правилами. Факт, подобный факту
    родитель( том, лиз).
    это нечто такое, что всегда, безусловно истинно. Напротив, правила описывают утверждения, которые могут быть истинными, только если выполнено некоторое условие. Поэтому можно сказать, что правила имеют
    • условную часть (правая половина правила) и
    • часть вывода (левая половина правила).
    Вывод называют также головой предложения, а условную часть — его телом. Например:
    отпрыск( Y, X) :- родитель( X, Y).
    голова            тело
    Если условие родитель( X, Y) выполняется (оно истинно), то логическим следствием из него является утверждение отпрыск( Y, X).
    На приведенном ниже примере проследим, как в действительности правила используются Прологом. Спросим нашу программу, является ли Лиз отпрыском Тома:
    ?- отпрыск( лиз, том).
    В программе нет фактов об отпрысках, поэтому единственный способ ответить на такой вопрос — это применить правило о них. Правило универсально в том смысле, что оно применимо к любым объектам X и Y, следовательно, его можно применить и к таким конкретным объектам, как лиз и том. Чтобы это сделать, нужно вместо Y подставить в него лиз, а вместо X — том. В этом случае мы будем говорить, что переменные X и Y конкретизируются:
    X = том и Y = лиз
    После конкретизации мы получаем частный случай нашего общего правила. Вот он:
    отпрыск( лиз, том) :- родитель( том, лиз).
    Условная часть приняла вид:
    родитель( том, лиз)
    Теперь пролог-система попытается выяснить, выполняется ли это условие (является ли оно истинным). Для этого исходная цель
    отпрыск( лиз, том)
    заменяется подцелью
    родитель( том, лиз)
    Эта (новая) цель достигается тривиально, поскольку такой факт можно найти в нашей программе. Это означает, что утверждение, содержащееся в выводе правила, также истинно, и система ответит на вопрос yes (да).
    Добавим теперь в нашу программу-пример еще несколько родственных отношений. Определение отношения мать может быть основано на следующем логическом утверждении:
    Для всех X и Y
      X является матерью Y, если
      X является родителем Y и
      X — женщина.
    На Пролог это переводится в виде такого правила:
    мать( X, Y) :- родитель( X, Y), женщина( X).
    Запятая между двумя условиями указывает на конъюнкцию условий. Это означает, что они должны быть выполнены оба одновременно.
    Рис. 1.3.  Графы отношений родительродителя, мать и отпрыск, определенных через другие отношения.
    Такие отношения как родитель, отпрыск и мать можно изобразить в виде диаграмм, приведенных на рис. 1.3. Они нарисованы с учетом следующих соглашений. Вершины графа соответствуют объектам, т.е. аргументам отношений. Дуги между вершинами соответствуют бинарным (двуместным) отношениям. Дуги направлены от первого аргумента к второму. Унарные отношения на диаграмме изображаются просто пометкой соответствующих объектов именем отношения. Отношения, определяемые через другие отношения, представлены штриховыми дугами. Таким образом, любую диаграмму следует понимать так: если выполнены отношения, изображенные сплошными дугами, тогда и отношение, изображенное штриховой дугой, тоже выполнено. В соответствии с рис. 1.3, отношение родительродителя можно сразу записать на Прологе:
    родительродителя( X, Z) :- родитель( X, Y),
                               родитель( Y, Z).
    Здесь уместно сделать несколько замечаний о внешнем виде нашей программы. Пролог дает почти полную свободу расположения текста на листе. Так что можно вставлять пробелы и переходить к новой строке в любом месте текста по вкусу. Вообще мы хотим сделать так, чтобы наша программа имела красивый и аккуратный вид, а самое главное, легко читалась. Для этого мы часто будем помещать голову предложения и каждую цель на отдельной строке. При этом цели мы будем писать с отступом, чтобы сделать разницу между головой и целями более заметной. Например, правило родительродителя в соответствии с этими соглашениями запишется так:
    родительродителя( X, Z) :-
     родитель( X, Y),
     родитель( Y, Z).
    На рис. 1.4 показано отношение сестра:
    Для любых X и Y
      X является сестрой Y, если
      (1)  у X и Y есть общий родитель, и
      (2)  X — женщина.
    Рис. 1.4. Определение отношения сестра.
    Граф на рис. 1.4 можно перевести на Пролог так:
    сестра( X, Y) :-
     родитель( Z, X),
     родитель( Z, Y),
     женщина( X).
    Обратите внимание на способ, с помощью которого выражается требование "у X и Y есть общий родитель". Была использована следующая логическая формулировка: "некоторый Z должен быть родителем X и этот же самый Z должен быть родителем Y". По-другому, менее красиво, можно было бы сказать так: "Z1 - родитель X, Z2 - родитель Y и Z1 равен Z2".
    Теперь можно спросить:
    ?- сестра( энн, пат).
    Как и ожидается, ответ будет "yes" (да) (см. рис. 1.1). Мы могли бы заключить отсюда, что определенное нами отношение сестра работает правильно. Тем не менее в нашей программе есть маленькое упущение, которое обнаружится, если задать вопрос: "Кто является сестрой Пат?"
    ?-  сестра( X, пат).
    Система найдет два ответа, один из которых может показаться неожиданным:
    X = энн;
    X = пат
    Получается, что Пат — сестра себе самой?! Наверное, когда мы определяли отношение сестра, мы не имели этого ввиду. Однако ответ Пролога совершенно логичен, поскольку он руководствовался нашим правилом, а это правило ничего не говорит о том, что, если X — сестра Y, то X и Y не должны совпадать. Пролог (с полным правом) считает, что X и Y могут быть одним и тем же объектом и в качестве следствия из этого делает вывод, что любая женщина, имеющая родителя, является сестрой самой себе.
    Чтобы исправить наше правило о сестрах, его нужно дополнить утверждением, что X и Y должны различаться. В следующих главах мы увидим, как это можно сделать, в данный же момент мы предположим, что отношение различны уже известно пролог-системе и что цель
    различны( X, Y)
    достигается тогда и только тогда, когда X и Y не равны. Усовершенствованное правило для отношения сестра примет тогда следующий вид:
    сестра( X, Y) :-
     родитель( Z, X),
     родители( Z, Y),
     женщина( X),
     различны( X, Y).
    Некоторые важные моменты этого раздела:
    • Пролог-программы можно расширять, добавляя в них новые предложения.
    • Прологовские предложения бывают трех типов: факты, правила и вопросы.
    • Факты содержат утверждения, которые являются всегда, безусловно верными.
    • Правила содержат утверждения, истинность которых зависит от некоторых условий.
    • С помощью вопросов пользователь может спрашивать систему о том, какие утверждения являются истинными.
    • Предложения Пролога состоят из головы и тела. Тело — это список целей, разделенных запятыми. Запятая понимается как конъюнкция.
    • Факты — это предложения, имеющие пустое тело. Вопросы имеют только тело. Правила имеют голову и (непустое) тело.
    • По ходу вычислений вместо переменной может быть подставлен другой объект. Мы говорим в этом случае, что переменная конкретизирована.
    Предполагается, что на переменные действует квантор всеобщности, читаемый как "для всех…". Однако для переменных, появляющихся только в теле, возможны и другие формулировки. Например,
    имеетребенка( X) :- родитель( X, Y).
    можно прочитать двумя способами:
    (а) Для всех X и Y,
         если X — отец Y, то
         X имеет ребенка.
    (б) Для всех X,
         X имеет ребенка, если
         существует некоторый Y, такой, что
         X — родитель Y.
Упражнения
    1.3. Оттранслируйте следующие утверждения в правила на Прологе:
    (a) Всякий, кто имеет ребенка, — счастлив (введите одноаргументное отношение счастлив).
    (b) Всякий X, имеющий ребенка, у которого есть сестра, имеет двух детей (введите новое отношение иметьдвухдетей).
    1.4. Определите отношение внук, используя отношение родитель. Указание: оно будет похоже на отношение родительродителя (см. рис. 1.3).
    1.5. Определите отношение тетя( X, Y) через отношение родитель и сестра. Для облегчения работы можно сначала изобразить отношение тетя в виде диаграммы по типу тех, что изображены на рис. 1.3. 

1.3. Рекурсивное определение правил

    Давайте добавим к нашей программе о родственных связях еще одно отношение — предок. Определим его через отношение родитель. Все отношение можно выразить с помощью двух правил. Первое правило будет определять непосредственных (ближайших) предков, а второе — отдаленных. Будем говорить, что некоторый является отдаленным предком некоторого Z, если между X и Z существует цепочка людей, связанных между собой отношением родитель-ребенок, как показано на рис.1.5. В нашем примере на рис. 1.1 Том — ближайший предок Лиз и отдаленный предок Пат.
    Рис. 1.5. Пример отношения предок: (а) X — ближайший предок Z; (b) X — отдаленный предок Z.
    Первое правило простое и его можно сформулировать так:
    Для всех X и Z,
      X — предок Z, если
      X — родитель Z.
    Это непосредственно переводится на Пролог как
    предок( X, Z) :-
     родитель( X, Z).
    Второе правило сложнее, поскольку построение цепочки отношений родитель может вызвать некоторые трудности. Один из способов определения отдаленных родственников мог бы быть таким, как показано на рис. 1.6. В соответствии с ним отношение предок определялось бы следующим множеством предложений:
    предок( X, Z) :-
     родитель( X, Z).

    предок( X, Z) :-
     родитель( X, Y),
     родитель( Y, Z).

    предок( X, Z) :-
     родитель( X, Y1),
     родитель( Yl, Y2),
     родитель( Y2, Z).

    предок( X, Z) :-
     родитель( X, Y1),
     родитель( Y1, Y2),
     родитель( Y2, Y3),
     родитель( Y3, Z).

    ...
    Рис. 1.6. Пары предок-потомок, разделенных разным числом поколений.
    Эта программа длинна и, что более важно, работает только в определенных пределах. Она будет обнаруживать предков лишь до определенной глубины фамильного дерева, поскольку длина цепочки людей между предком и потомком ограничена длиной наших предложений в определении отношения.
    Существует, однако, корректная и элегантная формулировка отношения предок — корректная в том смысле, что будет работать для предков произвольной отдаленности. Ключевая идея здесь — определить отношение предок через него самого. Рис 1.7 иллюстрирует эту идею:
    Для всех X и Z,
      X — предок Z, если
     существует Y, такой, что
     (1)  X — родитель Y и
     (2)  Y — предок Z.
    Предложение Пролога, имеющее тот же смысл, записывается так:
    предок( X, Z) :-
     родитель( X, Y),
     предок( Y, Z).
    Теперь мы построили полную программу для отношения предок, содержащую два правила: одно для ближайших предков и другое для отдаленных предков. Здесь приводятся они оба вместе:
    предок( X, Z) :-
     родитель( X, Z).

    предок( X, Z) :-
     родитель( X, Y),
     предок( Y, Z).

    Рис. 1.7.  Рекурсивная формулировка отношения предок.
    Ключевым моментом в данной формулировке было использование самого отношения предок в его определении. Такое определение может озадачить - допустимо ли при определении какого-либо понятия использовать его же, ведь оно определено еще не полностью. Такие определения называются рекурсивными. Логически они совершенно корректны и понятны; интуитивно это ясно, если посмотреть на рис. 1.7. Но будет ли в состоянии пролог-система использовать рекурсивные правила? Оказывается, что пролог-система очень легко может обрабатывать рекурсивные определения. На самом деле, рекурсия — один из фундаментальных приемов программирования на Прологе. Без рекурсии с его помощью невозможно решать задачи сколько-нибудь ощутимой сложности.
    Возвращаясь к нашей программе, можно теперь задать системе вопрос: "Кто потомки Пам?" То есть: "Кто тот человек, чьим предком является Пам?"
    ?-  предок( пам, X).

    X  =  боб;
    X  =  энн;
    X  =  пат;
    X  =  джим
    Ответы системы, конечно, правильны, и они логически вытекают из наших определений отношений предок и родитель. Возникает, однако, довольно важный вопрос: "Как в действительности система использует программу для отыскания этих ответов?"
    Неформальное объяснение того, как система это делает, приведено в следующем разделе. Но сначала давайте объединим все фрагменты нашей программы о родственных отношениях, которая постепенно расширялась по мере того, как мы вводили в нее новые факты и правила. Окончательный вид программы показан на рис. 1.8.
    При рассмотрении рис. 1.8 следует учесть два новых момента: первый касается понятия "процедура", второй — комментариев в программах. Программа, приведенная на рис. 1.8, определяет несколько отношений — родитель, мужчина, женщина, предок и т.д. Отношение предок, например, определено с помощью двух предложений. Будем говорить, что эти два предложения входят в состав отношения предок. Иногда бывает удобно рассматривать в целом все множество предложений, входящих в состав одного отношения. Такое множество называется процедурой.
    родитель( пам, боб). % Пам - родитель Боба
    родитель( том, боб).
    родитель( том, лиз).
    родитель( бoб, энн).
    родитель( боб, пат).
    родитель( пат, джим).

    женщина( пам).       % Пам - женщина
    мужчина( том).       % Том - мужчина
    мужчина( боб).
    женщина( лиз).
    женщина( энн).
    женщина( пат).
    мужчина( джим).

    отпрыск( Y, X) :-    % Y - отпрыск X, если
     родитель( X, Y).    % X - родитель Y

    мать( X, Y) :-       % X - мать Y, если
     родитель( X, Y),    % X - родитель Y и
     женщина( X).        % X - женщина

    родительродителя( X, Z) :-
     % X - родитель родителя Z, если
     родитель( X, Y),    % X - родитель Y и
     родитель( Y, Z).    % Y - родитель Z

    сестра( X, Y) :-     % X - сестра Y
     родитель( Z, X),
     родитель( Z, Y)     % X и Y имеют общего родителя
     женщина( X, Y),     % X - женщина и
     различны( X, Y).    % X отличается от Y

    предок( X, Z) :-     % Правило пр1:  X - предок Z
     родитель( X, Z).
    предок( X, Z) :-     % Правило пр2:  X - предок Z
     родитель( X, Y),
     предок( Y, Z).
    Рис. 1.8. Программа о родственных отношениях.

    На рис. 1.8 два предложения, входящие в состав отношения предок, выделены именами "пр1" и "пр2", добавленными в программу в виде комментариев. Эти имена будут использоваться в дальнейшем для ссылок на соответствующие правила. Вообще говоря, комментарии пролог-системой игнорируются. Они нужны лишь человеку, который читает программу. В Прологе комментарии отделяются от остального текста программы специальными скобками "/*" и "*/". Таким образом, прологовский комментарий выглядит так
    /* Это комментарий */
    Другой способ, более практичный для коротких комментариев, использует символ процента %. Все, что находится между % и концом строки, расценивается как комментарии:
    % Это тоже комментарий
Упражнение
    1.6. Рассмотрим другой вариант отношения предок:
    предок( X, Z) :-
     родитель( X, Z).
    предок( X, Z) :-
     родитель( Y, Z),
     предок( X, Y).
    Верно ли и такое определение? Сможете ли Вы изменить диаграмму на рис. 1.7 таким образом, чтобы она соответствовала новому определению?

1.4. Как пролог-система отвечает на вопросы

    В данном разделе приводится неформальное объяснение того, как пролог-система отвечает на вопросы.
    Вопрос к системе — это всегда последовательность, состоящая из одной или нескольких целей. Для того, чтобы ответить на вопрос, система пытается достичь всех целей. Что значит достичь цели? Достичь цели — это значит показать, что утверждения, содержащиеся в вопросе, истинны в предположении, что все отношения программы истинны. Другими словами, достичь цели - это значит показать, что она логически следует из фактов и правил программы. Если вопрос содержит переменные, система должна к тому же найти конкретные объекты, которые (будучи подставленными вместо переменных) обеспечивают достижение цели. Найденные конкретизации сообщаются пользователю. Если для некоторой конкретизации система не в состоянии вывести цель из остальных предложений программы, то ее ответом на вопрос будет "нет".
    Таким образом, подходящей интерпретацией пролог-программы в математических терминах будет следующая: пролог-система рассматривает факты и правила в качестве множества аксиом, а вопрос пользователя — как теорему; затем она пытается доказать эту теорему, т.е. показать, что ее можно логически вывести из аксиом.
    Проиллюстрируем этот подход на классическом примере. Пусть имеются следующие аксиомы:
     Все люди смертны.
     Сократ — человек.
    Теорема, логически вытекающая из этих двух аксиом:
     Сократ смертен.
    Первую из вышеуказанных аксиом можно переписать так:
     Для всех X, если X — человек, то X смертен.
    Соответственно наш пример можно перевести на Пролог следующим образом:
    смертен( X) :- человек( X). % Все люди смертны
    человек( сократ).           % Сократ - человек
    ?-  смертен( сократ).       % Сократ смертен?
    yes                   (да)
    Более сложный пример из программы о родственных отношениях, приведенной на рис. 1.8:
    ?- предок( том, пат)
    Мы знаем, что родитель( боб, пат) — это факт. Используя этот факт и правило пр1, мы можем сделать вывод, что утверждение предок( боб, пат) истинно. Этот факт получен в результате вывода — его нельзя найти непосредственно в программе, но можно вывести, пользуясь содержащимися в ней фактами и правилами. Подобный шаг вывода можно коротко записать
    родитель( боб, пат) ==> предок( боб, пат)
    Эту запись можно прочитать так: из родитель( боб, пат) следует предок( боб, пат) на основании правила пр1. Далее, нам известен факт родитель( том, боб). На основании этого факта и выведенного факта предок( боб, пат) можно заключить, что, в силу правила пр2, наше целевое утверждение предок( том, пат) истинно. Весь процесс вывода, состоящий из двух шагов, можно записать так:
    родитель(боб, пат) ==> предок( боб, пат)
    родитель(том, боб) и   предок( боб, пат) ==>
     предок( том, пат)
    Таким образом, мы показали, какой может быть последовательность шагов для достижения цели, т.е. для демонстрации истинности целевого утверждения. Назовем такую последовательность цепочкой доказательства. Однако мы еще не показали как пролог-система в действительности строит такую цепочку.
    Пролог-система строит цепочку доказательства в порядке, обратном по отношению к тому, которым мы только что воспользовались. Вместо того, чтобы начинать с простых фактов, приведенных в программе, система начинает с целей и, применяя правила, подменяет текущие цели новыми, до тех пор, пока эти новые цели не окажутся простыми фактами. Если задан вопрос
    ?-  предок( том, пат).
    система попытается достичь этой цели. Для того, чтобы это сделать, она пробует найти такое предложение в программе, из которого немедленно следует упомянутая цель. Очевидно, единственными подходящими для этого предложениями являются пр1 и пр2.
    Рис. 1.9.  Первый шаг вычислений. Верхняя цель истинна, если истинна нижняя.
    Это правила, входящие в отношение предок. Будем говорить, что головы этих правил сопоставимы с целью.
    Два предложения пр1 и пр2 описывают два варианта продолжения рассуждений для пролог-системы. Вначале система пробует предложение, стоящее в программе первым:
    предок( X, Z) :- родитель( X, Z).
    Поскольку цель — предок( том, пат), значения переменным должны быть приписаны следующим образом:
    X = том, Z = пат
    Тогда исходная цель предок( том, пат) заменяется новой целью:
    родитель( том, пат)
    Такое действие по замене одной цели на другую на основании некоторого правила показано на рис. 1.9. В программе нет правила, голова которого была бы сопоставима с целью родитель(том, пат), поэтому такая цель оказывается неуспешной. Теперь система делает возврат к исходной цели, чтобы попробовать второй вариант вывода цели верхнего уровня предок( том, пат). То есть, пробуется правило пр2:
    предок( X, Z) :-
     родитель( X, Y),
     предок( Y, Z).
    Как и раньше, переменным X и Z приписываются значения:
    X = том, Z = пат
    В этот момент переменной Y еще не приписано никакого значения. Верхняя цель предок( том, пат) заменяется двумя целями:
    родитель( том, Y),
    предок( Y, пат)
    Этот шаг вычислений показан на рис. 1.10, который представляет развитие ситуации, изображенной на рис. 1.9.
    Рис. 1.10. Продолжение процесса вычислений, показанного на рис. 1.9.
    Имея теперь перед собой две цели, система пытается достичь их в том порядке, каком они записаны. Достичь первой из них легко, поскольку она соответствует факту из программы. Процесс установления соответствия — сопоставление (унификация) вызывает приписывание переменной Y значения боб. Тем самым достигается первая цель, а оставшаяся превращается в
    предок( боб, пат)
    Для достижения этой цели вновь применяется правило пр1. Заметим, — что это (второе) применение правила никак не связано с его первым применением. Поэтому система использует новое множество переменных правила всякий раз, как оно применяется. Чтобы указать это, мы переименуем переменные правила пр1 для нового его применения следующим образом:
    предок( X', Z') :-
     родитель( X', Z').
    Голова этого правила должна соответствовать нашей текущей цели предок( боб, пат). Поэтому
    X' = боб, Z' = пат
    Текущая цель заменяется на
    родитель( боб, пат)
    Такая цель немедленно достигается, поскольку встречается в программе в качестве факта. Этот шаг завершает вычисление, что графически показано на рис. 1.11.
    Рис. 1.11.  Все шаги достижения цели предок( том, пат). Правая ветвь демонстрирует, что цель достижима.
    Графическое представление шагов вычисления на рис. 1.11 имеет форму дерева. Вершины дерева соответствуют целям или спискам целей, которые требуется достичь. Дуги между вершинами соответствуют применению (альтернативных) предложений программы, которые преобразуют цель, соответствующую одной вершине, в цель, соответствующую другой вершине. Корневая (верхняя) цель достигается тогда, когда находится путь от корня дерева (верхней вершины) к его листу, помеченному меткой "да". Лист помечается меткой "да", если он представляет собой простой факт. Выполнение пролог-программы состоит в поиске таких путей. В процессе такого поиска система может входить и в ветви, приводящие к неуспеху. В тот момент, когда она обнаруживает, что ветвь не приводит к успеху, происходит автоматический возврат к предыдущей вершине, и далее следует попытка применить к ней альтернативное предложение.
Упражнение
    1.7. Постарайтесь понять, как пролог-система, используя программу, приведенную на рис. 1.8, выводит ответы на указанные ниже вопросы. Попытайтесь нарисовать соответствующие диаграммы вывода по типу тех, что изображены на рис.1.9–1.11. Будут ли встречаться возвраты при выводе ответов на какие-либо из этих вопросов?
    (a)  ?- родитель( пам, боб).
    (b)  ?- мать( пам, боб).
    (с)  ?- родительродителя( пам, энн).
    (d)  ?- родительродителя( боб, джим). 

1.5. Декларативный и процедурный смысл программ

    До сих пор во всех наших примерах всегда можно было понять результаты работы программы, точно не зная, как система в действительности их нашла. Поэтому стоит различать два уровня смысла программы на Прологе, а именно:
    • декларативный смысл и
    • процедурный смысл.
    Декларативный смысл касается только отношений, определенных в программе. Таким образом, декларативный смысл определяет, что должно быть результатом работы программы. С другой стороны, процедурный смысл определяет еще и как этот результат был получен, т.е. как отношения реально обрабатываются пролог-системой.
    Способность пролог-системы прорабатывать многие процедурные детали самостоятельно считается одним из специфических преимуществ Пролога. Это свойство побуждает программиста рассматривать декларативный смысл программы относительно независимо от ее процедурного смысла. Поскольку результаты работы программы в принципе определяются ее декларативным смыслом, последнего (Опять же в принципе) достаточно для написания программ. Этот факт имеет практическое значение, поскольку декларативные аспекты программы являются, обычно, более легкими для понимания, нежели процедурные детали. Чтобы извлечь из этого обстоятельства наибольшую пользу, программисту следует сосредоточиться главным образом на декларативном смысле и по возможности не отвлекаться на детали процесса вычислений. Последние следует в возможно большей мере предоставить самой пролог-системе.
    Такой декларативный подход и в самом деле часто делает программирование на Прологе более легким, чем на таких типичных процедурно-ориентированных языках, как Паскаль. К сожалению, однако, декларативного подхода не всегда оказывается, достаточно. Далее станет ясно, что, особенно в больших программах, программист не может полностью игнорировать процедурные аспекты по соображениям эффективности вычислений. Тем не менее следует поощрять декларативный стиль мышления при написании пролог-программ, а процедурные аспекты игнорировать в тех пределах, которые устанавливаются практическими ограничениями.

Резюме

    • Программирование на Прологе состоит в определении отношений и в постановке вопросов, касающихся этих отношений.
    • Программа состоит из предложений. Предложения бывают трех типов: факты, правила и вопросы.
    • Отношение может определяться фактами, перечисляющими n-ки объектов, для которых это отношение выполняется, или же оно может определяться правилами.
    • Процедура — это множество предложений об одном и том же отношении.
    • Вопросы напоминают запросы к некоторой базе данных. Ответ системы на вопрос представляет собой множество объектов, которые удовлетворяют запросу.
    • Процесс, в результате которого пролог-система устанавливает, удовлетворяет ли объект запросу, часто довольно сложен и включает в себя логический вывод, исследование различных вариантов и, возможно, возвраты. Все это делается автоматически самой пролог-системой и по большей части скрыто от пользователя.
    • Различают два типа смысла пролог-программ: декларативный и процедурный. Декларативный подход предпочтительнее с точки зрения программирования. Тем не менее, программист должен часто учитывать также и процедурные детали.
    • В данной главе были введены следующие понятия:
      предложение, факт, правило, вопрос
      голова предложения, тело предложения
      рекурсивное правило
      рекурсивное определение
      процедура
      атом, переменная
      конкретизация переменной
      цель
      цель достижима, цель успешна
      цель недостижима,
      цель имеет неуспех, цель терпит неудачу
      возврат
      декларативный смысл, процедурный смысл.
Литература
    Различные реализации Пролога используют разные синтаксические соглашения. В данной книге мы применяем так называемый Эдинбургский синтаксис (его называют также синтаксисом DEC-10, поскольку он принят в известной реализации Пролога для машины DEC-10; см. Pereira и др. 1978), он используется во многих популярных пролог-системах, таких как Quintus Prolog, Poplog, CProlog, Arity/Prolog, Prolog-2 и т.д.
    Bowen D. L. (1981). DECsystem-10 Prolog User's Manual. University of Edinburgh: Department of Artificial Intelligence.
    Mellish С. and Hardy S. (1984). Integrating Prolog in the POPLOG environment. Implementations of Prolog (J. A. Campbell, ed.). Ellis Horwood.
    Pereira F. (1982). C-Prolog User's Manual. University of Edinburgh: Department of Computer-Aided Architectural Design.
    Pereira L. M., Pereira F., Warren D. H. D. (1978). User's Guide to DECsystem-10 Prolog. University of Edinburgh: Department of Artificial Intelligence.
    Quintus Prolog User's Guide and Reference Manual. Palo Alto: Quintus Computer System Inc. (1985).
    The Arity/Prolog Programming Language. Concord, Massachusetts: Arity Corporation (1986). 

Глава 2
Синтаксис и семантика Пролог-программ

    В данной главе дается систематическое изложение синтаксиса и семантики основных понятий Пролога, а также вводятся структурные объекты данных. Рассматриваются следующие темы:
    • простые объекты данных (атомы, числа, переменные)
    • структурные объекты
    • сопоставление как основная операция над объектами
    • декларативная (или непроцедурная) семантика программ
    • взаимосвязь между декларативным и процедурным смыслами программ
    • изменение процедурного смысла путем изменения порядка следования предложений и целей
    Большая часть этих тем уже была затронута в гл. 1. Теперь их изложение будет более формальным и детализированным.

2.1.  Объекты данных

    На рис. 2.1 приведена классификация объектов данных Пролога. Пролог-система распознает тип объекта по его синтаксической форме в тексте программы. Это возможно благодаря тому, что синтаксис Пролога предписывает различные формы записи для различных типов объектов данных. В гл. 1 мы уже видели способ, с помощью которого можно отличить атомы от переменных: переменные начинаются с прописной буквы, тогда как атомы — со строчной. Для того, чтобы пролог-система распознала тип объекта, ей не требуется сообщать больше никакой дополнительной информации (такой, например, как объявление типа данных).
    Рис. 2.1. Обьекты данных Пролога.

2.1.1. Атомы и числа

    В гл. 1 мы уже видели несколько простых примеров атомов и переменных. Вообще же они могут принимать более сложные формы, а именно представлять собой цепочки следующих символов:
    • прописные буквы А, В, …, Z
    • строчные буквы а, b, …, z
    • цифры 0, 1, 2, …, 9
    • специальные символы, такие как 
       +  -  *  /   =  :  .  &  _  ~
    Атомы можно создавать тремя способами:
    (1) из цепочки букв, цифр и символа подчеркивания _, начиная такую цепочку со строчной буквы:
    анна
    nil
    х25
    x_25
    x_25AB
    x_
    x__y
    альфа_бета_процедура
    мисс_Джонс
    сара_джонс
    (2) из специальных символов:
    <--->
    ======>
    ...
    .:.
    ::=
    Пользуясь атомами такой формы, следует соблюдать некоторую осторожность, поскольку часть цепочек специальных символов имеют в Прологе заранее определенный смысл. Примером может служить :- .
    (3) из цепочки символов, заключенной в одинарные кавычки. Это удобно, если мы хотим, например, иметь атом, начинающийся с прописной буквы. Заключая его в кавычки, мы делаем его отличным от переменной:
    'Том'
    'Южная_Америка'
    'Сара Джонс'
    Числа в Прологе бывают целыми и вещественными. Синтаксис целых чисел прост, как это видно из следующих примеров: 1, 1313, 0, -97. Не все целые числа могут быть представлены в машине, поэтому диапазон целых чисел ограничен интервалом между некоторыми минимальным и максимальным числами, определяемыми конкретной реализацией Пролога. Обычно реализация допускает диапазон хотя бы от -16 383 до 16 383, а часто, и значительно более широкий.
    Синтаксис вещественных чисел зависит от реализации. Мы будем придерживаться простых правил, видных из следующих примеров: 3.14, -0.0035, 100.2. При обычном программировании на Прологе вещественные числа используются редко. Причина этого кроется в том, что Пролог — это язык, предназначенный в первую очередь для обработки символьной, а не числовой информации, в противоположность языкам типа Фортрана, ориентированным на числовую обработку. При символьной обработке часто используются целые числа, например, для подсчета количества элементов списка; нужда же в вещественных числах невелика.
    Кроме отсутствия необходимости в использовании вещественных чисел в обычных применениях Пролога, существует и другая причина избегать их. Мы всегда стремимся поддерживать наши программы в таком виде, чтобы их смысл был предельно ясен. Введение вещественных чисел в некоторой степени нарушает эту ясность из-за ошибок вычислений, связанных с округлением во время выполнения арифметических действий. Например, результатом вычисления выражения 10000 + 0.0001 - 10000 может оказаться 0 вместо правильного значения 0.0001.

2.1.2. Переменные

    Переменные — это цепочки, состоящие из букв, цифр и символов подчеркивания. Они начинаются с прописной буквы или с символа подчеркивания:
    X
    Результат
    Объект2
    Список_участников
    СписокПокупок
    _x23
    _23
    Если переменная встречается в предложения только один раз, то нет необходимости изобретать ей имя. Можно использовать так называемую "анонимную" переменную, которая записывается в виде одного символа подчеркивания. Рассмотрим, например, следующее правило:
    имеетребенка( X) :- родитель( X, Y).
    Это правило гласит: "Для всех X,  X имеет ребенка, если X является родителем некоторого Y". Здесь мы определяем свойство имеетребенка таким образом, что оно не зависит от имени ребенка. Следовательно, это как раз тот случай, когда уместно использовать анонимную переменную. Поэтому вышеприведенное правило можно переписать так:
    имеетребенка( X) :- родитель( X, _).
    Всякий раз, когда в предложения появляется одиночный символ подчеркивания, он обозначает новую анонимную переменную. Например, можно сказать, что существует некто, кто имеет ребенка, если существуют два объекта, такие, что один из них является родителем другого:
    некто_имеет_ребенка :- родитель( _, _).
    Это предложение эквивалентно следующему:
    некто_имеет_ребенка :- родитель( X, Y).
    Однако оно имеет совершенно другой смысл, нежели
    некто_имеет_ребенка :- родитель( X, X).
    Если анонимная переменная встречается в вопросе, то ее значение не выводится при ответе системы на этот вопрос. Если нас интересуют люди, имеющие детей, но не имена этих детей, мы можем просто спросить:
    ?-  родитель( X, _ ).
    Лексический диапазон имени — одно предложение. Это значит, что если, например, имя X15 встречается в двух предложениях, то оно обозначает две разные переменные. Однако внутри одного предложения каждое его появлений обозначает одну и ту же переменную. Для констант ситуация другая: один и тот же атом обозначает один и тот же объект в любом предложении, иначе говоря, — во всей программе.

2.1.3. Структуры

    Структурные объекты (или просто структуры) — это объекты, которые состоят из нескольких компонент. Эти компоненты, в свою очередь, могут быть структурами. Например, дату можно рассматривать как структуру, состоящую из трех компонент: день, месяц, год. Хотя они и составлены из нескольких компонент, структуры в программе ведут себя как единые объекты. Для того, чтобы объединить компоненты в структуру, требуется выбрать функтор. Для нашего примера подойдет функтор дата. Тогда дату 1-e мая 1983 г. можно записать так:
    дата( 1, май, 1983)
    (см. рис. 2.2).
    Все компоненты в данном примере являются константами (две компоненты — целые числа и одна — атом). Компоненты могут быть также переменными или структурами. Произвольный день в мае можно представить структурой:
    дата( День, май, 1983)
    Заметим, что День является переменной и ей можно приписать произвольное значение на некотором более позднем этапе вычислений.
    Такой метод структурирования данных прост и эффективен. Это является одной из причин того, почему Пролог естественно использовать для решения задач обработки символьной информации.
    Синтаксически все объекты данных в Прологе представляют собой термы. Например,
    май
    и
    дата( 1, май, 1983)
    суть термы.
    Все структурные объекты можно изображать в виде деревьев (пример см. на рис. 2.2). Корнем дерева служит функтор, ветвями, выходящими из него, — компоненты. Если некоторая компонента тоже является структурой, тогда ей соответствует поддерево в дереве, изображающем весь структурный объект.
    Наш следующий пример показывает, как можно использовать структуры для представления геометрических объектов (см. рис. 2.3). Точка в двумерном пространстве определяется двумя координатами; отрезок определяется двумя точками, а треугольник можно задать тремя точками. Введем следующие функторы:
    точка        для точек
    отрезок      для отрезков и
    треугольник  для треугольников.
    Рис. 2.2. Дата — пример структурного объекта: (а) его представление в виде дерева; (б) запись на Прологе.
    Тогда объекты, приведенные на рис. 2.3, можно представить следующими прологовскими термами:
    P1 = точка( 1, 1)

    P2 = точка( 2, 3)

    S = отрезок( P1, P2) =
     отрезок( точка( 1, 1), точка( 2, 3) )

    T = треугольник( точка( 4, 2), точка( 6, 4),
     точка( 7, 1) )
    Рис. 2.3. Простые геометрические объекты.
    Соответствующее представление этих объектов в виде деревьев приводится на рис. 2.4. Функтор, служащий корнем дерева, называется главным функтором терма.
    Рис. 2. 4.  Представление объектов с рис. 2.3  в виде деревьев.
    Если бы в такой же программе фигурировали точки трехмерного пространства, то можно было бы для их представления использовать другой функтор, скажем точка3:
    точка3( X, Y, Z)
    Можно, однако, воспользоваться одним и тем же именем точка одновременно и для точек двумерного и трехмерного пространств и написать, например, так:
    точка( XI, Y1) и точка( X, Y, Z)
    Если одно и то же имя появляется в программе в двух различных смыслах, как в вышеупомянутом примере с точкой, то пролог-система будет различать их по числу аргументов и интерпретировать это имя как два функтора: один — двухаргументный; второй — трех. Это возможно потому, что каждый функтор определяется двумя параметрами:
    (1) именем, синтаксис которого совпадает с синтаксисом атомов;
    (2) арностью — т.е. числом аргументов.
    Как уже объяснялось, все структурные объекты в Прологе — это деревья, представленные в программе термами. Рассмотрим еще два примера, чтобы показать, насколько удобно сложные объекты данных представляются с помощью прологовских термов. На рис. 2.5 показана древовидная структура, соответствующая арифметическому выражению
     (a + b)*(c - 5)
    В соответствии с введенным к настоящему моменту синтаксисом, такое выражение, используя символы *,  +  и  -  в качестве функторов, можно записать следующим образом:
    *( +( a, b), -( c, 5))

    Рис. 2.5. Древовидная структура, соответствующая арифметическому выражению (a + b)*(c - 5).
    Это, конечно, совершенно правильный прологовский терм, однако это не та форма, которую нам хотелось бы иметь, при записи арифметических выражений. Хотелось бы применять обычную инфиксную запись, принятую в математике. На самом деле Пролог допускает использование инфиксной нотации, при которой символы *,  +   и  -  записываются как инфиксные операторы. Детали того, как программист может определять свои собственные операторы, мы приведем в гл. 3.
    В качестве последнего примера рассмотрим некоторые простые электрические цепи, изображенные на рис. 2.6. В правой части рисунка помещены древовидные представления этих цепей. Атомы r1, r2, r3 и r4 — имена резисторов. Функторы пар и посл обозначают соответственно параллельное и последовательное соединение резисторов. Вот соответствующие прологовские термы:
    посл( r1, r2)
    пар( r1, r2)
    паp( rl, пap( r2, r3))
    пар( r1, посл( пар( r2, r3), r4))
    Рис. 2.6. Некоторые простые электрические цепи и их представление: (а) последовательное соединение резисторов r1 и r2; (b) параллельное соединение двух резисторов; (с) параллельное соединение трех резисторов; (d) параллельное соединение r1 и еще одной цепи.
Упражнения
    2.1. Какие из следующих выражений представляют собой правильные объекты в смысле Пролога? Что это за объекты (атомы, числа, переменные, структуры)?
    (а)  Диана
    (b)  диана
    (с)  'Диана'
    (d)  _диана
    (e)  'Диана едет на юг'
    (f)  едет( диана, юг)
    (g)  45
    (h)  5( X, Y)
    (i)  +( север, запад)
    (j)  три( Черные( Кошки))
    2.2. Предложите представление для прямоугольников, квадратов и окружностей в виде структурных объектов Пролога. Используйте подход, аналогичный приведенному на рис. 2.4. Например, прямоугольник можно представить четырьмя точками (а может быть, только тремя точками). Напишите несколько термов конкретных объектов такого типа с использованием предложенного вами представления. 

2.2. Сопоставление

    В предыдущем разделе мы видели, как используются термы для представления сложных объектов данных. Наиболее важной операцией над термами является сопоставление. Сопоставление само по себе может производить содержательные вычисления.
    Пусть даны два терма. Будем говорить, что они сопоставимы, если:
    (1) они идентичны или
    (2) переменным в обоих термах можно приписать в качестве значений объекты (т.е. конкретизировать их) таким образом, чтобы после подстановки этих объектов в термы вместо переменных, последние стали идентичными.
    Например, термы дата( Д, М, 1983) и дата( Д1, май, Y1) сопоставимы. Одной из конкретизации, которая делает эти термы идентичными, является следующая:
    • Д  заменяется на Д1
    • М  заменяется на май
    • Y1 заменяется на 1983
    Более компактно такая подстановка записывается в привычной форме, т.е. в той, в которой пролог-система выводит результаты:
    Д = Д1
    М = май
    Y1 = 1983
    С другой стороны, дата( Д, М, 1983) и дата( Д1, M1, 1944) не сопоставимы, как и термы дата( X, Y, Z) и точка( X, Y, Z).
    Сопоставление — это процесс, на вход которого подаются два терма, а он проверяет, соответствуют ли эти термы друг другу. Если термы не сопоставимы, будем говорить, что этот процесс терпит неуспех. Если же они сопоставимы, тогда процесс находит конкретизацию переменных, делающую эти термы тождественными, и завершается успешно.
    Рассмотрим еще раз сопоставление двух дат. Запрос на проведение такой операции можно передать системе, использовав оператор '=':
    ?- дата( Д, М, 1983) = дата( Д1, май, Y1).
    Мы уже упоминали конкретизацию Д = Д1, М = май, Y1 = 1983, на которой достигается сопоставление. Существуют, однако, и другие конкретизации, делающие оба терма идентичными. Вот две из них:
    Д  = 1
    Д1 = 1
    М  = май
    Y1 = 1983

    Д  = третий
    Д1 = третий
    М  = май
    Y1 = 1983
    Говорят, что эти конкретизации являются менее общими по сравнению с первой, поскольку они ограничивают значения переменных Д и Д1 в большей степени, чем это необходимо. Для того, чтобы сделать оба терма нашего примера идентичными, важно лишь, чтобы Д и Д1 имели одно и то же значение, однако само это значение может быть произвольным. Сопоставление в Прологе всегда дает наиболее общую конкретизацию. Таковой является конкретизация, которая ограничивает переменные в наименьшей степени, оставляя им, тем самым, наибольшую свободу для дальнейших конкретизаций, если потребуются новые сопоставления. В качестве примера рассмотрим следующий вопрос:
    ?- дата( Д, М, 1983) =  дата( Д1, май, Y1),
       дата( Д, М, 1983) = дата( 15, М, Y).
    Для достижения первой цели система припишет переменным такие значения:
    Д  = Д1
    М  = май
    Y1 = 1983
    После достижения второй цели, значения переменных станут более конкретными, а именно:
    Д  = 15
    Д1 = 15
    М  = май
    Y1 = 1983
    Y  = 1983
    Этот пример иллюстрирует также и тот факт, что переменным по мере вычисления последовательности целей приписываются обычно все более и более конкретные значения.
    Общие правила выяснения, сопоставимы ли два терма S и T, таковы:
    (1) Если S и T — константы, то S и T сопоставимы, только если они являются одним и тем же объектом.
    (2) Если S — переменная, а T — произвольный объект, то они сопоставимы, и S приписывается значение T. Наоборот, если T —переменная, а S — произвольный объект, то T приписывается значение S.
    (3) Если S и T — структуры, то они сопоставимы, только если
      (а) S и T имеют одинаковый главный функтор
           и
      (б) все их соответствующие компоненты сопоставимы.
           Результирующая конкретизация определяется сопоставлением компонент.
    Последнее из этих правил можно наглядно представить себе, рассмотрев древовидное изображение термов, такое, например, как на рис. 2.7. Процесс сопоставления начинается от корня (главных функторов). Поскольку оба функтора сопоставимы, процесс продолжается и сопоставляет соответствующие пары аргументов. Таким образом, можно представить себе, что весь процесс сопоставления состоит из следующей последовательности (более простых) операций сопоставления:
    треугольник = треугольник,
    точка( 1, 1) = X,
    А = точка( 4, Y),
    точка( 2, 3) = точка( 2, Z).
    Весь процесс сопоставления успешен, поскольку все сопоставления в этой последовательности успешны. Результирующая конкретизация такова:
    X = точка( 1, 1)
    A = точка( 4, Y)
    Z = 3
    В приведенном ниже примере показано, как сопоставление само по себе можно использовать для содержательных вычислений. Давайте вернемся к простым геометрическим объектам с рис. 2.4 и напишем фрагмент программы для распознавания горизонтальных и вертикальных отрезков. "Вертикальность" — это свойство отрезка, поэтому его можно формализовать в Прологе в виде унарного отношения. Рис. 2.8 помогает сформулировать это отношение. Отрезок является вертикальным, если x-координаты его точек-концов совпадают; никаких других ограничений на отрезок не накладывается. Свойство "горизонтальности" формулируется аналогично, нужно только в этой формулировке x и y поменять местами. Следующая программа, содержащая два факта, реализует эти формулировки:
    верт( отр( точка( X, Y), точка( X, Y1) ) ).
    гор( отр( точка( X, Y), точка( X1, Y) ) ).
    Рис. 2.7. Сопоставление треугольник(( точка( 1, 1), А, точка( 2, 3)) = треугольник( X, точка( 4, Y), точка( 2, Z))
    С этой программой возможен такой диалог:
    ?- верт( отр( точка( 1, 1), точка( 1, 2) ) ).
    да

    ?- верт( отр( точка( 1, 1), точка( 2, Y) ) ).
    нет

    ?- гор( отр( точка( 1, 1), точка( 2, Y) ) ).
    Y = 1
    На первый вопрос система ответила "да", потому. что цель, поставленная в вопросе, сопоставима с одним из фактов программы. Для второго вопроса сопоставимых фактов не нашлось. Во время ответа на третий вопрос при сопоставлении с фактом о горизонтальных отрезках Y получил значение 1.
    Рис. 2.8. Пример вертикальных и горизонтальных отрезков прямых.
    Сформулируем более общий вопрос к программе: "Существуют ли какие-либо вертикальные отрезки, начало которых лежит в точке (2,3)?"
    ?- верт( отр( точка( 2, 3), P) ).
    P = точка( 2, Y)
    Такой ответ означает: "Да, это любой отрезок, с концом в точке (2,Y), т.е. в произвольной точке вертикальной прямой x = 2". Следует заметить, что ответ пролог-системы возможно будет выглядеть не так красиво, как только что описано, а (в зависимости от реализации) приблизительно следующим образом:
    P = точка( 2, _136)
    Впрочем, разница здесь чисто внешняя. В данном случае _136 — это неинициализированная переменная. Имя _136 — законное имя прологовской переменной, которое система построила сама во время вычислений. Ей приходится генерировать новые имена, для того чтобы переименовывать введенные пользователем переменные в программе. Это необходимо по двум причинам: первая — одинаковые имена обозначают в разных предложениях разные переменные; и вторая — при последовательном применении одного и того же предложения используется каждый раз его "копия" с новым набором переменных.
    Другим содержательным вопросом к нашей программe является следующий: "Существует ли отрезок, который одновременно и горизонтален в вертикален?"
    ?- верт( S), гор( S).
    S = отр( точка( X, Y), точка( X, Y) )
    Такой ответ пролог-системы следует, понимать так: "да, любой отрезок, выродившийся в точку, обладает как свойством вертикальности, так и свойством горизонтальности одновременно". Этот ответ снова получен лишь из сопоставления. Как и раньше, в ответе вместо X и Y могут появиться некоторые имена, сгенерированные системой.
Упражнения
    2.3. Будут ли следующие операции сопоставления успешными или неуспешными? Если они будут успешными, то какова будет результирующая конкретизация переменных?
    (а) точка( А, В) = точка( 1, 2)
    (b) точка( А, В) = точка( X, Y, Z)
    (c) плюс( 2, 2) = 4
    (d) +( 2, D)= +( E, 2)
    (e) треугольник( точка( -1, 0), Р2, Р3) =
         треугольник( P1, точка( 1, 0), точка( 0, Y)
    Результирующая конкретизация определяет семейство треугольников. Как бы Вы описали это семейство?
    2.4. Используя представление отрезков, применявшееся в данной разделе, напишите терм, соответствующий любому отрезку на вертикальной прямой x = 5.
    2.5. Предположим, что прямоугольник представлен термом прямоугольник( P1, P2, P3, Р4), где P — вершины прямоугольника, положительно упорядоченные. Определите отношение
    регулярный( R)
    которое имеет место, если R — прямоугольник с вертикальными и горизонтальными сторонами.

2.3. Декларативный смысл пролог-программ

    В главе 1 мы уже видели, что пролог-программу можно понимать по-разному: с декларативной и процедурной точек зрения. В этом и следующем разделах мы рассмотрим более формальное определение декларативного и процедурного смыслов программ базисного Пролога. Но сначала давайте еще раз взглянем на различия между этими двумя семантиками.
    Рассмотрим предложение
    P :- Q, R.
    где P, Q и R имеют синтаксис термов. Приведем некоторые способы декларативной интерпретации этого предложения:
     P — истинно, если Q и R истинны.
     Из Q и R следует  P.
    А вот два варианта его "процедурного" прочтения:
     Чтобы решить задачу P, сначала реши подзадачу Q, а затем — подзадачу R.
     Чтобы достичь P, сначала достигни Q, а затем R.
    Таким образом, различие между "декларативным" и "процедурным" прочтениями заключается в том, что последнее определяет не только логические связи между головой предложения и целями в его теле, но еще и порядок, в котором эти цели обрабатываются.
    Формализуем теперь декларативный смысл.
    Декларативный смысл программы определяет, является ли данная цель истинной (достижимой) и, если да, при каких значениях переменных она достигается. Для точного определения декларативного смысла нам потребуется понятие конкретизации предложения. Конкретизацией предложения С называется результат подстановки в него на место каждой переменной некоторого терма. Вариантом предложения С называется такая конкретизация С, при которой каждая переменная заменена на другую переменную. Например, рассмотрим предложение:
    имеетребенка( X) :- родитель( X, Y).
    Приведем два варианта этого предложения:
    имеетребенка( А) :- родитель( А, В).
    имеетребенка( X1) :- родитель( X1, Х2).
    Примеры конкретизаций этого же предложения:
    имеетребенка( питер) :- родитель( питер, Z).
    имеетребенка( барри) :- родитель( барри,
                            маленькая( каролина) ).
    Пусть дана некоторая программа и цель G, тогда, в соответствии с декларативной семантикой, можно утверждать, что
    Цель G истинна (т.е. достижима или логически следует из программы) тогда и только тогда, когда
    (1) в программе существует предложение С, такое, что
    (2) существует такая его (С) конкретизация I, что
      (a) голова I совпадает с G и
      (б) все цели в теле I истинны.
    Это определение можно распространить на вопросы следующим образом. В общем случае вопрос к пролог-системе представляет собой список целей, разделенных запятыми. Список целей называется истинным (достижимым), если все цели в этом списке истинны (достижимы) при одинаковых конкретизациях переменных. Значения переменных получаются из наиболее общей конкретизации.
    Таким образом, запятая между целями обозначает конъюнкцию целей: они все должны быть истинными. Однако в Прологе возможна и дизъюнкция целей: должна быть истинной, по крайней мере одна из целей. Дизъюнкция обозначается точкой с запятой. Например:
    P :- Q; R.
    читается так: P — истинно, если истинно Q или истинно R. То есть смысл такого предложения тот же, что и смысл следующей пары предложений:
    P :- Q.
    P :- R.
    Запятая связывает (цели) сильнее, чем точка с запятой. Таким образом, предложение
    P :- Q, R; S, T, U.
    понимается как:
    P :- ( Q, R); (S, T, U).
    и имеет тот же смысл, что и два предложения
    P :- Q, R.
    P :- S, T, U.
Упражнения
    2.6. Рассмотрим следующую программу:
    f( 1, один).
    f( s(1), два).
    f( s(s(1)), три).
    f( s(s(s(X))), N) :-
     f(X, N).
    Как пролог-система ответит на следующие вопросы? Там, где возможны несколько ответов, приведите по крайней мере два.
    (a) ?- f( s( 1), A).
    (b) ?- f( s(s(1)), два). 
    (c) ?- f( s(s(s(s(s(s(1)))))), С). 
    (d) ?- f( D, три).
    2.7. В следующей программе говорится, что два человека являются родственниками, если
    (a) один является предком другого, или
    (b) у них есть общий предок, или
    (c) у них есть общий потомок.
    родственники( X, Y) :-
     предок( X, Y).

    родственники( X, Y) :-
     предок( Y, X).

    родственники( X, Y) :-
     % X и Y имеют общего предка
     предок( Z, X),
     предок( Z, Y).

    родственники( X, Y) :-
     % X и Y имеют общего потомка
     предок( X, Z),
     предок( Y, Z).
    Сможете ли вы сократить эту программу, используя запись с точками с запятой?
    2.8. Перепишите следующую программу, не пользуясь точками с запятой.
    преобразовать( Число, Слово) :-
     Число = 1, Слово = один;
     Число = 2, Слово = два;
     Число = 3, Слово = три.

2.4. Процедурная семантика

    Процедурная семантика определяет, как пролог-система отвечает на вопросы. Ответить на вопрос — это значит удовлетворить список целей. Этого можно добиться, приписав встречающимся переменным значения таким образом, чтобы цели логически следовали из программы. Можно сказать, что процедурная семантика Пролога — это процедура вычисления списка целей с учетом заданной программы. "Вычислить цели" это значит попытаться достичь их.
    Назовем эту процедуру вычислить. Как показано на рис. 2.9, входом и выходом этой процедуры являются:
     входом — программа и список целей,
     выходом — признак успех/неуспех и подстановка переменных.
    Рис. 2.9. Входы и выходы процедуры вычисления списка целей.
    Смысл двух составляющих выхода такой:
    (1)  Признак успех/неуспех принимает значение "да", если цели достижимы, и "нет" — в противном случае. Будем говорить, что "да" сигнализирует об успешном завершении и "нет" — о неуспехе.
    (2)  Подстановка переменных порождается только в случае успешного завершения; в случае неуспеха подстановка отсутствует.
ПРОГРАММА
    большой( медведь).     % Предложение 1
    большой( слон).        % Предложение 2
    маленький( кот).       % Предложение 3
    коричневый ( медведь). % Предложение 4
    черный ( кот).         % Предложение 5
    серый( слон).          % Предложение 6

    темный( Z) :-          % Предложение 7:
     черный( Z).           % любой черный
                           % объект является темным
    темный( Z) :-          % Предложение 8:
     коричневый( Z).       % Любой коричневый
                           % объект является темным
ВОПРОС
    ?- темный( X), большой( X) % Кто одновременно темный
                               % и большой?
ШАГИ  ВЫЧИСЛЕНИЯ
    (1) Исходный список целевых утверждений:
    темный( X),  большой( X).
    (2) Просмотр всей программы от начала к концу и поиск предложения, у которого голова сопоставима с первым целевым утверждением
    темный( X).
    Найдена формула 7:
    темный( Z) :- черный( Z).
    Замена первого целевого утверждения конкретизированным телом предложения 7 — порождение нового списка целевых утверждений.
    черный( X),  большой( X)
    (3) Просмотр программы для нахождения предложения, сопоставимого с черный( X). Найдено предложение 5: черный ( кот). У этого предложения нет тела, поэтому список целей при соответствующей конкретизации сокращается до
    большой( кот)
    (4) Просмотр программы в поисках цели большой( кот). Ни одно предложение не найдено. Поэтому происходит возврат к шагу (3) и отмена конкретизации X = кот. Список целей теперь снова
    черный( X),  большой( X)
    Продолжение просмотра программы ниже предложения 5. Ни одно предложение не найдено. Поэтому возврат к шагу (2) и продолжение просмотра ниже предложения 7. Найдено предложение (8):
    темный( Z) :- коричневый( Z).
    Замена первой цели в списке на коричневый( X), что дает
    коричневый( X), большой( X)
    (5) Просмотр программы для обнаружения предложения, сопоставимого коричневый( X). Найдено предложение коричневый( медведь). У этого предложения нет тела, поэтому список целей уменьшается до
    большой( медведь)
    (6) Просмотр программы и обнаружение предложения большой( медведь). У него нет тела, поэтому список целей становится пустым. Это указывает на успешное завершение, а соответствующая конкретизация переменных такова:
    Рис. 2.10.  Пример, иллюстрирующий процедурную семантику Пролога: шаги вычислений, выполняемых процедурой вычислить.

    В главе 1 в разд. "Как пролог-система отвечает на вопросы" мы уже фактически рассмотрели, что делает процедура вычислить. В оставшейся части данного раздела приводится несколько более формальное и систематическое описание этого процесса, которое можно пропустить без серьезного ущерба для понимания остального материала книги.
    Конкретные операции, выполняемые в процессе вычисления целевых утверждений, показаны на рис. 2.10. Возможно, следует изучить этот рисунок прежде, чем знакомиться с последующим общим описанием.
    Чтобы вычислить список целевых утверждений
     G1, G2, …, Gm
    процедура вычислить делает следующее:
    • Если список целей пуст - завершает работу успешно.
    • Если список целей не пуст, продолжает работу, выполняя (описанную далее) операцию 'ПРОСМОТР'.
    • ПРОСМОТР: Просматривает предложения программы от начала к концу до обнаружения первого предложения С, такого, что голова С сопоставима с первой целью G1. Если такого предложения обнаружить не удается, то работа заканчивается неуспехом.
    Если С найдено и имеет вид
    H :- B1, ..., Вn.
    то переменные в С переименовываются, чтобы получить такой вариант С' предложения С, в котором нет общих переменных со списком  G1, …, Gm. Пусть С' — это
    Н' :- B1', ..., Вn'.
    Сопоставляется G1 с H'; пусть S — результирующая конкретизация переменных. В списке целей G1, G2, …, Gm, цель G1 заменяется на список В1', …, Вn', что порождает новый список целей:
    В1', …, Вn', G2, …, Gm
    (Заметим, что, если С — факт, тогда n=0, и в этом случае новый список целей оказывается короче, нежели исходный; такое уменьшение списка целей может в определенных случаях превратить его в пустой, а следовательно, — привести к успешному завершению.)
    Переменные в новом списке целей заменяются новыми значениями, как это предписывает конкретизация S, что порождает еще один список целей
    В1'', …, Вn", G2', …, Gm'
    • Вычисляет (используя рекурсивно ту же самую процедуру) этот новый список целей. Если его вычисление завершается успешно, то и вычисление исходного списка целей тоже завершается успешно. Если же его вычисление порождает неуспех, тогда новый список целей отбрасывается и происходит возврат к просмотру программы. Этот просмотр продолжается, начиная с предложения, непосредственно следующего за предложением С (С — предложение, использовавшееся последним) и делается попытка достичь успешного завершения с помощью другого предложения.
    Более компактная запись этой процедуры в обозначениях, близких к Паскалю, приведена на рис. 2.11.
    Здесь следует сделать несколько дополнительных замечаний, касающихся процедуры вычислить в том виде, в котором она приводится. Во-первых, в ней явно не указано, как порождается окончательная результирующая конкретизация переменных. Речь идет о конкретизации S, которая приводит к успешному завершению и которая, возможно, уточнялась последующими конкретизациями во время вложенных рекурсивных вызовов вычислить.
    procedure вычислить (Прогр, СписокЦелей, Успех)

    Входные параметры:
     Прогр: список предложений
     СписокЦелей: список целей

    Выходной параметр:
     Успех: истинностное значение; Успех принимает значение
            истина, если список целевых утверждений
            (их конъюнкция) истиннен с точки зрения Прогр

    Локальные переменные:
     Цель: цель
     ДругиеЦели: список целей
     Достигнуты: истинностное значение
     Сопоставились: истинностное значение
     Конкрет: конкретизация переменных
              H, Н', B1, B1', …, Вn, Вn': цели

    Вспомогательные функции:
     пycтой( L): возвращает истину, если L — пустой список
     голoвa( L): возвращает первый элемент списка L
     хвост( L): возвращает остальную часть списка L
     конкат( L1, L2): создает конкатенацию списков — присоединяет
      список L2 к концу списка L1
     сопоставление( T1, T2, Сопоставились, Конкрет): пытается
      сопоставить термы Т1 и T2; если они сопоставимы, то
      Сопоставились — истина, а Конкрет представляет
      собой конкретизацию переменных
     подставить( Конкрет, Цели): производит подстановку переменных
      в Цели согласно Конкрет

    begin
     if пустой( СписокЦелей) then Успех : = истина
     else
      begin
       Цель : = голова( СписокЦелей);
       ДругиеЦели : = хвост( СписокЦелей);
       Достигнута : = ложь;
       while not Достигнута and
        "в программе есть еще предложения" do
        begin
         Пусть следующее предложение в Прогр есть
          H :- B1, …, Вn.
         Создать вариант этого предложения
          Н' :- В1', …, Вn'.
         сопоставление( Цель, Н',
          Сопоставились, Конкрет)
         if Сопоставились then
          begin
           НовыеЦели :=
            конкат( [В1', …, Вn' ], Другие Цели);
           НовыеЦели : =
            подставить( Конкрет, НовыеЦели);
           вычислить( Прогр, НовыеЦели, Достигнуты)
          end
        end;
        Успех : = Достигнуты
      end
    end;
    Рис. 2.11.  Вычисление целевых утверждений Пролога.

    Всякий раз, как рекурсивный вызов процедуры вычислить приводят к неуспеху, процесс вычислений возвращается к ПРОСМОТРУ и продолжается с того предложения  С,  которое использовалось последним. Поскольку применение предложения  С  не привело к успешному завершению, пролог-система должна для продолжения вычислений попробовать альтернативное предложение. В действительности система аннулирует результаты части вычислений, приведших к неуспеху, и осуществляет возврат в ту точку (предложение  С),  в которой эта неуспешная ветвь начиналась. Когда процедура осуществляет возврат в некоторую точку, все конкретизации переменных, сделанные после этой точки, аннулируются. Такой порядок обеспечивает систематическую проверку пролог-системой всех возможных альтернативных путей вычисления до тех пор, пока не будет найден путь, ведущий к успеху, или же до тех пор, пока не окажется, что все пути приводят к неуспеху.
    Мы уже знаем, что даже после успешного завершения пользователь может заставить систему совершить возврат для поиска новых решений. В нашем описании процедуры вычислить эта деталь была опущена.
    Конечно, в настоящих реализациях Пролога в процедуру вычислить добавлены и еще некоторые усовершенствования. Одно из них — сокращение работы по просмотрам программы с целью повышения эффективности. Поэтому на практике пролог-система не просматривает все предложения программы, а вместо этого рассматривает только те из них, которые касаются текущего целевого утверждения.
Упражнение
    2.9. Рассмотрите программу на рис. 2.10 и по типу того, как это сделано на рис. 2.10, проследите процесс вычисления пролог-системой вопроса
    ?- большой( X), темный( X).
    Сравните свое описание шагов вычисления с описанием на рис. 2.10, где вычислялся, по существу, тот же вопрос, но с другой последовательностью целей:
    ?- темный( X), большой( X).
    В каком из этих двух случаев системе приходится производить большую работу для нахождения ответа?

2.5. Пример: обезьяна и банан

    Задача об обезьяне и банане часто используется в качестве простого примера задачи из области искусственного интеллекта. Наша пролог-программа, способная ее решить, показывает, как механизмы сопоставления и автоматических возвратов могут применяться для подобных целей. Мы сначала составим программу, не принимая во внимание процедурную семантику, а затем детально изучим ее процедурное поведение. Программа будет компактной и наглядной.
    Рассмотрим следующий вариант данной задачи. Возле двери комнаты стоит обезьяна. В середине этой комнаты к потолку подвешен банан. Обезьяна голодна и хочет съесть банан, однако она не может дотянуться до него, находясь на полу. Около окна этой же комнаты на полу лежит ящик, которым обезьяна может воспользоваться. Обезьяна может предпринимать следующие действия: ходить по полу, залезать на ящик, двигать ящик (если она уже находится около него) и схватить банан, если она стоит на ящике прямо под бананом. Может ли обезьяна добраться до банана?
    Одна из важных проблем при программировании состоит в выборе (адекватного) представления решаемой задачи в терминах понятий используемого языка программирования. В нашем случае мы можем считать, что "обезьяний мир" всегда находится в некотором состоянии, и оно может изменяться со временем. Текущее состояние определяется взаиморасположением объектов. Например, исходное состояние мира определяется так:
    (1) Обезьяна у двери.
    (2) Обезьяна на полу.
    (3) Ящик у окна.
    (4) Обезьяна не имеет банана.
    Удобно объединить все эти четыре информационных фрагмента в один структурный объект. Давайте в качестве такого объединяющего функтора выберем слово "состояние". На рис. 2.12 в виде структурного объекта изображено исходное состояние.
    Нашу задачу можно рассматривать как игру для одного игрока. Давайте, формализуем правила этой игры. Первое, целью игры является ситуация, в которой обезьяна имеет банан, т.е. любое состояние, у которого в качестве четвертой компоненты стоит "имеет":
    состояние( _, _, _, имеет)
    Второе, каковы разрешенные ходы, переводящие мир из одного состояния в другое? Существуют четыре типа ходов:
    (1) схватить банан,
    (2) залезть на ящик,
    (3) подвинуть ящик,
    (4) перейти в другое место.
    Рис. 2.12. Исходное состояние обезьяньего мира, представленное в виде структурного объекта. Его четыре компоненты суть горизонтальная позиция обезьяны, вертикальная позиция обезьяны, позиция ящика, наличие или отсутствие у обезьяны банана.
    Не всякий ход допустим при всех возможных состояниях мира. Например, ход "схватить" допустим, только если обезьяна стоит на ящике прямо под бананом (т.е. в середине комнаты) и еще не имеет банана. Эти правила можно формализовать в Прологе в виде трехместного отношения ход:
    ход( Состояние1, М, Состояние2)
    Три аргумента этого отношения определяют ход, следующим образом:
    Состояние1 --------> Состояние2
                    М
    Состояние1 это состояние до хода, М — выполняемый ход, и Состояние2 — состояние после хода.
    Ход "схватить", вместе с необходимыми ограничениями на состояние перед этим ходом, можно выразить такой формулой:
    ход( состояние( середина, наящике, середина, неимеет),
               % Перед ходом
     схватить, % Ход
     состояние( середина, наящике, середина, имеет) ).
               % После хода
    В этом факте говорится о том, что после хода у обезьяны уже есть банан и что она осталась на ящике в середине комнаты.
    Таким же способом можно выразить и тот факт, что обезьяна, находясь на полу, может перейти из любой горизонтальной позиции P1 в любую позицию Р2. Обезьяна может это сделать независимо от позиции ящика, а также независимо от того, есть у нее банан или нет. Все это можно записать в виде следующего прологовского факта:
    ход( состояние( P1, наполу, В, H),
     перейти( P1, Р2), % Перейти из P1 в Р2
     состояние( Р2, наполу, В, H) ).
    Заметим, что в этом предложении делается много утверждений и, в частности:
    • выполненный ход состоял в том, чтобы "перейти из некоторой позиции P1 в некоторую позицию Р2";
    • обезьяна находится на полу, как до, так и после хода;
    • ящик находится в некоторой точке В, которая осталась неизменной после хода;
    • состояние "имеет банан" остается неизменным после хода.
    Рис. 2.13. Рекурсивная формулировка отношения можетзавладеть.
    Данное предложение на самом деле определяет все множество возможных ходов указанного типа, так как оно применимо к любой ситуации, сопоставимой с состоянием, имеющим место перед входом. Поэтому такое предложение иногда называют схемой хода. Благодаря понятию переменной, имеющемуся в Прологе, такие схемы легко на нем запрограммировать.
    Два других типа ходов: "подвинуть" и "залезть" — легко определить аналогичным способом.
    Главный вопрос, на который должна ответить наша программа, это вопрос: "Может ли обезьяна, находясь в некотором начальном состоянии S, завладеть бананом?" Его можно сформулировать в виде предиката
    можетзавладеть( S)
    где аргумент S — состояние обезьяньего мира. Программа для можетзавладеть может основываться на двух наблюдениях:
    (1) Для любого состояния S, в которой обезьяна уже имеет банан, предикат можетзавладеть должен, конечно, быть истинным; в этом случае никаких ходов не требуется. Вот соответствующий прологовский факт:
    можетзавладеть( состояние( _, _, _, имеет) ).
    (2) В остальных случаях требуется один или более ходов. Обезьяна может завладеть бананом в любом состоянии S1, если для него существует ход из состояния P1 в некоторое состояние S2, такое, что, попав в него, обезьяна уже сможет завладеть бананом (за нуль или более ходов). Этот принцип показан на рис. 2.13. Прологовская формула, соответствующая этому правилу, такова:
    можетзавладеть( S1) :-
     ход( S1, М, S2),
     можетзавладеть( S2).
    Теперь мы полностью завершили нашу программу, показанную на рис. 2.14.
    Формулировка можетзавладеть рекурсивна и совершенно аналогична формулировке отношения предок из гл. 1 (ср. рис. 2.13 и 1.7). Этот принцип используется в Прологе повсеместно.
    Мы создали нашу программу "непроцедурным" способом. Давайте теперь изучим ее процедурное поведение, рассмотрев следующий вопрос к программе:
    ?- можетзавладеть( состояние( удвери, наполу, уокна, неимеет) ).
    Ответом пролог-системы будет "да". Процесс, выполняемый ею при этом, обрабатывает, в соответствии с процедурной семантикой Пролога, последовательность списков целей. Для этого требуется некоторый перебор ходов, для отыскания верного из нескольких альтернативных. В некоторых точках при таком переборе будет сделан неверный ход, ведущий в тупиковую ветвь процесса вычислений. На этом этапе автоматический возврат позволит исправить положение. На рис. 2.15 изображен процесс перебора.
    % Разрешенные ходы
    ход( состояние( середина, на ящике, середина, неимеет),
     схватить,           % Схватить банан
     состояние( середина, наящике, середина, имеет)).

    ход( состояние( P, наполу, P, H),
     залезть,            % Залезть на ящик
     состояние( P, наящике, P, H) ).

    ход( состояние( P1, наполу, P1, H),
     подвинуть( P1, Р2), % Подвинуть ящик с P1 на Р2
     состояние( Р2, наполу, Р2, H) ).

    ход( состояние( P1, наполу, В, H),
     перейти( P1, Р2),   % Перейти с P1 на Р2
     состояние( Р2, наполу, В, H) ).

    % можетзавладеть(Состояние): обезьяна может завладеть
    % бананом, находясь в состоянии Состояние
    можетзавладеть( состояние( -, -, -, имеет) ).

    % может 1:  обезьяна уже его имеет
    можетзавладеть( Состояние1) :-
     % может 2:  Сделать что-нибудь, чтобы завладеть им
     ход( Состояние1, Ход, Состояние2),
     % сделать что-нибудь
     можетзавладеть( Состояние2).
     % теперь может завладеть
    Рис. 2.14.  Программа для задачи об обезьяне и банане.

    Для ответа на наш вопрос системе пришлось сделать лишь один возврат. Верная последовательность ходов была найдена почти сразу. Причина такой эффективности программы кроется в том порядке, в котором в ней расположены предложения, касающиеся отношения ход. В нашем случае этот порядок (к счастью) оказался весьма подходящим. Однако возможен и менее удачный порядок. По правилам игры обезьяна могла бы с легкостью ходить туда-сюда, даже не касаясь ящика, или бесцельно двигать ящик в разные стороны. Как будет видно из следующего раздела, более тщательное исследование обнаруживает, что порядок предложений в нашей программе является, на самом деле, критическим моментом для успешного решения задачи.
    Рис. 2.15.  Поиск банана обезьяной. Перебор начинается в верхнем узле и распространяется вниз, как показано. Альтернативные ходы перебираются слева направо. Возврат произошел только один раз.

2.6. Порядок предложений и целей 

2.6.1. Опасность бесконечного цикла

    Рассмотрим следующее предложение:
    p :- p.
    В нем говорится: "p истинно, если p истинно". С точки зрения декларативного смысла это совершенно корректно, однако в процедурном смысле оно бесполезно. Более того, для пролог-системы такое предложение может породить серьезную проблему. Рассмотрим вопрос:
    ?-  p.
    При использовании вышеприведенного предложения цель p будет заменена на ту же самую цель p; она в свою очередь будет заменена снова на p и т.д. В этом случае система войдет в бесконечный цикл, не замечая, что никакого продвижения в вычислениях не происходит.
    Данный пример демонстрирует простой способ ввести пролог-систему в бесконечный цикл. Однако подобное зацикливание могло встретиться и в некоторых наших предыдущих программах, если бы мы изменили порядок предложений, или же порядок целей в них. Будет полезно рассмотреть несколько примеров.
    В программе об обезьяне и банане предложения, касающиеся отношения ход, были упорядочены следующим образом: схватить, залезть, подвинуть, перейти (возможно, для полноты следует добавить еще "слезть"). В этих предложениях говорится, что можно схватить, можно залезть и т.д. В соответствии с процедурной семантикой Пролога порядок предложений указывает на то, что обезьяна предпочитает схватывание залезанию, залезание — передвиганию и т.д. Такой порядок предпочтений на самом деле помогает обезьяне решить задачу. Но что могло случиться. если бы этот порядок был другим? Предположим, что предложение с "перейти" оказалось бы первым. Процесс вычисления нашей исходной цели из предыдущего раздела
    ?- можетзавладеть( состояние( удвери, наполу, уокна, неимеет) ).
    протекал бы на этот раз так. Первые четыре списка целей (с соответствующим образом переименованными переменными) остались бы такими же, как и раньше:
    (1) можетзавладеть( состояние( удвери, наполу, уокна, неимеет) ).
    Применение второго предложения из можетзавладеть ("может2") породило бы
    (2) ход( состояние( удвери, наполу, уокна, неимеет), М', S2'), 
      можетзавладеть( S2')
    С помощью хода перейти( уокна, Р2') получилось бы
    (3) можетзавладеть( состояние( Р2', наполу, уокна, неимеет) )
    Повторное использование предложения "может2" превратило бы список целей в
    (4) ход( состояние(Р2', наполу, уокна, неимеет), М'', S2''),
      можетзавладеть( S2'')
    С этого момента начались бы отличия. Первым предложением, голова которого сопоставима с первой целью из этого списка, было бы теперь "перейти" (а не "залезть", как раньше). Конкретизация стала бы следующей:
    S2'' = состояние( Р2'', наполу, уокна, неимеет).
    Поэтому список целей стал бы таким:
    (5) можетзавладеть( состояние( Р2'', наполу, уокна, неимеет) )
    Применение предложения "может2" дало бы
    (6) ход( cocтояниe( P2'', наполу, yoкнa, неимeeт), M''', S2'''),
                    можетзавладеть( S2''')
    Снова первый было бы попробовано "перейти" и получилось бы
    (7) можетзавладеть( состояние( Р2''', наполу, уокна, неимеет) )
    Сравним теперь цели (3), (5) и (7). Они похожи и отличаются лишь одной переменной, которая по очереди имела имена Р', Р''  и P'''.  Как мы знаем, успешность цели не зависит от конкретных имен переменных в ней. Это означает, что, начиная со списка целей (3), процесс вычислений никуда не продвинулся. Фактически мы замечаем, что по очереди многократно используются одни и те же два предложения: "может2" и "перейти". Обезьяна перемещается, даже не пытаясь воспользоваться ящиком. Поскольку продвижения нет, такая ситуация продолжалась бы (теоретически) бесконечно: пролог-система не сумела бы осознать, что работать в этой направлении нет смысла.
    Данный пример показывает, как пролог-система может пытаться решить задачу таким способом, при котором решение никогда не будет достигнуто, хотя оно существует. Такая ситуация не является редкостью при программировании на Прологе. Да и при программировании на других языках бесконечные циклы не такая уж редкость. Что действительно необычно при сравнении Пролога с другими языками, так это то, что декларативная семантика пролог-программы может быть правильной, но в то же самое время ее процедурная семантика может быть ошибочной в том смысле, что с помощью такой программы нельзя получить правильный ответ на вопрос. В таких случаях система не способна достичь цели потому, что она пытается добраться до ответа, но выбирает при этом неверный путь.
    Теперь уместно спросить: "Не можем ли мы внести какое-либо более существенное изменение в нашу программу, так чтобы полностью исключить опасность зацикливания? Или же нам всегда придется рассчитывать на удачный порядок предложений и целей?" Как оказывается, программы, в особенности большие, были бы чересчур ненадежными, если бы можно было рассчитывать лишь на некоторый удачный порядок. Существует несколько других методов, позволяющих избежать зацикливания и являющихся более общими и надежными, чем сам по себе метод упорядочивания. Такие методы будут систематически использоваться дальше в книге, в особенности в тех главах, в которых пойдет речь о нахождении путей (в графах), о решения интеллектуальных задач и о переборе.

2.6.2. Варианты программы, полученые путем переупорядочивания предложений и целей

    Уже в примерах программ гл. 1 существовала скрытая опасность зацикливания. Определение отношения предок в этой главе было таким:
    предок( X, Z) :-
     родитель( X, Z).

    предок( X, Z) :-
     родитель( X, Y),
     предок( Y, Z).
    Проанализируем некоторые варианты этой программы. Ясно, что все варианты будут иметь одинаковую декларативную семантику, но разные процедурные семантики.
    В соответствии с декларативной семантикой Пролога мы можем, не меняя декларативного смысла, изменить
    (1) порядок предложений в программе и
    (2) порядок целей в телах предложений.
    Процедура предок состоит из двух предложений, и одно из них содержит в своем теле две цели. Возможны, поэтому, четыре варианта данной программы, все с одинаковым декларативным смыслом. Эти четыре варианта можно получить, если
    (1) поменять местами оба предложения и
    (2) поменять местами цели в каждом из этих двух последовательностей предложений.
    Соответствующие процедуры, названные пред1, пред2, пред3 и пред4, показаны на рис. 2.16.
    Есть существенная разница в поведении этих четырех декларативно эквивалентных процедур. Чтобы это продемонстрировать, будем считать, отношение родитель определенным так, как показано на рис. 1.1 гл. 1. и посмотрим, что произойдет, если мы спросим, является ли Том предком Пат, используя все четыре варианта отношения предок:
    ?- пред1( том, пат).
    да

    ?- пред2( том, пат).
    да

    ?- пред3( том, пат).
    да

    ?- пред4( том, пат).

    % Четыре версии программы предок

    % Исходная версия
    пред1( X, Z) :-
     родитель( X, Z).
    пред1( X, Z) :-
     родитель( X, Y),
     пред1( Y, Z).

    % Вариант  а:  изменение порядка предложений в исходной версии
    пред2( X, Z) :-
     родитель( X, Y),
     пред2( Y, Z).
    пред2( X, Z) :-
     родитель( X, Z).

    % Вариант  b:  изменение порядка целей во втором предложении
    % исходной версии
    пред3( X, Z) :-
     родитель( X, Z).
    пред3( X, Z) :-
     пред3( X, Y),
     родитель( Y, Z).

    % Вариант  с:  изменение порядка предложений и целей в исходной
    % версии
    пред4( X, Z) :-
     пред4( X, Y),
     родитель( Y, Z).
    пред4( X, Z):-
     родитель( X, Z).
    Рис. 2.16.  Четыре версии программы предок.

    В последнем случае пролог-система не сможет найти ответа. И выведет на терминал сообщение: "Не хватает памяти".
    На рис. 1.11 гл. 1 были показаны все шаги вычислений по пред1 (в главе 1 она называлась предок), предпринятые для ответа на этот вопрос. На рис 2.17 показаны соответствующие вычисления по пред2, пред3 и пред4. На рис. 2.17 (с) ясно видно, что работа пред4 — бесперспективна, а рис. 2.17(а) показывает, что пред2 довольно неэффективна по сравнению с пред1: пред2 производит значительно больший перебор и делает больше возвратов по фамильному дереву.
    Такое сравнение должно напомнить нам об общем практическом правиле при решении задач: обычно бывает полезным прежде всего попробовать самое простое соображение. В нашем случае все версии отношения предок основаны на двух соображениях:
    • более простое — нужно проверить, не удовлетворяют ли два аргумента отношения предок отношению родитель;
    • более сложное — найти кого-либо "между" этими двумя людьми (кого-либо, кто связан с ними отношениями родитель и предок).
    Из всех четырех вариантов отношения предок, пред1 использует наиболее простое соображение в первую очередь. В противоположность этому пред4 всегда сначала пробует использовать самое сложное. Пред2 и пред3 находятся между этими двумя крайностями. Даже без детального изучения процессов вычислений ясно, что пред1 следует предпочесть просто на основании правила "самое простое пробуй в первую очередь".
    Наши четыре варианта процедуры предок можно далее сравнить, рассмотрев вопрос: "На какие типы вопросов может отвечать тот или иной конкретный вариант и на какие не может?" Оказывается, пред1 и пред2 оба способны найти ответ на любой вид вопроса относительно предков; пред4 никогда не находит ответа, а пред3 иногда может найти, иногда нет. Вот пример вопроса, на который пред4 ответить не может:
    ?- пред3( лиз, джим).
    Такой вопрос тоже вводит систему в бесконечную рекурсию. Следовательно и пред3 нельзя признать верным с точки зрения процедурного смысла.
    Рис. 2.17. Поведение трех вариантов формулировки отношения предок при ответе на вопрос, является ли Том предком Пат?

2.6.3. Сочетание декларативного и процедурного подходов

    В предыдущем разделе было показано, что порядок целей и предложений имеет существенное значение. Более того, существуют программы, которые верны в декларативном смысле, но на практике не работают. Такое противоречие между декларативным и процедурным смыслами может вызвать недовольство. Кто-нибудь спросит: "А почему вообще не забыть о декларативном смысле?" Такое пожелание становится особенно сильным, когда рассматриваются предложения типа:
    предок( X, Z) :- предок( X, Z).
    Это предложение верно в декларативном смысле, но совершенно бесполезно в качестве рабочей программы.
    Причина, по которой не следует забывать о декларативном смысле, кроется в том, что прогресс, достигнутый в технологии программирования, получен на пути продвижения от учета всех процедурных деталей к концентрации внимания на декларативных аспектах, которые обычно легче формулировать и понимать. Сама система, а не программист, должна нести бремя заботы о процедурных деталях. В этом Пролог оказывает некоторую помощь, хотя, как мы видели в данном разделе, помощь лишь частичную: иногда он правильно прорабатывает эти процедурные детали, иногда — нет. Многие придерживаются мнения, что лучше иметь хоть какую-то декларативную семантику, чем никакой (отсутствие декларативной семантики характерно для многих других языков программирования). Практическим следствием такого взгляда является тот факт, что часто довольно легко получить работающую программу, имея программу декларативно корректную. Поэтому практичным следует признать такой подход: сосредоточиться на декларативных аспектах задачи, затем пропустить на машине полученную программу и, если она окажется процедурно неправильной, попытаться изменить порядок следования предложений и целей. 

2.7. Замечания о взаимосвязи между Прологом и логикой

    Пролог восходит к математической логике, поэтому его синтаксис и семантику можно наиболее точно описать при помощи логики. Так часто и поступают при обучении этому языку. Однако такой подход к ознакомлению с Прологом предполагает знание читателем определенных понятий математической логики. С другой стороны, знание этих понятий явно необязательно для того, чтобы понять и использовать Пролог в качестве инструмента для практического программирования, а цель данной книги — научить именно этому. Для тех же читателей, которые особенно заинтересуются взаимосвязями между Прологом и логикой, мы сейчас перечислим основные из них, а также приведем некоторые подходящие источники.
    Синтаксис Пролога — это синтаксис предложений логики предикатов первого порядка, записанных в так называемой форме предложений (форме, при которой кванторы не выписываются явно), а точнее, в виде частного случая таких предложений — в виде формул Хорна (предложений, имеющих самое большее один положительный литерал). Клоксин и Меллиш (1981 г.) приводят пролог-программу, которая преобразует предложения исчисления предикатов первого порядка в форму предложений. Процедурный смысл Пролога основывается на принципе резолюций, применяющемся для автоматического доказательства теорем, который был предложен Робинсоном в его классической статье (1965 г.). В Прологе используется особая стратегия доказательства теоремы методом резолюций, носящая название SLD. Введение в исчисление предикатов первого порядка и доказательство теорем, основанное на методе резолюций, можно найти у Нильсона (1981 г.). Математические вопросы, касающиеся свойств процедурной семантики Пролога в их связи с логикой, проанализированы Ллойдом (1984 г.).
    Сопоставление в Прологе соответствует некоторому действию в логике, называемому унификацией. Мы, однако, избегаем слова "унификация", так как по соображениям эффективности внести в большинстве пролог-систем сопоставление реализовано таким образом, что оно не полностью соответствует унификации (см. упражнение 2.10). Тем не менее, с практической точки зрения, такая приближенная унификация вполне допустима.
Упражнение
    2.10. Что будет, если пролог-системе задать такой вопрос:
    ?- X = f( X).
    Успешным или неуспешным будет здесь сопоставление? По определению унификации в логике, сопоставление должно быть неуспешным, а что будет в соответствии с нашим определением сопоставления из раздела 2.2? Попробуйте объяснить, почему многие реализации Пролога отвечают на вышеприведенный вопрос так:
    X = f(f(f(f(f(f(f(f(f(f(f(f(f(f(f( ...

Резюме

    К настоящему моменту мы изучили нечто вроде базового Пролога, который называют еще "чистый Пролог". Он "чист", потому что довольно точно соответствует формальной логике. Расширения, преследующие цель приспособить язык к некоторым практическим нуждам, будут изучены дальше (гл. 3, 5, 6. 7). Важными моментами данной главы являются следующие:
    • Простые объекты в Прологе — это атомы, переменные и числа. Структурные объекты, или структуры, используются для представления объектов, которые состоят из нескольких компонент.
    • Структуры строятся посредством функторов. Каждый функтор определяется своими именем и арностью.
    • Тип объекта распознается исключительно по его синтаксической форме.
    • Область известности (лексический диапазон) переменных — одно предложение. Поэтому одно и то же имя в двух предложениях обозначает две разные переменные.
    • Структуры могут быть естественным образом изображены в виде деревьев. Пролог можно рассматривать как язык обработки деревьев.
    • Операция сопоставление берет два терма и пытается сделать их идентичными, подбирая соответствующую конкретизацию переменных в обоих термах.
    • Сопоставление, если оно завершается успешно, в качестве результата выдает наиболее общую конкретизацию переменных.
    • Декларативная семантика Пролога определяет, является ли целевое утверждение истинным, исходя из данной программы, и если оно истинно, то для какой конкретизации переменных.
    • Запятая между целями означает их конъюнкцию. Точка с запятой между целями означает их дизъюнкцию.
    • Процедурная семантика Пролога — это процедура достижения списка целей в контексте данной программы. Процедура выдает истинность или ложность списка целей и соответствующую конкретизацию переменных. Процедура осуществляет автоматический возврат для перебора различных вариантов.
    • Декларативный смысл программ на "чистом Прологе" не зависит от порядка предложений и от порядка целей в предложениях.
    • Процедурный смысл существенно зависит от порядка целей и предложений. Поэтому порядок может повлиять на эффективность программы; неудачный порядок может даже привести к бесконечным рекурсивным вызовам.
    • Имея декларативно правильную программу, можно улучшить ее эффективность путем изменения порядка предложений и целей при сохранении ее декларативной правильности. Переупорядочивание — один из методов предотвращения зацикливания.
    • Кроме переупорядочивания существуют и другие, более общие методы предотвращения зацикливания, способствующие получению процедурно правильных программ.
    • В данной главе обсуждались следующие понятия:
      объекты данных:
         атом, число, переменная, структура
      терм
      функтор, арность функтора
      главный функтор терма
      сопоставление термов
      наиболее общая конкретизация
      декларативная семантика
      конкретизация предложений,
        вариант предложения
      процедурная семантика
      вычисление целевого утверждения
Литература
    Clocksin W. F. and Mellish С. S. (1981). Programming in Prolog. Springer-Verlag. [Имеется перевод: Клоксин У., Меллиш К. Программирование на языке Пролог. — М.: Мир, 1987.]
    Lloyd J. W. (1984). Foundations of Logic Programming. Springer-Verlag.
    Nilsson N. J. (1981). Principies of Artificial Intelligence. Tioga; Springer-Verlag.
    Robinson A. J. (1965). A machine-oriented logic based on the resolution principle. JACM 12: 23-41. [Имеется перевод: Робинсон Дж. Машинно-ориентированная логика, основанная на принципе резолюции. — В кн. Кибернетический сборник, вып. 7, 1970, с. 194–218.] 

Глава 3
Списки, операторы, арифметика

    В этой главе мы будем изучать специальные способы представления списков. Список - один из самых простых и полезных типов структур. Мы рассмотрим также некоторые программы для выполнения типовых операций над списками и, кроме того, покажем, как можно просто записывать арифметические выражения и операторы, что во многих случаях позволит улучшить "читабельность" программ. Базовый Пролог (глава 2), расширенный этими тремя добавлениями, станет удобной основой для составления интересных программ.

3.1. Представление списков

    Список — это простая структура данных, широко используемая в нечисловом программировании. Список — это последовательность, составленная из произвольного числа элементов, например энн, теннис, том, лыжи. На Прологе это записывается так:
    [ энн, теннис, том, лыжи ]
    Однако таково лишь внешнее представление списков. Как мы уже видели в гл. 2, все структурные объекты Пролога — это деревья. Списки не являются исключением из этого правила.
    Каким образом можно представить список в виде стандартного прологовского объекта? Мы должны рассмотреть два случая: пустой список и не пустой список. В первом случае список записывается как атом  [].  Во втором случае список следует рассматривать как структуру состоящую из двух частей:
    (1) первый элемент, называемый головой списка;
    (2) остальная часть списка, называемая хвостом.
    Например, для списка
    [ энн, теннис, том, лыжи ]
    энн — это голова, а хвостом является список
    [ теннис, том, лыжи ]
    В общем случае, головой может быть что угодно (любой прологовский объект, например, дерево или переменная); хвост же должен быть списком. Голова соединяется с хвостом при помощи специального функтора. Выбор этого функтора зависит от конкретной реализации Пролога; мы будем считать, что это точка:
    .( Голова, Хвост)
    Поскольку Хвост — это список, он либо пуст, либо имеет свои собственную голову и хвост. Таким образом, выбранного способа представления списков достаточно для представления списков любой длины. Наш список представляется следующим образом:
    .( энн, .( теннис, .( том, .( лыжи, [] ) ) ) )
    На рис. 3.1 изображена соответствующая древовидная структура. Заметим, что показанный выше пример содержит пустой список []. Дело в том, что самый последний хвост является одноэлементным списком:
    [ лыжи ]
    Хвост этого списка пуст
    [ лыжи ] = .( лыжи, [] )
    Рассмотренный пример показывает, как общий принцип структуризации объектов данных можно применить к спискам любой длины. Из нашего примера также видно, что такой примитивный способ представления в случае большой глубины вложенности подэлементов в хвостовой части списка может привести к довольно запутанным выражениям. Вот почему в Прологе предусматривается более лаконичный способ изображения списков, при котором они записываются как последовательности элементов, заключенные в квадратные скобки. Программист может использовать оба способа, но представление с квадратными скобками, конечно, в большинстве случаев пользуется предпочтением. Мы, однако, всегда будем помнить, что это всего лишь косметическое улучшение и что во внутреннем представлении наши списки выглядят как деревья. При выводе же они автоматически преобразуются в более лаконичную форму представления. Так, например, возможен следующий диалог:
    ?- Список1 = [а, b, с],
     Список2 = (a, .(b, .(c,[]) ) ).

    Список1 = [а, b, с]
    Список2 = [а, b, с]

    ?- Увлечения1 = .( теннис, .(музыка, [] ) ),
     Увлечения2 = [лыжи, еда],
     L = [энн, Увлечения1, том, Увлечения2].

    Увлечения1 = [теннис, музыка]
    Увлечения2 = [лыжи, еда]
    L = [энн, [теннис, музыка], том, [лыжи, еда]]
    Рис. 3.1. Представление списка [энн, теннис, том, лыжи] в виде дерева.
    Приведенный пример также напоминает вам о том, что элементами списка могут быть любые объекты, в частности тоже списки.
    На практике часто бывает удобным трактовать хвост списка как самостоятельный объект. Например, пусть
    L = [а, b, с]
    Тогда можно написать:
    Хвост = [b, с] и L = .(а, Хвост)
    Для того, чтобы выразить это при помощи квадратных скобок, в Прологе предусмотрено еще одно расширение нотации для представления списка, а именно вертикальная черта, отделяющая голову от хвоста:
    L = [а | Хвост]
    На самом деле вертикальная черта имеет более общий смысл: мы можем перечислить любое количество элементов списка, затем поставить символ "|", а после этого — список остальных элементов. Так, только что рассмотренный пример можно представить следующими различными способами:
    [а, b, с] = [а | [b, с]] = [a, b | [c]] = [a, b, c | [ ]]
    Подытожим:
    • Список — это структура данных, которая либо пуста, либо состоит из двух частей: головы и хвоста. Хвост в свою очередь сам является списком.
    • Список рассматривается в Прологе как специальный частный случай двоичного дерева. Для повышения наглядности программ в Прологе предусматриваются специальные средства для списковой нотации, позволяющие представлять списки в виде
    [ Элемент1, Элемент2, ... ]
    или
    [ Голова | Хвост ]
    или
    [ Элемент1, Элемент2, ... | Остальные]

3.2. Некоторые операции над списками

    Списки можно применять для представления множеств, хотя и существует некоторое различие между этими понятиями: порядок элементов множества не существенен, в то время как для списка этот порядок имеет значение; кроме того, один н тот же объект может встретиться в списке несколько раз. Однако наиболее часто используемые операции над списками аналогичны операциям над множествами. Среди них
    • проверка, является ли некоторый объект элементом списка, что соответствует проверке объекта на принадлежность множеству;
    • конкатенация (сцепление) двух списков, что соответствует объединению множеств;
    • добавление нового объекта в список или удаление некоторого объекта из него.
    В оставшейся части раздела мы покажем программы, реализующие эти и некоторые другие операции над списками.

3.2.1. Принадлежность к списку

    Мы представим отношение принадлежности как
    принадлежит( X, L)
    где X — объект, а L — список. Цель принадлежит( X, L) истинна, если элемент X встречается в L. Например, верно что
    принадлежит( b, [а, b, с] )
    и, наоборот, не верно, что
    принадлежит b, [а, [b, с] ] )
    но
    принадлежит [b, с], [а, [b, с]] )
    истинно. Составление программы для отношения принадлежности может быть основано на следующих соображениях:
    (1) X есть голова L, либо
    (2) X принадлежит хвосту L.
    Это можно записать в виде двух предложений, первое из которых есть простой факт, а второе — правило:
    принадлежит( X, [X | Хвост ] ).

    принадлежит ( X, [Голова | Хвост ] ) :-
     принадлежит( X, Хвост).

3.2.2. Сцепление (конкатенация)

    Для сцепления списков мы определим отношение
    конк( L1, L2, L3)
    Здесь L1 и L2 — два списка, a L3 — список, получаемый при их сцеплении. Например,
    конк( [а, b], [c, d], [a, b, c, d] )
    истинно, а
    конк( [а, b], [c, d], [a, b, a, c, d] )
    ложно. Определение отношения конк, как и раньше, содержит два случая в зависимости от вида первого аргумента L1:
    (1) Если первый аргумент пуст, тогда второй и третий аргументы представляют собой один и тот же список (назовем его L), что выражается в виде следующего прологовского факта:
    конк( [], L, L ).
    (2) Если первый аргумент отношения конк не пуст, то он имеет голову и хвост в выглядит так:
    [X | L1]
    На рис. 3.2 показано, как производится сцепление списка [X | L1] с произвольным списком L2. Результат сцепления — список [X | L3], где L3 получен после сцепления списков L1 и L2. На прологе это можно записать следующим образом:
    конк( [X | L1, L2, [X | L3]):-
     конк( L1, L2, L3).
    Рис. 3.2. Конкатенация списков.
    Составленную программу можно теперь использовать для сцепления заданных списков, например:
    ?- конк( [a, b, с], [1, 2, 3], L ).
    L = [a, b, c, 1, 2, 3]

    ?- конк( [а, [b, с], d], [а, [], b], L ).
    L = [a, [b, c], d, а, [], b]
    Хотя программа для конк выглядит довольно просто, она обладает большой гибкостью и ее можно использовать многими другими способами. Например, ее можно применять как бы в обратном направлении для разбиения заданного списка на две части:
    ?- конк( L1, L2, [а, b, с] ).

    L1 = []
    L2 = [а, b, c];

    L1 = [а]
    L2 = [b, с];

    L1 = [а, b]
    L2 = [c];

    L1 = [а, b, с]
    L2 = [];
    no            (нет)
    Список [а, b, с] разбивается на два списка четырьмя способами, и все они были обнаружены нашей программой при помощи механизма автоматического перебора.
    Нашу программу можно также применить для поиска в списке комбинации элементов, отвечающей некоторому условию, задаваемому в виде шаблона или образца. Например, можно найти все месяцы, предшествующие данному, и все месяцы, следующие за ним, сформулировав такую цель:
    ?- конк( До, [май | После ],
     [янв, фев, март, апр, май, июнь,
      июль, авг, сент, окт, ноябрь, дек]).

    До = [янв, фев, март, апр]
    После = [июнь, июль, авг, сент, окт, ноябрь, дек].
    Далее мы сможем найти месяц, непосредственно предшествующий маю, и месяц, непосредственно следующий за ним, задав вопрос:
    ?- конк( _, [Месяц1, май, Месяц2 | _ ],
     [янв, февр, март, апр, май, июнь,
      июль, авг, сент, окт, ноябрь, дек]).

    Месяц1 = апр
    Месяц2 = июнь
    Более того, мы сможем, например, удалить из некоторого списка L1 все, что следует за тремя последовательными вхождениями элемента z в L1 вместе с этими тремя z. Например, это можно сделать так:
    ?- L1 = [a, b, z, z, c, z, z, z, d, e],
     конк( L2, [z, z, z | _ ], L1).

    L1 = [a, b, z, z, c, z, z, z, d, e]
    L2 = [a, b, z, z, c]
    Мы уже запрограммировали отношение принадлежности. Однако, используя конк, можно было бы определить это отношение следующим эквивалентным способом:
    принадлежит1( X, L) :-
     конк( L1, [X | L2], L).
    Рис. 3.3. Процедура принадлежит1 находит элемент в заданном списке, производя по нему последовательный поиск.
    В этом предложении сказано: "X принадлежит L, если список L можно разбить на два списка таким образом, чтобы элемент X являлся головой второго из них. Разумеется, принадлежит1 определяет то же самое отношение, что и принадлежит. Мы использовали другое имя только для того, чтобы различать таким образом две разные реализации этого отношения, Заметим, что, используя анонимную переменную, можно записать вышеприведенное предложение так:
    принадлежит1( X, L) :-
     конк( _, [X | _ ], L).
    Интересно сравнить между собой эти две реализации отношения принадлежности. Принадлежит имеет довольно очевидный процедурный смысл:
     Для проверки, является ли X элементом списка L, нужно
     (1) сначала проверить, не совпадает ли голова списка L с X, а затем
     (2) проверить, не принадлежит ли X хвосту списка L.
    С другой стороны, принадлежит1, наоборот, имеет очевидный декларативный смысл, но его процедурный смысл не столь очевиден.
    Интересным упражнением было бы следующее: выяснить, как в действительности принадлежит1 что-либо вычисляет. Некоторое представление об этом мы получим, рассмотрев запись всех шагов вычисления ответа на вопрос:
    ?-  принадлежит1( b, [а, b, с] ).
    На рис. 3.3 приведена эта запись. Из нее можно заключить, что принадлежит1 ведет себя точно так же, как и принадлежит. Он просматривает список элемент за элементом до тех пор, пока не найдет нужный или пока не кончится список.
Упражнения
    3.1. (а) Используя отношение конк, напишите цель, соответствующую вычеркиванию трех последних элементов списка L, результат — новый список L1. Указание: L — конкатенация L1 и трехэлементного списка.
    (b) Напишите последовательность целей для порождения списка L2, получающегося из списка L вычеркиванием его трех первых и трех последних элементов.
    3.2. Определите отношение
    последний( Элемент, Список)
    так, чтобы Элемент являлся последним элементом списка Список. Напишите два варианта определения: (а) с использованием отношения конк, (b) без использования этого отношения.

3.2.3. Добавление элемента

    Наиболее простой способ добавить элемент в список — это вставить его в самое начало так, чтобы он стал его новой головой. Если X — это новый элемент, а список, в который X добавляется — L, тогда результирующий список — это просто
    [X | L]
    Таким образом, для того, чтобы добавить новый элемент в начало списка, не надо использовать никакой процедуры. Тем не менее, если мы хотим определить такую процедуру в явном виде, то ее можно представить в форме такого факта:
    добавить( X, L, [X | L] ).

3.2.4. Удаление элемента

    Удаление элемента X из списка L можно запрограммировать в виде отношения
    удалить( X, L, L1)
    где L1 совпадает со списком L, у которого удален элемент X. Отношение удалить можно определить аналогично отношению принадлежности. Имеем снова два случая:
    (1) Если X является головой списка, тогда результатом удаления будет хвост этого списка.
    (2) Если X находится в хвосте списка, тогда его нужно удалить оттуда.
    удалить( X, [X | Хвост], Хвост).
    удалить( X, [Y | Хвост], [Y | Хвост1] ) :-
     удалить( X, Хвост, Хвост1).
    как и принадлежит, отношение удалить по природе своей недетерминировано. Если в списке встречается несколько вхождений элемента X, то удалить сможет исключить их все при помощи возвратов. Конечно, вычисление по каждой альтернативе будет удалять лишь одно вхождение X, оставляя остальные в неприкосновенности. Например:
    ?- удалить( а, [а, b, а, а], L].

    L = [b, а, а];
    L = [а, b, а];
    L = [а, b, а];
    no            (нет)
    При попытке исключить элемент, не содержащийся в списке, отношение удалить потерпит неудачу.
    Отношение удалить можно использовать в обратном направлении для того, чтобы добавлять элементы в список, вставляя их в произвольные места. Например, если мы хотим во все возможные места списка [1, 2, 3] вставить атом а, то мы можем это сделать, задав вопрос: "Каким должен быть список L, чтобы после удаления из него элемента а получился список [1, 2, 3]?"
    ?- удалить( а, L, [1, 2, 3] ).

    L = [а, 1, 2, 3];
    L = [1, а, 2, 3];
    L = [1, 2, а, 3];
    L = [1, 2, 3, а];
    nо               (нет)
    Вообще операция по внесению X в произвольное место некоторого списка Список, дающее в результате БольшийСписок, может быть определена предложением:
    внести( X, Список, БольшийСписок) :-
     удалить( X, БольшийСписок, Список).
    В принадлежит1 мы изящно реализовали отношение принадлежности через конк. Для проверки на принадлежность можно также использовать и удалить. Идея простая: некоторый X принадлежит списку Список, если X можно из него удалить:
    принадлежит2( X, Список) :-
     удалить( X, Список, _ ).

3.2.5. Подсписок

    Рассмотрим теперь отношение подсписок. Это отношение имеет два аргумента — список L и список S, такой, что S содержится в L в качестве подсписка. Так отношение
    подсписок( [c, d, e], [a, b, c, d, e, f] )
    имеет место, а отношение
    подсписок( [c, e], [a, b, c, d, e, f] )
    нет. Пролог-программа для отношения подсписок может основываться на той же идее, что и принадлежит1, только на этот раз отношение более общо (см. рис. 3.4).
    Рис. 3.4. Отношения принадлежит и подсписок.
    Его можно сформулировать так:
     S является подсписком L, если
      (1) L можно разбить на два списка L1 и L2 и
      (2) L2 можно разбить на два списка S и L3.
    Как мы видели раньше, отношение конк можно использовать для разбиения списков. Поэтому вышеприведенную формулировку можно выразить на Прологе так:
    подсписок( S, L) :-
     конк( L1, L2, L),
     конк( S, L3, L2).
    Ясно, что процедуру подсписок можно гибко использовать различными способами. Хотя она предназначалась для проверки, является ли какой-либо список подсписком другого, ее можно использовать, например, для нахождения всех подсписков данного списка:
    ?-  подсписок( S, [а, b, с] ).

    S = [];
    S = [a];
    S = [а, b];
    S = [а, b, с];
    S = [b];
    ...

3.2.6. Перестановки

    Иногда бывает полезно построить все перестановки некоторого заданного списка. Для этого мы определим отношение перестановка с двумя аргументами. Аргументы — это два списка, один из которых является перестановкой другого. Мы намереваемся порождать перестановки списка с помощью механизма автоматического перебора, используя процедуру перестановка, подобно тому, как это делается в следующем примере:
    ?- перестановка( [а, b, с], P).

    P = [а, b, с];
    P = [а, с, b];
    P = [b, а, с];
    ...
    Рис. 3.5. Один из способов построения перестановки списка [X | L].
    Программа для отношения перестановка в свою очередь опять может основываться на рассмотрении двух случаев в зависимости от вида первого списка:
    (1) Если первый список пуст, то и второй список должен быть пустым.
    (2) Если первый список не пуст, тогда он имеет вид [X | L], и перестановку такого списка можно построить так, как это показано на рис. 3.5: вначале получить список L1 — перестановку L, а затем внести X в произвольную позицию L1.
    Два прологовских предложения, соответствующих этим двум случаям, таковы:
    перестановка( [], []).
    перестановка( [X | L ], P) :-
     перестановка( L, L1),
     внести( X, L1, P).
    Другой вариант этой программы мог бы предусматривать удаление элемента X из первого списка, перестановку оставшейся его части — получение списка P, а затем добавление X в начало списка P. Соответствующая программа такова:
    перестановка2( [], []).
    перестановка2( L, [X | P] ) :-
     удалить( X, L, L1),
     перестановка2( L1, P).
    Поучительно проделать несколько экспериментов с нашей программой перестановки. Ее нормальное использование могло бы быть примерно таким:
    ?-  перестановка( [красный, голубой, зеленый], P).
    Как и предполагалось, будут построены все шесть перестановок:
    P = [ красный, голубой, зеленый];
    P = [ красный, зеленый, голубой];
    P = [ голубой, красный, зеленый];
    P = [ голубой, зеленый, красный];
    P = [ зеленый, красный, голубой];
    P = [ зеленый, голубой, красный];
    no                               (нет)
    Приведем другой вариант использования процедуры перестановка:
    ?-  перестановка( L, [а, b, с] ).
    Наша первая версия, перестановка, произведет успешную конкретизацию L всеми шестью перестановками. Если пользователь потребует новых решений, он никогда не получит ответ "нет", поскольку программа войдет в бесконечный цикл, пытаясь отыскать новые несуществующие перестановки. Вторая версия, перестановка2, в этой ситуации найдет только первую (идентичную) перестановку, а затем сразу зациклится. Следовательно, при использовании этих отношений требуется соблюдать осторожность.
Упражнения
    3.3. Определите два предиката
    четнаядлина( Список) и нечетнаядлина( Список)
    таким образом, чтобы они были истинными, если их аргументом является список четной или нечетной длины соответственно. Например, список [а, b, с, d] имеет четную длину, a [a, b, c] — нечетную.
    3.4. Определите отношение
    обращение( Список, ОбращенныйСписок),
    которое обращает списки. Например,
    обращение( [a, b, c, d], [d, c, b, a] ).
    3.5. Определите предикат
    палиндром( Список).
    Список называется палиндромом, если он читается одинаково, как слева направо, так и справа налево. Например, [м, а, д, а, м].
    3.6. Определите отношение
    сдвиг( Список1, Список2)
    таким образом, чтобы Список2 представлял собой Список1, "циклически сдвинутый" влево на один символ. Например,
    ?- сдвиг( [1, 2, 3, 4, 5], L1),
     сдвиг1( LI, L2)
    дает
    L1 = [2, 3, 4, 5, 1]
    L2 = [3, 4, 5, 1, 2]
    3.7. Определите отношение
    перевод( Список1, Список2)
    для перевода списка чисел от 0 до 9 в список соответствующих слов. Например,
    перевод( [3, 5, 1, 3], [три, пять, один, три] )
    Используйте в качестве вспомогательных следующие отношения:
    означает( 0, нуль).
    означает( 1, один).
    означает( 2, два).
    ...
    3.8. Определите отношение
    подмножество( Множество, Подмножество)
    где Множество и Подмножество — два списка представляющие два множества. Желательно иметь возможность использовать это отношение не только для проверки включения одного множества в другое, но и для порождения всех возможных подмножеств заданного множества. Например:
    ?-  подмножество( [а, b, с], S ).

    S = [a, b, c];
    S = [b, c];
    S = [c];
    S = [];
    S = [a, c];
    S = [a];
    ...
    3.9. Определите отношение
    разбиениесписка( Список, Список1, Список2)
    так, чтобы оно распределяло элементы списка между двумя списками Список1 и Список2 и чтобы эти списки были примерно одинаковой длины. Например:
    разбиениесписка( [а, b, с, d, e], [a, с, e], [b, d]).
    3.10. Перепишите программу об обезьяне и бананах из главы 2 таким образом, чтобы отношение
    можетзавладеть( Состояние, Действия)
    давало не только положительный или отрицательный ответ, но и порождало последовательность действий обезьяны, приводящую ее к успеху. Пусть Действия будет такой последовательностью, представленной в виде списка ходов:
    Действия = [ перейти( дверь, окно),
                 передвинуть( окно, середина),
                 залезть, схватить ]
    3.11. Определите отношение
    линеаризация( Список, ЛинейныйСписок)
    где Список может быть списком списков, а ЛинейныйСписок — это тот же список, но "выровненный" таким образом, что элементы его подсписков составляют один линейный список. Например:
    ?- линеаризация( [а, d, [с, d], [], [[[e]]], f, L).
    L = [a, b, c, d, e, f]

3.3. Операторная запись (нотация)

    В математике мы привыкли записывать выражения в таком виде:
    2*a + b*с
    где + и * — это операторы, а 2, а, b, с — аргументы. В частности, + и * называют инфиксными операторами, поскольку они появляются между своими аргументами. Такие выражения могут быть представлены в виде деревьев, как это сделано на рис. 3.6, и записаны как прологовские термы с + и * в качестве функторов:
    +( *( 2, а), *( b, с) )

    Рис. 3.6. Представление выражения 2*а+b*с в виде дерева.
    Поскольку мы обычно предпочитаем записывать такие выражения в привычной инфиксной форме операторов, Пролог обеспечивает такое удобство. Поэтому наше выражение, записанное просто как
    2*а + b*с
    будет воспринято правильно. Однако это лишь внешнее представление объекта, которое будет автоматически преобразовано в обычную форму прологовских термов. Такой терм выводится пользователю снова в своей внешней инфиксной форме.
    Выражения рассматриваются Прологом просто как дополнительный способ записи, при котором не вводятся какие-либо новые принципы структуризации объектов данных. Если мы напишем а + b,  Пролог поймет эту запись, как если бы написали +(а, b). Для того, чтобы Пролог правильно воспринимал выражения типа а + b*с, он должен знать, что * связывает сильнее, чем +. Будем говорить, что + имеет более низкий приоритет, чем *. Поэтому верная интерпретация выражений зависит от приоритетов операторов. Например, выражение а + b*с, в принципе можно понимать и как
    +( а, *( b, с) )
    и как
    *( +( а, b), с)
    Общее правило состоит в том, что оператор с самым низким приоритетом расценивается как главный функтор терма. Если мы хотим, чтобы выражения, содержащие + и *, понимались в соответствии с обычными соглашениями, то + должен иметь более низкий приоритет, чем *. Тогда выражение а + b*с означает то же, что и а + (b*с). Если имеется в виду другая интерпретация, то это надо указать явно с помощью скобок, например (а+b)*с.
    Программист может вводить свои собственные операторы. Так, например, можно определить атомы имеет и поддерживает в качестве инфиксных операторов, а затем записывать в программе факты вида:
    питер имеет информацию.
    пол поддерживает стол.
    Эти факты в точности эквивалентны следующим:
    имеет( питер, информацию).
    поддерживает( пол, стол).
    Программист определяет новые операторы, вводя в программу особый вид предложений, которые иногда называют директивами. Такие предложения играют роль определений новых операторов. Определение оператора должно появиться в программе раньше, чем любое выражение, использующее этот оператор. Например, оператор имеет можно определить директивой
    :- op( 600, xfx, имеет).
    Такая запись сообщит Прологу, что мы хотим использовать "имеет" в качестве оператора с приоритетом 600 и типом 'xfx', обозначающий одну из разновидностей инфиксного оператора. Форма спецификатора 'xfx' указывает на то, что оператор, обозначенный через 'f', располагается между аргументами, обозначенными через 'х'.
    Обратите внимание на то, что определения операторов не содержат описания каких-либо операций или действий. В соответствии с принципами языка ни с одним оператором не связывается каких-либо операций над данными (за исключением особых, редких случаев). Операторы обычно используются так же, как и функторы, только для объединения объектов в структуры и не вызывают действия над данными, хотя само слово "оператор", казалось бы, должно подразумевать какое-то действие.
    Существуют три группы типов операторов, обозначаемые спецификаторами, похожими на xfx:
    (1) инфиксные операторы трех типов:
    xfx xfy yfx
    (2) префиксные операторы двух типов:
    fx fy
    (3) постфиксные операторы двух типов:
    хf yf
    Спецификаторы выбраны с таким расчетом, чтобы нагляднее отразить структуру выражения, в котором 'f' соответствует оператору, а 'x' и 'y' представляют его аргументы. Расположение 'f' между аргументами указывает на то, что оператор инфиксный. Префиксные и постфиксные спецификаторы содержат только один аргумент, который, соответственно, либо следует за оператором, либо предшествует ему.
    Рис. op3.7.  Две интерпретации выражения а-b-с в предположении, что '-' имеет приоритет 500. Если тип '-' есть yfx, то интерпретация 2 неверна, так как приоритет b-с не выше, чем приоритет '-'.
    Между 'x' и 'y' есть разница. Для ее объяснения нам потребуется ввести понятие приоритета аргумента. Если аргумент заключен в скобки или не имеет структуры (является простым объектом), тогда его приоритет равен 0; если же он структурный, тогда его приоритет равен приоритету его главного функтора. С помощью 'x' обозначается аргумент, чей приоритет должен быть строго выше приоритета оператора (т e. его номер строго меньше номера приоритета оператора); с помощью 'y' обозначается аргумент, чей приоритет выше или равен приоритету оператора.
    Такие правила помогают избежать неоднозначности при обработке выражений, в которых встречаются операторы с одинаковым приоритетом. Например, выражение
    а-b-с
    обычно понимается как (а-b)-с, а не как а-(b-с). Чтобы обеспечить такую обычную интерпретацию, оператор '-' следует определять как yfx. На рис. 3.7 показано, каким образом исключается вторая интерпретация.
    В качестве еще одного примера рассмотрим оператор not (логическое отрицание "не"). Если not oпределён как fy, тогда выражение
     not not p
    записано верно; однако, если not определен как fx, оно некорректно, потому что аргументом первого not является структура not p, которая имеет тот же приоритет, что и not. В этом случае выражение следует писать со скобками:
    not (not p)

    :- op( 1200, xfx, ':-').
    :- op( 1200, fx, [:-, ?-] ).
    :- op( 1100, xfy, ';').
    :- op( 1000, xfy, ',').
    :- op( 700, xfx, [=, is, <, >, =<, >=, ==, =\=, \==, =:=]).
    :- op( 500, yfx, [+, -] ).
    :- op( 500, fx, [+, -, not] ).
    :- op( 400, yfx, [*, /, div] ).
    :- op( 300, xfx, mod).
    Рис. 3.8. Множество предопределенных операторов.

    Для удобства некоторые операторы в пролог-системах определены заранее, чтобы ими можно было пользоваться сразу, без какого-либо определения их в программе. Набор таких операторов и их приоритеты зависят от реализации. Мы будем предполагать, что множество этих "стандартных" операторов ведет себя так, как если бы оно было определено с помощью предложений, приведенных на рис. 3.8. Как видно из того же рисунка, несколько операторов могут быть определены в одном предложении, если только они все имеют одинаковый приоритет и тип. В этом случае имена операторов записываются в виде списка. Использование операторов может значительно повысить наглядность, "читабельность" программы. Для примера предположим, что мы пишем программу для обработки булевских выражений. В такой программе мы, возможно, захотим записать утверждение одной из теорем де Моргана, которое в математических обозначениях записывается так:
    ~ (А & В) <===> ~А v ~В
    Приведем один из способов записи этого утверждения в виде прологовского предложения:
    эквивалентно( not( и( А, В)), или( not( A, not( B))).
    Однако хорошим стилем программирования было бы попытаться сохранить по возможности больше сходства между видом записи исходной задачи и видом, используемом в программе ее решения. В нашем примере этого можно достичь почти в полной мере, применив операторы. Подходящее множество операторов для наших целей можно определить так:
    :- op( 800, xfx, <===>).
    :- op( 700, xfy, v).
    :- op( 600, хfу, &).
    :- op( 500, fy, ~).
    Теперь правило де Моргана можно записать в виде следующего факта:
    ~(А & В) <===> ~А v ~В.
    В соответствии с нашими определениями операторов этот терм понимается так, как это показано на рис. 3.9.
    Рис. 3.9. Интерпретация терма ~(А & В) <===> ~A v ~В
    Подытожим:
    • Наглядность программы часто можно улучшить, использовав операторную нотацию. Операторы бывают инфиксные, префиксные и постфиксные.
    • В принципе, с оператором не связываются никакие действия над данными, за исключением особых случаев. Определение оператора не содержит описания каких-либо действий, оно лишь вводит новый способ записи. Операторы, как и функторы, лишь связывают компоненты в единую структуру.
    • Программист может вводить свои собственные операторы. Каждый оператор определяется своим именем, приоритетом и типом.
    • Номер приоритета — это целое число из некоторого диапазона, скажем, между 1 и 1200. Оператор с самым больший номером приоритета соответствует главному функтору выражения, в котором этот оператор встретился. Операторы с меньшими номерами приоритетов связывают свои аргументы сильнее других операторов.
    • Тип оператора зависит от двух условий: (1) его расположения относительно своих аргументов, (2) приоритета его аргументов по сравнению с его собственным. В спецификаторах, таких, как xfy, x обозначает аргумент, чей номер приоритета строго меньше номера приоритета оператора; y — аргумент с номером приоритета, меньшим или равным номеру приоритета оператора.
Упражнения
    3.12. Если принять такие определения
    :- op( 300, xfy, играет_в).
    :- op( 200, xfy, и).
    то два следующих терма представляют собой синтаксически правильные объекты:
    Tepм1 = джимми играет_в футбол и сквош
    Терм1 = сьюзан играет_в теннис и баскетбол и волейбол
    Как эти термы интерпретируются пролог-системой? Каковы их главные функторы и какова их структура?
    3.13. Предложите подходящее определение операторов ("работает", "в", "нашем"), чтобы можно было писать предложения типа:
    диана работает секретарем в нашем отделе.
    а затем спрашивать:
    ?- Кто работает секретарем в нашем отделе.
    Кто = диана

    ?- диана работает Кем.
    Кем = секретарем в нашем отдела
    3.14. Рассмотрим программу:
    t( 0+1, 1+0).

    t( X+0+1, X+1+0).

    t( X+1+1, Z) :-
     t( X+1, X1),
     t( X1+1, Z).
    Как данная программа будет отвечать на ниже перечисленные вопросы, если '+' — это (как обычно) инфиксный оператор типа yfx?
    (a) ?- t( 0+1, А).
    (b) ?- t( 0+1+1, В).
    (с) ?- t( 1+0+1+1+1, С).
    (d) ?- t( D, 1+1+1+0).
    3.15. В предыдущем разделе отношения между списка ми мы записывали так:
    принадлежит( Элемент, Список),
     конк( Список1, Список2, Список3),
     удалить( Элемент, Список, НовыйСписок), ...
    Предположим, что более предпочтительной для нас является следующая форма записи:
    Элемент входит_в Список,
     конкатенация_списков Список1 и Список2
      дает Список3,
     удаление_элемента Элемент из_списка Список
      дает НовыйСписок, ...
    Определите операторы "входит_в", "конкатенация_списков", "и" и т.д. таким образом, чтобы обеспечить эту возможность. Переопределите также и соответствующие процедуры.

3.4. Арифметические действия

    Пролог рассчитан главным образом на обработку символьной информации, при которой потребность в арифметических вычислениях относительно мала. Поэтому и средства для таких вычислений довольно просты. Для осуществления основных арифметических действий можно воспользоваться несколькими предопределенными операторами.
    +   сложение
    -   вычитание
    *   умножение
    /   деление
    mod модуль, остаток от целочисленного деления
    Заметьте, что это как раз тот исключительный случай. когда оператор может и в самом деле произвести некоторую операцию. Но даже и в этом случае требуется дополнительное указание на выполнение действия. Пролог-система знает, как выполнять вычисления, предписываемые такими операторами, но этого недостаточно для их непосредственного использования. Следующий вопрос - наивная попытка произвести арифметическое действие:
    ?- X = 1 + 2.
    Пролог-система "спокойно" ответит
    X = 1 + 2
    а не X = 3, как, возможно, ожидалось. Причина этого проста: выражение 1 + 2 обозначает лишь прологовский терм, в котором + является функтором, а 1 и 2 — его аргументами. В вышеприведенной цели нет ничего, что могло бы заставить систему выполнить операцию сложения. Для этого в Прологе существует специальный оператор is (есть). Этот оператор заставит систему выполнить вычисление. Таким образом, чтобы правильно активизировать арифметическую операцию, надо написать:
    ?- X is 1 + 2.
    Вот теперь ответ будет
    X = 3
    Сложение здесь выполняется специальной процедурой, связанной с оператором +. Мы будем называть такие процедуры встроенными.
    В Прологе не существует общепринятой нотации для записи арифметических действий, поэтому в разных реализациях она может слегка различаться. Например, оператор '/' может в одних реализациях обозначать целочисленное деление, а в других — вещественное. В данной книге под '/' мы подразумеваем вещественное деление, для целочисленного же будем использовать оператор div. В соответствии с этим, на вопрос
    ?- X is 3/2,
     Y is 3 div 2.
    ответ должен быть такой:
    X = 1.5
    Y = 1
    Левым аргументом оператора is является простой объект. Правый аргумент — арифметическое выражение, составленное с помощью арифметических операторов, чисел и переменных. Поскольку оператор is запускает арифметические вычисления, к моменту начала вычисления этой цели все ее переменные должны быть уже конкретизированы какими-либо числами. Приоритеты этих предопределенных арифметических операторов (см. рис. 3.8) выбраны с таким расчетом, чтобы операторы применялись к аргументам в том порядке, который принят в математике. Чтобы изменить обычный порядок вычислений, применяются скобки (тоже, как в математике). Заметьте, что +, -, *, / и div определены, как yfx, что определяет порядок их выполнения слева направо. Например,
    X is 5 - 2 - 1
    понимается как
    X is (5 - 2) - 1
    Арифметические операции используются также и при сравнении числовых величин. Мы можем, например, проверить, что больше — 10000 или результат умножения 277 на 37, с помощью цели
    ?- 277 * 37 > 10000.
    yes            (да)
    Заметьте, что точно так же, как и is, оператор '>' вызывает выполнение вычислений.
    Предположим, у нас есть программа, в которую входит отношение рожд, связывающее имя человека с годом его рождения. Тогда имена людей, родившихся между 1950 и 1960 годами включительно, можно получить при помощи такого вопроса:
    ?- рожд( Имя, Год),
     Год >= 1950,
     Год <= 1960.
    Ниже перечислены операторы сравнения:
    X > Y   X больше Y
    X < Y   X меньше Y
    X >= Y  X больше или равен Y
    X =< Y  X меньше или равен Y
    X =:= Y величины X и Y совпадают (равны)
    X =\= Y величины X и Y не равны
    Обратите внимание на разницу между операторами сравнения '=' и '=:=', например, в таких целях как X = Y и X =:= Y. Первая цель вызовет сопоставление объектов X и Y, и, если X и Y сопоставимы, возможно, приведет к конкретизации каких-либо переменных в этих объектах. Никаких вычислений при этом производиться не будет. С другой стороны, X =:= Y вызовет арифметическое вычисление и не может привести к конкретизации переменных. Это различие можно проиллюстрировать следующими примерами:
    ?- 1 + 2 =:= 2 + 1.
    yes

    ?- 1 + 2 = 2 + 1.
    no

    ?- 1 + А = В + 2.
    А = 2
    В = 1
    Давайте рассмотрим использование арифметических операций на двух простых примерах. В первом примере ищется наибольший общий делитель; во втором — определяется количество элементов в некотором списке.
    Если заданы два целых числа X и Y, то их наибольший общий делитель Д можно найти, руководствуясь следующими тремя правилами:
    (1) Если X и Y равны, то Д равен X.
    (2) Если X > Y, то Д равен наибольшему общему делителю X разности Y – X.
    (3) Если Y < X, то формулировка аналогична правилу (2), если X и Y поменять в нем местами.
    На примере легко убедиться, что эти правила действительно позволяют найти наибольший общий делитель. Выбрав, скажем, X = 20 и Y = 25, мы, руководствуясь приведенными выше правилами, после серии вычитаний получим Д = 5.
    Эти правила легко сформулировать в виде прологовской программы, определив трехаргументное отношение, скажем
    нод( X , Y, Д)
    Тогда наши три правила можно выразить тремя предложениями так:
    нод( X, X, X).

    нод( X, Y, Д) :-
     X < Y,
     Y1 is Y - X,
     нод( X, Y1, Д).

    нод( X, Y, Д) :-
     Y < X,
     нод( Y, X, Д).
    Разумеется, с таким же успехом можно последнюю цель в третьем предложении заменить двумя:
    X1 is X - Y,
    нод( X1, Y, Д)
    В нашем следующем примере требуется произвести некоторый подсчет, для чего, как правило, необходимы арифметические действия. Примером такой задачи может служить вычисление длины какого-либо списка; иначе говоря, подсчет числа его элементов. Определим процедуру
    длина( Список, N)
    которая будет подсчитывать элементы списка Список и конкретизировать N полученным числом. Как и раньше, когда речь шла о списках, полезно рассмотреть два случая:
    (1) Если список пуст, то его длина равна 0.
    (2) Если он не пуст, то Список = [Голова1 | Хвост] и его длина равна 1 плюс длина хвоста Хвост.
    Эти два случая соответствуют следующей программе:
    длина( [], 0).

    длина( [ _ | Хвост], N) :-
     длина( Хвост, N1),
     N is 1 + N1.
    Применить процедуру длина можно так:
    ?- длина( [a, b, [c, d], e], N).
    N = 4
    Заметим, что во втором предложении этой процедуры две цели его тела нельзя поменять местами. Причина этого состоит в том, что переменная N1 должна быть конкретизирована до того, как начнет вычисляться цель
    N is 1 + N1
    Таким образом мы видим, что введение встроенной процедуры is привело нас к примеру отношения, чувствительного к порядку обработки предложений и целей. Очевидно, что процедурные соображения для подобных отношений играют жизненно важную роль.
    Интересно посмотреть, что произойдет, если мы попытаемся запрограммировать отношение длина без использования is. Попытка может быть такой:
    длина1( [ ], 0).

    длина1( [ _ | Хвост], N) :-
     длина1( Хвост, N1),
     N = 1 + N1.
    Теперь уже цель
    ?- длина1( [a, b, [c, d], e], N).
    породит ответ:
    N = 1+(1+(1+(1+0)))
    Сложение ни разу в действительности не запускалось и поэтому ни разу не было выполнено. Но в процедуре длина1, в отличие от процедуры длина, мы можем поменять местами цели во втором предложении:
    длина1( _ | Хвост], N) :-
     N = 1 + N1,
     длина1( Хвост, N1).
    Такая версия длина1 будет давать те же результаты, что и исходная. Ее можно записать короче:
    длина1( [ _ | Хвост], 1 + N) :-
     длина1( Хвост, N).
    и она и в этом случае будет давать те же результаты. С помощью длина1, впрочем, тоже можно вычислять количество элементов списка:
    ?- длина( [а, b, с], N), Длина is N.

    N = 1+(1+(l+0))
    Длина = 3
    Итак:
    • Для выполнения арифметических действий используются встроенные процедуры.
    • Арифметические операции необходимо явно запускать при помощи встроенной процедуры is. Встроенные процедуры связаны также с предопределенными операторами +, -, *, /, div и mod.
    • К моменту выполнения операций все их аргументы должны быть конкретизированы числами.
    • Значения арифметических выражений можно сравнивать с помощью таких операторов, как <, =< и т.д. Эти операторы вычисляют значения своих аргументов.
Упражнения
    3.16. Определите отношение
    mах( X, Y, Мах)
    так, чтобы Мах равнялось наибольшому из двух чисел X и Y.
    3.17. Определите предикат
    максспис( Список, Мах)
    так, чтобы Мах равнялось наибольшему из чисел, входящих в Список.
    3.18. Определите предикат
    сумспис( Список, Сумма)
    так, чтобы Сумма равнялось сумме чисел, входящих в Список.
    3.19. Определите предикат
    упорядоченный( Список)
    который принимает значение истина, если Список представляет собой упорядоченный список чисел. Например: упорядоченный [1, 5, 6, 6, 9, 12] ).
    3.20. Определите предикат
    подсумма( Множ, Сумма, ПодМнож)
    где Множ это список чисел, Подмнож подмножество этих чисел, а сумма чисел из ПодМнож равна Сумма. Например:
    ?- подсумма( [1, 2, 5, 3, 2], 5, ПМ).
    ПМ = [1, 2, 2];
    ПМ = [2, 3];
    ПМ = [5];
    ...
    3.21. Определите процедуру
    между( N1, N2, X)
    которая, с помощью перебора, порождает все целые числа X, отвечающие условию N1≤X≤N2.
    3.22.    Определите операторы 'если', 'то', 'иначе' и ':=" таким образом, чтобы следующее выражение стало правильным термом:
    если X > Y то Z := X иначе Z := Y
    Выберите приоритеты так, чтобы  'если' стал главным функтором. Затем определите отношение 'если' так, чтобы оно стало как бы маленьким интерпретатором выражений типа 'если-то-иначе'. Например, такого
    если Вел1 > Вел2 то Перем := Вел3
    иначе Перем := Вел4
    где Вел1, Вел2, Вел3 и Вел4 — числовые величины (или переменные, конкретизированные числами), а Перем — переменная. Смысл отношения 'если' таков: если значение Вел1 больше значения Вел2, тогда Перем конкретизируется значением Вел3, в противном случае — значением Вел4. Приведем пример использования такого интерпретатора:
    ?- X = 2, Y = 3,
     Вел2 is 2*X,
     Вел4 is 4*X,
     Если Y > Вел2 то Z := Y иначе Z := Вел4.
     Если Z > 5 то W := 1 иначе W :=0.

    X = 2
    Y = 3
    Z = 8
    W = 1

    Вел2 = 4
    Вел4 = 8

Резюме

    • Список — часто используемая структура. Он либо пуст, либо состоит из головы и хвоста, который в свою очередь также является списком. Для списков в Прологе имеется специальная нотация.
    • В данной главе рассмотрены следующие операции над списками: принадлежность к списку, конкатенация, добавление элемента, удаление элемента, удаление подсписка.
    • Операторная запись позволяет программисту приспособить синтаксис программ к своим конкретным нуждам. С помощью операторов можно значительно повысить наглядность программ.
    • Новые операторы определяются с помощью директивы op, в которой указываются его имя, тип и приоритет.
    • Как правило, с оператором не связывается никакой операции; оператор это просто синтаксическое удобство, обеспечивающее альтернативный способ записи термов.
    • Арифметические операции выполняются с помощью встроенных процедур. Вычисление арифметических выражений запускается процедурой is, а также предикатами сравнения <, =< и т.д.
    • Понятия, введенные в данной главе:
     список, голова списка, хвост списка
     списковая нотация
     операторы, операторная нотация
     инфиксные, префиксные и постфиксные операторы
     приоритет операторов
     арифметические встроенные процедуры 

Глава 4
Использование структур: примеры

    Структуры данных вместе с сопоставлением, автоматическими возвратами и арифметикой представляют собой мощный инструмент программирования. В этой главе мы расширим навыки использования этого инструмента при помощи следующих учебных программных примеров: получение структурированной информации из базы данных, моделирование недетерминированного автомата, планирование маршрута поездки и решение задачи о расстановке восьми ферзей на шахматной доске. Мы увидим также, как в Прологе реализуется принцип абстракции данных.

4.1. Получение структурированной информации из базы данных

    Это упражнение развивает навыки представления структурных объектов данных и управления ими. Оно показывает также, что Пролог является естественным языком запросов к базе данных.
    База данных может быть представлена на Прологе в виде множества фактов. Например, в базе данных о семьях каждая семья может описываться одним предложением. На рис. 4.1 показано, как информацию о каждой семье можно представить в виде структуры. Каждая семья состоит из трех компонент: мужа, жены и детей. Поскольку количество детей в разных семьях может быть разным, то их целесообразно представить в виде списка, состоящего из произвольного числа элементов. Каждого члена семьи в свою очередь можно представить структурой, состоящей из четырех компонент: имени, фамилии, даты рождения и работы. Информация о работе — это либо "не работает", либо указание места работа и оклада (дохода). Информацию о семье, изображенной на рис. 4.1, можно занести в базу данных с помощью предложения:
    семья( членсемьи( том, фокс, дата( 7, май, 1950),
     работает( bbс, 15200) ),
     членсемьи( энн, фокс, дата( 9, май, 1951), неработает),
     [членсемьи( пат, фокс, дата( 5, май, 1973), неработает),
     членсемьи( джим, фокс, дата( 5, май, 1973), неработает) ] ).
    Рис. 4.1. Структурированная информация о семье.
    Тогда база данных будет состоять из последовательности фактов, подобных этому, и описывать все семьи, представляющие интерес для нашей программы.
    В действительности Пролог очень удобен для извлечения необходимой информации из такой базы данных. Здесь хорошо то, что можно ссылаться на объекты, не указывая в деталях всех их компонент. Можно задавать только структуру интересующих нас объектов и оставлять конкретные компоненты без точного описания или лишь с частичным описанием. На рис. 4.2 приведено несколько примеров. Так, а запросах к базе данных можно ссылаться на всех Армстронгов с помощью терма
    семья( членсемьи( _, армстронг, _, _ ), _, _ )
    Символы подчеркивания обозначают различные анонимные переменные, значения которых нас не заботят. Далее можно сослаться на все семьи с тремя детьми при помощи терма:
    семья( _, _, [ _, _, _ ])
    Чтобы найти всех замужних женщин, имеющих по крайней мере троих детей, можно задать вопрос:
     ?-  семья( _, членсемьи( Имя, Фамилия, _, _ ), [ _, _, _ | _ ]).
    Главным моментом в этих примерах является то, что указывать интересующие нас объекты можно не только по их содержимому, но и по их структуре. Мы задаем одну структуру и оставляем ее аргументы в виде слотов (пропусков).
    Рис. 4.2. Описания объектов по их структурным свойствам: (а) любая семья Армстронгов; (b) любая семья, имеющая ровно трех детей; (с) любая семья, имеющая по крайней мере три ребенка. Структура (с) дает возможность получить имя и фамилию жены конкретизацией переменных Имя и Фамилия.
    Можно создать набор процедур, который служил бы утилитой, делающей взаимодействие с нашей базой данных более удобным. Такие процедуры являлись бы частью пользовательского интерфейса. Вот некоторые полезные процедуры для нашей базы данных:
    муж( X) :-     % X - муж
     семья( X, _, _ ).

    жена( X) :-    % X - жена
     семья( _, X, _ ).

    ребенок( X) :- % X - ребенок
     семья( _, _, Дети),
     принадлежит( X, Дети).

    принадлежит( X, [X | L ]).
    принадлежит( X, [Y | L ]) :-
     принадлежит( X, L).

    существует( Членсемьи) :-
     % Любой член семьи в базе данных
     муж( Членсемьи);
     жена( Членсемьи);
     ребенок( Членсемьи).

    дата рождения( Членсемьи( _, _, Дата, _ ), Дата).

    доход( Членсемьи( _, _, _, работает( _, S) ), S).
     % Доход работающего
    доход( Членсемьи( _, _, _, неработает), 0).
     % Доход неработающего
    Этими процедурами можно воспользоваться, например, в следующих запросах к базе данных:
    • Найти имена всех людей из базы данных:
      ?-  существует( членсемьи( Имя,Фамилия, _, _ )).
    • Найти всех детей, родившихся в 1981 году:
      ?-  ребенок( X), датарождения( X, дата( _, _, 1981) ).
    • Найти всех работающих жен:
      ?-  жена( членсемьи( Имя, Фамилия, _, работает( _, _ ))).
    • Найти имена и фамилии людей, которые не работают и родились до 1963 года:
      ?- существует членсемьи( Имя, Фамилия, дата( _, _, Год), неработает) ),
      Год < 1963.
    • Найти людей, родившихся до 1950 года, чей доход меньше, чем 8000:
      ?- существует( Членсемьи),
      датарождения( Членсемьи, дата( _, _, Год) ),
      Год < 1950,
      доход( Членсемьи, Доход),
      Доход < 8000.
    • Найти фамилии людей, имеющих по крайней мере трех детей:
      ?-  семья( членсемьи( _, Фамилия, _, _ ), _, [ _, _, _ | _ ]).
    Для подсчета общего дохода семья полезно определить сумму доходов людей из некоторого списка в виде двухаргументного отношения:
    общий( Список_Людей, Сумма_их_доходов)
    Это отношение можно запрограммировать так:
    общий( [], 0). % Пустой список людей
    общий( [ Человек | Список], Сумма) :-
     доход( Человек, S),
      % S - доход первого человека
     общий( Список, Остальные),
      % Остальные - сумма доходов остальных
     Сумма is S + Остальные.
    Теперь общие доходы всех семей могут быть найдены с помощью вопроса:
    ?- семья( Муж, Жена, Дети),
     общий( [Муж, Жена | Дети], Доход).
    Пусть отношение длина подсчитывает количество элементов списка, как это было определено в разд. 3.4. Тогда мы можем найти все семьи, которые имеют доход на члена семьи, меньший, чем 2000, при помощи вопроса:
    ?- семья( Муж, Жена, Дети),
     общий( [ Муж, Жена | Дети], Доход),
     длина( [ Муж, Жена | Дети], N),
     Доход/N < 2000.
Упражнения
    4.1. Напишите вопросы для поиска в базе данных о семьях.
    (а) семей без детей;
    (b) всех работающих детей;
    (с) семей, где жена работает, а муж нет,
    (d) всех детей, разница в возрасте родителей которых составляет не менее 15 лет.
    4.2. Определите отношение
    близнецы( Ребенок1, Ребенок2)
    для поиска всех близнецов в базе данных о семьях.

4.2. Абстракция данных

    Абстракцию данных можно рассматривать как процесс организации различных фрагментов информации в единые логические единицы (возможно, иерархически), придавая ей при этом некоторую концептуально осмысленную форму. Каждая информационная единица должна быть легко доступна в программе. В идеальном случае все детали реализации такой структуры должны быть невидимы пользователю этой структуры. Самое главное в этом процессе - дать программисту возможность использовать информацию, не думая о деталях ее действительного представления.
    Обсудим один из способов реализации этого принципа на Прологе. Рассмотрим снова пример с семьей из предыдущего раздела. Каждая семья — это набор некоторых фрагментов информации. Все эти фрагменты объединены в естественные информационные единицы, такие, как "член семьи" или "семья", и с ними можно обращаться как с едиными объектами. Предположим опять, что информация о семье структурирована так же, как на рис. 4.1. Определим теперь некоторые отношения, с помощью которых пользователь может получать доступ к конкретным компонентам семьи, не зная деталей рис. 4.1. Такие отношения можно назвать селекторами, поскольку они позволяют выбирать конкретные компоненты. Имя такого отношения-селектора будет совпадать с именем компоненты, которую нужно выбрать. Отношение будет иметь два аргумента: первый — объект, который содержит компоненту, и второй — саму компоненту:
    отношение_селектор(Объект, Выбранная_компонента)
    Вот несколько селекторов для структуры семья:
    муж( семья( Муж, _, _ ), Муж).
    жена( семья( _, Жена, _ ), Жена).
    дети( семья( _, _, СписокДетей ), СписокДетей).
    Можно также создать селекторы для отдельных детей семьи:
    первыйребенок( Семья, Первый) :-
     дети( Семья, [Первый | _ ]).

    второйребенок( Семья, Второй) :-
     дети( Семья, [ _, Второй | _ ]).

    ...
    Можно обобщить этот селектор для выбора N-го ребенка:
    nребенок( N, Семья, Ребенок) :-
     дети( Семья, СписокДетей),
     n_элемент( N, СписокДетей, Ребенок)
      % N-й элемент списка
    Другим интересным объектом является "член семьи". Вот некоторые связанные с ним селекторы, соответствующие рис. 4.1:
    имя( членсемьи( Имя, _, _, _ ), Имя).
    фамилия( членсемьи( _, Фамилия, _, _ ), Фамилия).
    датарождения( членсемьи( _, _, Дата), Дата).
    Какие преимущества мы можем получить от использования отношений-селекторов? Определив их, мы можем теперь забыть о конкретном виде структуры представления информации. Для пополнения и обработки этой информации нужно знать только имена отношений-селекторов и в оставшейся части программы пользоваться только ими. В случае, если информация представлена сложной структурой, это легче, чем каждый раз обращаться к ней в явном виде. В частности, в нашем примере с семьей пользователь не обязан знать, что дети представлены в виде списка. Например, предположим, мы хотим сказать, что Том Фокс и Джим Фокс принадлежат к одной семье и что Джим — второй ребенок Тома. Используя приведенные выше отношения-селекторы, мы можем определить двух человек, назовем их Человек1 и Человек2, и семью. Следующий список целей приводит к желаемому результату:
    имя( Человек1, том), фамилия( Человек1, фокс),
      % Человек1 - Том Фокс
     имя( Человек2, джим), фамилия( Человек1, фокс),
      % Человек2 - Джим Фокс
     муж( Семья, Человек1),
     второйребенок( Семья, Человек2)
    Использование отношений-селекторов облегчает также и последующую модификацию программ. Представьте себе, что мы захотели повысить эффективность программы, изменив представление информации. Все, что нужно сделать для этого, — изменить определения отношений-селекторов, и вся остальная программа без изменений будет работать с этим новым представлением.
Упражнение
    4.3. Завершите определение отношения nребенок, определив отношение
    n_элемент( N, Список, X)
    которое выполняется, если X является N-м элементом списка Список.

4.3. Моделирование недетерминированного автомата

    Данное упражнение показывает, как абстрактную математическую конструкцию можно представить на Прологе. Кроме того, программа, которая получится, окажется значительно более гибкой, чем предполагалось вначале.
    Недетерминированный конечный автомат — это абстрактная машина, которая читает символы из входной цепочки и решает, допустить или отвергнуть эту цепочку. Автомат имеет несколько состояний и всегда находится в одном из них. Он может изменить состояние, перейдя из одного состояния в другое. Внутреннюю структуру такого автомата можно представить графом переходов, как показано на рис. 4.3. В этом примере S1, S2S3 и S4 — состояния автомата. Стартовав из начального состояния (в нашем примере это S1), автомат переходит из состояния в состояние по мере чтения входной цепочки. Переход зависит от текущего входного символа, как указывают метки на дугах графа переходов.
    Рис. 4.3. Пример недетерминированного конечного автомата.
    Переход выполняется всякий раз при чтении входного символа. Заметим, что переходы могут быть недетерминированными. На рис. 4.3 видно, что если автомат находится в состоянии S1, и текущий входной символ равен  а,  то переход может осуществиться как в S1, так и в S2. Некоторые дуги помечены меткой пусто, обозначающей "пустой символ". Эти дуги соответствуют "спонтанным переходам" автомата. Такой переход называется спонтанным, потому что он выполняется без чтения входной цепочки. Наблюдатель, рассматривающий автомат как черный ящик, не сможет обнаружить, что произошел какой-либо переход.
    Состояние S3 обведено двойной линией, это означает, что S3 — конечное состояние. Про автомат говорят, что он допускает входную цепочку, если в графе переходов существует путь, такой, что:
    (1) он начинается в начальном состоянии,
    (2) он оканчивается в конечном состоянии, и
    (3) метки дуг, образующих этот путь, соответствуют полной входной цепочке.
    Решать, какой из возможных переходов делать в каждый момент времени — исключительно внутреннее дело автомата. В частности, автомат сам решает, делать ли спонтанный переход, если он возможен в текущем состоянии. Однако абстрактные недетерминированные машины такого типа обладают волшебным свойством: если существует выбор, они всегда избирают "правильный" переход, т.е. переход, ведущий к допущению входной цепочки при наличии такого перехода. Автомат на рис. 4.3, например, допускает цепочки аb и aabaab, но отвергает цепочки abb и abba. Легко видеть, что этот автомат допускает любые цепочки, оканчивающиеся на аb и отвергает все остальные.
    Рис. 4.4. Допущение цепочки: (a) при чтении первого символа X; (b) при совершении спонтанного перехода.
    Некоторый автомат можно описать на Прологе при помощи трех отношений:
    (1) Унарного отношения конечное, которое определяет конечное состояние автомата.
    (2) Трехаргументного отношения переход, которое определяет переход из состояния в состояние, при этом
    переход( S1, X, S2)
    означает переход из состояния S1 в S2, если считан входной символ X.
    (3) Бинарного отношения
    спонтанный( S1, S2)
    означающего, что возможен спонтанный переход из S1 в S2.
    Для автомата, изображенного на рис. 4.3, эти отношения будут такими:
    конечное( S3).

    переход( S1, а, S1).
    переход( S1, а, S2).
    переход( S1, b, S1).
    переход( S2, b, S3).
    переход( S3, b, S4).

    спонтанный( S2, S4).
    спонтанный( S3, S1).
    Представим входные цепочки в виде списков Пролога. Цепочка ааb будет представлена как [а, а, b]. Модель автомата, получив его описание, будет обрабатывать заданную входную цепочку, и решать, допускать ее или нет. По определению, недетерминированный автомат допускает заданную цепочку, если (начав из начального состояния) после ее прочтения он способен оказаться в конечном состоянии. Модель программируется в виде бинарного отношения допускается, которое определяет принятие цепочки из данного состояния. Так
    допускается( Состояние, Цепочка)
    истинно, если автомат, начав из состояния Состояние как из начального, допускает цепочку Цепочка. Отношение допускается можно определить при помощи трех предложений. Они соответствуют следующим трем случаям:
    (1) Пустая цепочка [] допускается из состояния S, если S — конечное состояние.
    (2) Непустая цепочка допускается из состояния S, если после чтения первого ее символа автомат может перейти в состояние S1, и оставшаяся часть цепочки допускается из S1. Этот случай иллюстрируется на рис. 4.4(а).
    (3) Цепочка допускается из состояния S, если автомат может сделать спонтанный переход из S в S1, а затем допустить (всю) входную цепочку из S1. Такой случай иллюстрируется на рис. 4.4(b).
    Эти правила можно перевести на Пролог следующим образом:
    допускается( S, []) :-
      % Допуск пустой цепочки
     конечное( S).

    допускается( S, [X | Остальные]) :-
      % Допуск чтением первого символа
     переход( S, X, S1),
     допускается( S1, Остальные).

    допускается( S, Цепочка) :-
      % Допуск выполнением спонтанного перехода
     спонтанный( S, S1),
     допускается( S1, Цепочка).
    Спросить о том, допускается ли цепочка аааb, можно так:
    ?- допускается( S1, [a, a, a, b]).
    yes            (да)
    Как мы уже видели, программы на Прологе часто оказываются способными решать более общие задачи, чем те, для которых они первоначально предназначались. В нашем случае мы можем спросить модель также о том, в каком состоянии должен находиться автомат в начале работы, чтобы он допустил цепочку аb:
    ?- допускается( S, [a, b]).

    S = s1;
    S = s3
    Как ни странно, мы можем спросить также "Каковы все цепочки длины 3, допустимые из состояния s1?"
    ?- допускается( s1, [X1, Х2, X3]).

    X1 = а
    X2 = а
    X3 = b;

    X1 = b
    X2 = а
    X3 = b;

    nо     (нет)
    Если мы предпочитаем, чтобы допустимые цепочки выдавались в виде списков, тогда наш вопрос следует сформулировать так:
    ?- Цепочка = [ _, _, _ ], допускается( s1, Цепочка).

    Цепочка = [а, а, b];
    Цепочка = [b, а, b];
    nо     (нет)
    Можно проделать и еще некоторые эксперименты, например спросить: "Из какого состояния автомат допустит цепочку длиной 7?"
    Эксперименты могут включать в себя переделки структуры автомата, вносящие изменения в отношения конечное, переход и спонтанный. В автомате, изображенном на рис. 4.3, отсутствуют циклические "спонтанные пути" (пути, состоящие только из спонтанных переходов). Если на рис. 4.3 добавить новый переход
    спонтанный( s1, s3)
    то получится "спонтанный цикл". Теперь наша модель может столкнуться с неприятностями. Например, вопрос
    ?- допускается( s1, [а]).
    приведет к тому, что модель будет бесконечно переходить в состояние s1, все время надеясь отыскать какой-либо путь в конечное состояние.
Упражнения
    4.4. Почему не могло возникнуть зацикливание модели исходного автомата на рис. 4.3, когда в его графе переходов не было "спонтанного цикла"?
    4.5. Зацикливание при вычислении допускается можно предотвратить, например, таким способом: подсчитывать число переходов, сделанных к настоящему моменту. При этом модель должна будет искать пути только некоторой ограниченной длины. Модифицируйте так отношение допускается. Указание: добавьте третий аргумент — максимально допустимое число переходов:
    допускается( Состояние, Цепочка, Макс_переходов)

4.4. Планирование поездки

    В данном разделе мы создадим программу, которая дает советы по планированию воздушного путешествия. Эта программа будет довольно примитивным советчиком, тем не менее она сможет отвечать на некоторые полезные вопросы, такие как:
    • По каким дням недели есть прямые рейсы из Лондона в Любляну?
    • Как в четверг можно добраться из Любляны в Эдинбург?
    • Мне нужно посетить Милан, Любляну и Цюрих; вылетать нужно из Лондона во вторник и вернуться обратно в Лондон в пятницу. В какой последовательности мне следует посещать эти города, чтобы ни разу на протяжении поездки не пришлось совершать более одного перелета в день.
    Центральной частью программы будет база данных, содержащая информацию о рейсах. Эта информация будет представлена в виде трехаргументного отношения:
    расписание( Пункт1, Пункт2, Список_рейсов)
    где Список_рейсов — это список, состоящий из структурированных объектов вида:
    Время_отправления / Время_прибытия / Номер_рейса
     / Список_дней_вылета
    Список_дней_вылета — это либо список дней недели, либо атом "ежедневно". Одно из предложений, входящих в расписание могло бы быть, например, таким:
    расписание( лондон, эдинбург,
     [ 9:40 / 10:50 / bа4733/ ежедневно,
       19:40 / 20:50 / bа4833 / [пн, вт, ср, чт, пт, сб]] ).
    Время представлено в виде структурированных объектов, состоящих из двух компонент — часов и минут, объединенных оператором ":".
    Главная задача состоит в отыскании точных маршрутов между двумя заданными городами в определенные дни недели. Ее решение мы будем программировать в виде четырехаргументного отношения:
    маршрут( Пункт1, Пункт2, День, Маршрут)
    Здесь Маршрут — это последовательность перелетов, удовлетворяющих следующим критериям:
    (1) начальная точка маршрута находится в Пункт1;
    (2) конечная точка — в Пункт2;
    (3) все перелеты совершаются в один и тот же день недели — День;
    (4) все перелеты, входящие в Маршрут, содержатся в определении отношения расписание;
    (5) остается достаточно времени для пересадки с рейса на рейс.
    Маршрут представляется в виде списка структурированных объектов вида
    Откуда - Куда : Номер_рейса : Время_отправления
    Мы еще будем пользоваться следующими вспомогательными предикатами:
    (1) рейс( Пункт1, Пункт2, День, N_рейса, Вр_отпр, Вр_приб)
    Здесь сказано, что существует рейс N_рейса между Пункт1 и Пункт2 в день недели День с указанными временами отправления и прибытия.
    (2) вр_отпр( Маршрут, Время)
    Время — это время отправления по маршруту Маршрут.
    (3) пересадка( Время1, Время2)
    Между Время1 и Время2 должен существовать промежуток не менее 40 минут для пересадки с одного рейса на другой.
    Задача нахождения маршрута напоминает моделирование недетерминированного автомата из предыдущего раздела:
    • Состояния автомата соответствуют городам.
    • Переход из состояния в состояние соответствует перелету из одного города в другой.
    • Отношение переход автомата соответствует отношению расписание.
    • Модель автомата находит путь в графе переходов между исходным и конечным состояниями; планировщик поездки находит маршрут между начальным н конечным пунктами поездки.
    Неудивительно поэтому, что отношение маршрут можно определить аналогично отношению допускает, с той разницей, что теперь нет "спонтанных переходов". Существуют два случая:
    (1) Прямой рейс: если существует прямой рейс между пунктами Пункт1 и Пункт2, то весь маршрут состоит только из одного перелета:
    маршрут( Пункт1, Пункт2, День, [Пункт1-Пункт2 : Nр : Отпр]) :-
     рейс( Пункт1, Пункт2, День, Np, Отпр, Приб).
    (2) Маршрут с пересадками: маршрут между пунктами P1 и Р2 состоит из первого перелета из P1 в некоторый промежуточный пункт Р3 и маршрута между Р3 и Р2. Кроме того, между окончанием первого перелета и отправлением во второй необходимо оставить достаточно времени для пересадки.
    маршрут( P1, Р2, День, [P1-Р3 : Nр1 : Отпр1 | Маршрут]) :-
     маршрут( Р3, Р2, День, Маршрут ),
     рейс( P1, Р3, День, Npl, Oтпpl, Приб1),
     вр_отпр( Маршрут, Отпр2),
     пересадка( Приб1, Отпр2).
    Вспомогательные отношения рейс, пересадка и вр_отпр запрограммировать легко; мы включили их в полный текст программы планировщика поездки на рис. 4.5. Там же приводится и пример базы данных расписания.
    Наш планировщик исключительно прост и может рассматривать пути, очевидно ведущие в никуда. Тем не менее его оказывается вполне достаточно, если база данных о рейсах самолетов невелика. Для больших баз данных потребовалось бы разработать более интеллектуальный планировщик, который мог бы справиться с большим количеством путей, участвующих в перебора при нахождении нужного пути.
    % ПЛАНИРОВЩИК ВОЗДУШНЫХ МАРШРУТОВ

    :- op( 50, xfy, :).

    рейс( Пункт1, Пункт2, День, Np, ВрОтпр, ВрПриб) :-
     расписание( Пункт1, Пункт2, СписРейсов),
     принадлежит( ВрОтпр / ВрПриб / Nр / СписДней, СписРейсов),
     день_выл( День, СписДней).

    принадлежит( X, [X | L] ).
    принадлежит( X, [Y | L] ) :-
     принадлежит( X, L ).

    день_выл( День, СписДней) :-
     принадлежит( День, СписДней).
    день_выл( День, ежедневно) :-
     принадлежит( День, [пн, вт, ср, чт, пт, сб, вс] ).

    маршрут( P1, P2, День, [P1-Р2 : Np : ВрОтпр] ) :-
      % прямой рейс
     рейс( P1, P2, День, Np, ВрОтпр, _ ).
    маршрут( P1, Р2, День, [Pl-P3 : Np1 : Oтпp1 | Маршрут]) :-
      % маршрут с пересадками
     маршрут( Р3, P2, День, Маршрут ),
     рейс( P1, Р3, День, Npl, Oтпp1, Приб1),
     вр_отпр( Маршрут, Отпр2),
     пересадка( Приб1, Отпр2).

    вр_отпр( [P1-Р2 : Np : Отпр | _ ], Отпр).

    пересадка( Часы1 : Минуты1, Часы2 : Минуты2) :-
     60 * (Часы2-Часы1) + Минуты2 - Минуты1 >= 40

    % БАЗА ДАННЫХ О РЕЙСАХ САМОЛЕТОВ

    расписание( эдинбург, лондон,
     [ 9:40 / 10:50 / bа4733 / ежедневно,
       13:40 / 14:50 / ba4773 / ежедневно,
       19:40 / 20:50 / bа4833 / [пн, вт, ср, чт, пт, вс] ] ).

    расписание( лондон, эдинбург,
     [ 9:40 / 10:50 / bа4732 / ежедневно,
       11:40 / 12:50 / bа4752 / ежедневно,
       18:40 / 19:50 / bа4822 / [пн, вт, ср, чт, пт] ] ),

    расписание( лондон, любляна,
     [13:20 / 16:20 / ju201 / [пт],
      13:20 / 16:20 / ju213 / [вс] ] ).

    расписание( лондон, цюрих,
     [ 9:10 / 11:45 / bа614 / ежедневно,
       14:45 / 17:20 / sr805 / ежедневно ] ).

    расписание( лондон, милан,
     [ 8:30 / 11:20 / bа510 / ежедневно,
       11:00 / 13:50 / az459 / ежедневно ] ).

    расписание( любляна, цюрих,
     [11:30 / 12:40 / ju322 / [вт,чт] ] ).

    расписание( любляна, лондон,
     [11:10 / 12:20 / yu200 / [пт],
      11:25 / 12:20 / yu212 / [вс] ] ).

    расписание( милан, лондон,
     [ 9:10 / 10:00 / az458 / ежедневно,
       12:20 / 13:10 / bа511 / ежедневно ] ).

    расписание( милан, цюрих,
     [ 9:25 / 10:15 / sr621 / ежедневно,
       12:45 / 13:35 / sr623 / ежедневно ] ).

    расписание( цюрих, любляна,
     [13:30 / 14:40 / yu323 / [вт, чт] ] ).

    расписание( цюрих, лондон,
     9:00 / 9:40 / bа613 /
     [ пн, вт, ср, чт, пт, сб],
       16:10 / 16:55 / sr806 / [пн, вт, ср, чт, пт, сб] ] ).

    расписание( цюрих, милан,
     [ 7:55 / 8:45 / sr620 / ежедневно ] ).
    Рис. 4.5.  Планировщик воздушных маршрутов и база данных о рейсах самолетов.

    Вот некоторые примеры вопросов к планировщику:
    • По каким дням недели существуют прямые рейсы из Лондона в Люблину?
    ?- рейс( лондон, любляна, День, _, _, _ ).

    День = пт;
    День = сб;

    no        (нет)
    • Как мне добраться из Любляны в Эдинбург в четверг?
    ?- маршрут( любляна, эдинбург, чт, R).

    R = [любляна-цюрих : уu322 : 11:30, цюрих-лондон:
         sr806 : 16:10,
         лондон-эдинбург : bа4822 : 18:40 ]
    • Как мне посетить Милан, Любляну и Цюрих, вылетев из Лондона во вторник и вернувшись в него в пятницу, совершая в день не более одного перелета? Этот вопрос сложнее, чем предыдущие. Его можно сформулировать, использовав отношение перестановка, запрограммированное в гл. 3. Мы попросим найти такую перестановку городов Милан, Любляна и Цюрих, чтобы соответствующие перелеты можно было осуществить в несколько последовательных дней недели:
    ?- перестановка( [милан, любляна, цюрих],
     [Город1, Город2, Город3] ),
     рейс( лондон, Город1, вт, Np1, Oтпp1, Пpиб1),
     peйc( Город1, Город2, ср, Np2, Отпр2, Приб2),
     рейс( Город2, Город3, чт, Np3, Отпp3, Приб3),
     рейс( Город3, лондон, пт, Np4, Отпр4, Приб4).

    Город1 = милан
    Город2 = цюрих
    Город3 = любляна

    Np1 = ba510
    Отпр1 = 8:30
    Приб1 = 11:20

    Np2 =sr621
    Отпр2 = 9:25
    Приб2 = 10:15

    Np3 = yu323
    Отпр3 = 13:30
    Приб3 = 14:40

    Np4 = yu200
    Отпр4 = 11:10
    Приб4 = 12:20

4.5. Задача о восьми ферзях

    Эта задача состоит в отыскании такой расстановки восьми ферзей на пустой шахматной доске, в которой ни один из ферзей не находится под боем другого. Решение мы запрограммируем в виде унарного отношения:
    решение( Поз)
    которое истинно тогда и только тогда, когда Поз изображает позицию, в которой восемь ферзей не бьют друг друга. Будет интересно сравнить различные идеи, лежащие в основе программирования этой задачи. Поэтому мы приведем три программы, основанные на слегка различающихся ее представлениях.

4.5.1. Программа 1

    Вначале нужно выбрать способ представления позиции на доске. Один из наиболее естественных способов — представить позицию в виде списка из восьми элементов, каждый из которых соответствует одному из ферзей. Каждый такой элемент будет описывать то поле доски, на которой стоит соответствующий ферзь. Далее, каждое поле доски можно описать с помощью пары координат (X и Y), где каждая координата - целое число от 1 до 8. В программе мы будем записывать такую пару в виде
    X / Y
    где оператор "/" обозначает, конечно, не деление, а служит лишь для объединения координат поля в один элемент списка. На рис. 4.6 показано одно из решений задачи о восьми ферзях и его запись в виде списка.
    После того, как мы выбрали такое представление, задача свелась к нахождению списка вида:
    [X1/Y1, X2/Y2, X3/Y3, X4/Y4, X5/Y5, X6/Y6, X7/Y7, X8/Y8]
    удовлетворяющего требованию отсутствия нападений. Наша процедура решение должна будет найти подходящую конкретизацию переменных X1, Y1, Х2, Y2, , Х8, Y8. Поскольку мы знаем, что все ферзи должны находиться на разных вертикалях во избежание нападений по вертикальным линиям, мы можем сразу же ограничить перебор, чтобы облегчать поиск решения. Можно поэтому сразу зафиксировать X-координаты так, чтобы список, изображающий решение, удовлетворял следующему, более конкретному шаблону:
    [1/Y1, 2/Y2, 3/Y3, 4/Y4, 5/Y5, 6/Y6, 7/Y7, 8/Y8]
    Рис. 4.6. Решение задачи о восьми ферзях. Эта позиция может быть представлена в виде списка [1/4, 2/2, 3/7, 4/3, 5/6, 6/8, 7/5, 8/1].
    Нас интересует решение для доске размером 8×8. Однако, как это часто бывает в программировании, ключ к решению легче найти, рассмотрев более общую постановку задачи. Как это ни парадоксально, но часто оказывается, что решение более общей задачи легче сформулировать, чем решение более частной, исходной задачи; после этого исходная задача решается просто как частный случай общей задачи.
    Основная часть работы при таком подходе ложится на нахождение правильного обобщения исходной задачи. В нашем случае хорошей является идея обобщать задачу в отношении количества ферзей (количества вертикалей в списке), разрешив количеству ферзей принимать любое значение, включая нуль. Тогда отношение решение можно сформулировать, рассмотрев два случая:
    Случай 1. Список ферзей пуст. Пустой список без сомнения является решением, поскольку нападений в этом случае нет.
    Случай 2. Список ферзей не пуст. Тогда он выглядит так:
    [ X/Y | Остальные ]
    В случае 2 первый ферзь находится на поле X / Y, а остальные — на полях, указанных в списке Остальные. Если мы хотим, чтобы это было решением, то должны выполняться следующие условия:
    (1) Ферзи, перечисленные в списке Остальные, не должны бить друг друга; т.е. список Остальные сам должен быть решением.
    (2) X и Y должны быть целыми числами от 1 до 8.
    (3) Ферзь, стоящий на поле X / Y, не должен бить ни одного ферзя из списка Остальные.
    Чтобы запрограммировать первое условие, можно воспользоваться самим отношением решение. Второе условие можно сформулировать так: Y должен принадлежать списку целых чисел от 1 до 8. т.е. [1, 2, 3, 4, 5, 6, 7, 8]. С другой стороны, о координате X можно не беспокоиться, поскольку список-решение должен соответствовать шаблону, у которого X-координаты уже определены. Поэтому X гарантированно получит правильное значение от 1 до 8. Третье условие можно обеспечить с помощью нового отношения небьет. Все это можно записать на Прологе так:
    решение( [X/Y | Остальные] ) :-
     решение( Остальные),
     принадлежит( Y, [1, 2, 3, 4, 5, 6, 7, 8] ),
     небьет( X/Y, Остальные).
    Осталось определить отношение небьет:
    небьет( Ф, Фспис)
    И снова его описание можно разбить на два случая:
    (1) Если список Фспис пуст, то отношение, конечно, выполнено, потому что некого бить (нет ферзя, на которого можно было бы напасть).
    (2) Если Фспис не пуст, то он имеет форму
    [Ф1 | Фспис1]
    и должны выполняться два условия:
     (а) ферзь на поле Ф не должен бить ферзя на поле Ф1 и
     (b) ферзь на поле Ф не должен бить ни одного ферзя из списка Фспис1.
    Выразить требование, чтобы ферзь, находящийся на некотором поле, не бил другое поле, довольно просто: эти поля не должны находиться на одной и той же горизонтали, вертикали или диагонали: Наш шаблон решения гарантирует, что все ферзи находятся на разных вертикалях, поэтому остается только обеспечить, чтобы
    • Y-координаты ферзей были различны и
    • ферзи не находились на одной диагонали, т.е. расстояние между полями по направлению X не должно равняться расстоянию между ними по Y.
    На рис. 4.7 приведен полный текст программы. Чтобы облегчить ее использование, необходимо добавить список-шаблон. Это можно сделать в запросе на генерацию решений. Итак:
    ?-  шаблон( S), решение( S).

    решение( [] ).
    решение( [X/Y | Остальные ] ) :-
      % Первый ферзь на поле X/Y,
      % остальные ферзи на полях из списка Остальные
     решение( Остальные),
     принадлежит Y, [1, 2, 3, 4, 5, 6, 7, 8] ),
     небьет( X/Y | Остальные).
      % Первый ферзь не бьет остальных

    небьет( _, [ ]). % Некого бить
    небьет( X/Y, [X1/Y1 | Остальные] ) :-
     Y =\= Y1,       % Разные Y-координаты
     Y1-Y =\= X1-X   % Разные диагонали
     Y1-Y =\= X-X1,
     небьет( X/Y, Остальные).

    принадлежит( X, [X | L] ).
    принадлежит( X, [Y | L] ) :-
     принадлежит( X, L).

    % Шаблон решения
    шаблон( [1/Y1, 2/Y2, 3/Y3, 4/Y4, 5/Y5, 6/Y6, 7/Y7, 8/Y8]).
    Рис. 4.7.  Программа 1 для задачи о восьми ферзях.

    Система будет генерировать решения в таком виде:
    S = [1/4, 2/2, 3/7, 4/3, 5/6, 6/8, 7/5, 8/1];
    S = [1/5, 2/2, 3/4, 4/7, 5/3, 6/8, 7/6, 8/1];
    S = [1/3, 2/5, 3/2, 4/8, 5/6, 6/4, 7/7, 8/1].
    ...
Упражнение
    4.6. При поиске решения программа, приведенная на рис. 4.7, проверяет различные значения Y-координат ферзей. В каком месте программы задается порядок перебора альтернативных вариантов? Как можно без труда модифицировать программу, чтобы этот порядок изменился? Поэкспериментируйте с разными порядками, имея в виду выяснить, как порядок перебора альтернатив влияет на эффективность программы.

4.5.2. Программа 2

    В соответствии с принятым в программе 1 представлением доски каждое решение имело вид
    [1/Y1, 2/Y2, 3/Y3, ..., 8/Y8]
    так как ферзи расставлялись попросту в последовательных вертикалях. Никакая информация не была бы потеряна, если бы X-координаты были пропущены. Поэтому можно применить более экономное представление позиции на доске, оставив в нем только Y-координаты ферзей:
    [Y1, Y2, Y3, ..., Y8]
    Чтобы не было нападений по горизонтали, никакие два ферзя не должны занимать одну и ту же горизонталь. Это требование накладывает ограничение на Y-координаты: ферзи должны занимать все горизонтали с 1-й по 8-ю. Остается только выбрать порядок следования этих восьми номеров. Каждое решение представляет собой поэтому одну из перестановок списка:
    [1, 2, 3, 4, 5, 6, 7, 8]
    Такая перестановка S является решением, если каждый ферзь в ней не находится под боем (список S — "безопасный"). Поэтому мы можем написать:
    решение( S) :-
     перестановка( [1, 2, 3, 4, 5, 6, 7, 8], S),
     безопасный( S).
    Рис. 4.8. (а) Расстояние по X между Ферзь и Остальные равно 1. (b) Расстояние по X между Ферзь и Остальные равно 3
    Отношение перестановка мы уже определила в гл. 3, а вот отношение безопасный нужно еще определить. Это определение можно разбить на два случая:
    (1) S — пустой список. Тогда он, конечно, безопасный, ведь нападать не на кого.
    (2) S — непустой список вида [Ферзь | Остальные]. Он безопасный, если список Остальные — безопасный и Ферзь не бьет ни одного ферзя из списка Остальные.
    На Прологе это выглядит так:
    безопасный( []).
    безопасный( [Ферзь | Остальные ] :-
     безопасный( Остальные),
     небьет(Ферзь | Остальные).
    В этой программе отношение небьет более хитрое.

    решение( Ферзи) :-
     перестановка( [1, 2, 3, 4, 5, 6, 7, 8], Ферзи),
     безопасный( Ферзи).

    перестановка( [], []).
    перестановка( [Голова | Хвост], СписПер) :-
     перестановка( Хвост, ХвостПер),
     удалить( Голова, СписПер, ХвостПер).
      % Вставка головы в переставленный хвост

    удалить( А, [А | Список).
    удалять( А, [В | Список], [В, Список1] ) :-
     удалить( А, Список, Список1).

    безопасный( []).
    безопасный( [Ферзь | Остальные]) :-
     безопасный( Остальные),
     небьет( Ферзь, Остальные, 1).

    небьет( _, [], _ ).
    небьет( Y, [Y1 | СписY], РасстХ) :-
     Y1-Y =\= РасстХ,
     Y-Y1 =\= РасстХ,
     Расст1 is РасстХ + 1,
     небьет( Y, СписY, Расст1).
    Рис. 4.9. Программа 2 для задачи о восьми ферзях.

    Трудность состоит в том, что расположение ферзей определяется только их Y-координатами, а X-координаты в представлении позиции не присутствуют в явном виде. Этой трудности можно избежать путем небольшого обобщения отношения небьет, как это показано на рис. 4.8. Предполагается, что цель
    небьет( Ферзь, Остальные)
    обеспечивает отсутствие нападении ферзя Ферзь на поля списка Остальные в случае, когда расстояние по X между Ферзь и Остальные равно 1. Остается рассмотреть более общий случай произвольного расстояния. Для этого мы добавим его в отношение небьет в качестве третьего аргумента:
    небьет( Ферзь, Остальные, РасстХ)
    Соответственно и цель небьет в отношении безопасный должна быть изменена на
    небьет( Ферзь, Остальные, 1)
    Теперь отношение небьет может быть сформулировано в соответствии с двумя случаями, в зависимости от списка Остальные: если он пуст, то бить некого и, естественно, нет нападений; если же он не пуст, то Ферзь не должен бить первого ферзя из списка Остальные (который находится от ферзя Ферзь на расстоянии РасстХ вертикалей), а также ферзей из хвоста списка Остальные, находящихся от него на расстоянии РасстХ + 1. Эти соображения приводят к программе, изображенной на рис. 4.9.

4.5.3. Программа 3

    Наша третья программа для задачи о восьми ферзях опирается на следующие соображения. Каждый ферзь должен быть размещен на некотором поле, т.е. на некоторой вертикали, некоторой горизонтали, а также на пересечении каких-нибудь двух диагоналей. Для того, чтобы была обеспечена безопасность каждого ферзя, все они должны располагаться в разных вертикалях, разных горизонталях и в разных диагоналях (как идущих сверху вниз, так и идущих снизу вверх). Естественно поэтому рассмотреть более богатую систему представления с четырьмя координатами:
     x вертикали
     у горизонтали
     u диагонали, идущие снизу вверх
     v диагонали, идущие сверху вниз
    Эти координаты не являются независимыми: при заданных x и у, u и v определяются однозначно (пример на рис. 4.10). Например,
    u = x - у
    v = x + у
    Рис. 4.10. Связь между вертикалями, горизонталями и диагоналями. Помеченное поле имеет следующие координаты: x = 2,  у = 4, u = 2 - 4 = -2, v = 2 + 4 = 6.
    Области изменения всех четырех координат таковы:
    Dx = [1, 2, 3, 4, 5, 6, 7, 8]
    Dy = [1, 2, 3, 4, 5, 6, 7, 8]

    Du = [-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7]
    Dv = [2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]
    Задачу о восьми ферзях теперь можно сформулировать следующим образом: выбрать восемь четверок (X, Y, U, V), входящих в области изменения (X в Dx, Y в Dy и т.д.), так, чтобы ни один их элемент не выбирался дважды из одной области. Разумеется, выбор X и Y определяет выбор U и V. Решение при такой постановке задачи может быть вкратце таким: при заданных 4-x областях изменения выбрать позицию для первого ферзя, вычеркнуть соответствующие элементы из 4-x областей изменения, а затем использовать оставшиеся элементы этих областей для размещения остальных ферзей. Программа, основанная на таком подходе, показана на рис. 4.11. Позиция на доске снова представляется списком Y-координат. Ключевым отношением в этой программе является отношение
    peш( СписY, Dx, Dy, Du, Dv)
    которое конкретизирует Y-координаты (в СписY) ферзей, считая, что они размещены в последовательных вертикалях, взятых из Dx. Все Y-координаты и соответствующие координаты U и V берутся из списков Dy, Du и Dv. Главную процедуру решение можно запустить вопросом
    ?-  решение( S)
    Это вызовет запуск реш с полными областями изменения координат, что соответствует пространству задачи о восьми ферзях.

    решение( СписY) :-
     реш( СписY, % Y-координаты ферзей
     [1, 2, 3, 4, 5, 6, 7, 8],
      % Область изменения Y-координат
     [1, 2, 3, 4, 5, 6, 7, 8],
      % Область изменения X-координат
     [-7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7],
      % Диагонали, идущие снизу вверх
     [2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 15, 14, 15, 16] ).
      % Диагонали, идущие сверху вниз

    реш([], [], Dy, Du, Dv).
    реш( [Y | СписY], [X | Dx1], Dy, Du, Dv) :-
     удалить( Y, Dy, Dy1), % Выбор Y-координаты
     U is X-Y,             % Соответствующая диагональ вверх
     удалить( U, Du, Du1), % Ее удаление
     V is X+Y,             % Соответствующая диагональ вниз
     удалить( V, Dv, Dv1), % Ее удаление
     реш( СписY, Dх1, Dy1, Du1, Dv1).
      % Выбор из оставшихся значений

    удалить( А, [А | Список], Список).
    удалить(A, [В | Список ], [В | Список1 ] ) :-
     удалить( А, Список, Список1).
    Рис. 4.11. Программа 3 для задачи о восьми ферзях.

    Процедура реш универсальна в том смысле, что ее можно использовать для решения задачи об N ферзях (на доске размером N×N). Нужно только правильно задеть области Dx, Dy и т.д.
    Удобно автоматизировать получение этих областей. Для этого нам потребуется процедура
    генератор( N1, N2, Список)
    которая для двух заданных целых чисел N1 и N2 порождает список
    Список = [N1, N1 + 1, N1 + 2, ..., N2 - 1, N2]
    Вот она:
    генератор( N, N, [N]).
    генератор( Nl, N2, [Nl | Список]) :-
     N1 < N2,
     М is N1 + 1,
     генератор( М, N2, Список).
    Главную процедуру решение нужно соответствующим образом обобщить:
    решение( N, S)
    где N — это размер доски, а S — решение, представляемое в виде списка Y-координат N ферзей. Вот обобщенное отношение решение:
    решение( N, S) :-
     генератор( 1, N, Dxy),
     Nu1 is 1 - N, Nu2 is N - 1,
     генератор( Nu1, Nu2, Du),
     Nv2 is N + N,
     генератор( 2, Nv2, Dv),
     реш( S, Dxy, Dxy, Du, Dv).
    Например, решение задачи о 12 ферзях будет получено с помощью:
    ?-  решение( 12, S).

    S = [1, 3, 5, 8, 10, 12, 6, 11, 2, 7, 9, 4]

4.5.4. Заключительные замечания

    Три решения задачи о восьми ферзях показывают, как к одной и той же задаче можно применять различные подходы. Мы варьировали также и представление данных. В одних случаях это представление было более экономным, в других — более наглядным и, до некоторой степени, избыточным. К недостаткам более экономного представления можно отнести то, что какая-то информация всякий раз, когда она требовалась, должна была перевычисляться.
    В некоторых случаях основным шагом к решению было обобщение задачи. Как ни парадоксально, но при рассмотрении более общей задачи решение оказывалось проще сформулировать. Принцип такого обобщения — стандартный прием программирования, и его можно часто применять.
    Из всех трех программ третья лучше всего показывает, как подходить к общей задаче построения структуры из заданного множества элементов при наличии ограничений.
    Возникает естественный вопрос: " Какая из трех программ наиболее эффективна?" В этом отношение программа 2 значительно хуже двух других, а эти последние — одинаковы. Причина в том, что основанная на перестановках программа 2 строит все перестановки, тогда как две другие программы способны отбросить плохую перестановку не дожидаясь, пока она будет полностью построена. Программа 3 наиболее эффективна. Она избегает некоторых арифметических вычислений, результаты которых уже сразу заложены в избыточное представление доски, используемое этой программой.
Упражнение
    4.7. Пусть поля доски представлены парами своих координат в виде X/Y, где как X, так и Y принимают значения от 1 до 8.
    (а) Определите отношение ходконя( Поле1, Поле2), соответствующее ходу коня на шахматной доске. Считайте, что Поле1 имеет всегда конкретизированные координаты, в то время, как координаты поля Поле2 могут и не быть конкретизированы. Например:
    ?- ходконя( 1/1, S).

    S = 3/2;
    S = 2/3;

    no      (нет)
    (b) Определите отношение путьконя( Путь), где Путь — список полей, представляющих соответствующую правилам игры последовательность ходов коня по пустой доске.
    (с) Используя отношение путьконя, напишите вопрос для нахождения любого пути, состоящего из 4-x ходов, и начинающегося с поля 2/1, а заканчивающегося на противоположном крае доски (Y = 8). Этот путь должен еще проходить после второго хода через поле 5/4.

Резюме

    Примеры, рассмотренные в данном разделе, иллюстрируют некоторые достоинства и характерные черты программирования на Прологе:
    • Базу данных можно естественным образом представить в виде множества прологовских фактов.
    • Такие механизмы Пролога, как вопросы и сопоставление, можно гибко использовать для получения информации из базы данных. Кроме этого можно использовать вспомогательные процедуры-утилиты, еще больше облегчающие взаимодействие с конкретной базой данных.
    • Абстракцию данных можно рассматривать как метод программирования, который облегчает работу со сложными структурами данных и вносит большую ясность и наглядность в программы. В Прологе легко соблюдать основные принципы абстракции данных.
    • Часто легко можно осуществить перевод абстрактных математических конструкций, таких как автоматы, на язык определений Пролога, готовых к выполнению.
    • Как это было в случае восьми ферзей, многие задачи допускают различные подходы, связанные с разными представлениями этих задач. Часто внесение избыточности в представление экономит вычисления. Происходит как бы проигрыш в рабочем пространстве, но выигрыш во времени.
    • Часто основным шагом на пути к решению оказывается обобщение задачи. Парадоксально, но рассмотрение более общей задачи позволяет облегчить формулировку решения.

Глава 5
Управление перебором

    Мы уже видели, что программист может управлять процессом вычислений по программе, располагая ее предложения и цели в том или ином порядке. В данной главе мы рассмотрим еще одно средство управления, получившее название "отсечение" (cut) и предназначенное для ограничения автоматического перебора.

5.1. Ограничение перебора

    В процессе достижения цели пролог-система осуществляет автоматический перебор вариантов, делая возврат при неуспехе какого-либо из них. Такой перебор — полезный программный механизм, поскольку он освобождает пользователя от необходимости программировать его самому. С другой стороны, ничем не ограниченный перебор может стать источником неэффективности программы. Поэтому иногда требуется его ограничить или исключить вовсе. Для этого в Прологе предусмотрена конструкция "отсечение".
    Рис. 5.1. Двухступенчатая функция
    Давайте сначала рассмотрим простую программу, процесс вычислений, по которой содержит ненужный перебор. Мы выделим те точки этого процесса, где перебор бесполезен и ведет к неэффективности.
    Рассмотрим двухступенчатую функцию, изображенную на рис. 5.1. Связь между X и Y можно определить с помощью следующих трех правил:
    Правило 1: если X < 3, то Y = 0
    Правило 2: если 3 ≤ X и X < 6, то Y = 2
    Правило 3: если 6 ≤ X, то Y = 4
    На Прологе это можно выразите с помощью бинарного отношения
    f( X, Y)
    так:
    f( X, 0) :- X < 3.          % Правило 1
    f( X, 2) :- 3 =< X,  X < 6. % Правило 2
    f( X, 4) :- 6 =< X.         % Правило 3
    В этой программе предполагается, конечно, что к моменту начала вычисления f( X, Y) X уже конкретизирован каким-либо числом; это необходимо для выполнения операторов сравнения.
    Мы проделаем с этой программой два эксперимента. Каждый из них обнаружит в ней свой источник неэффективности, и мы устраним оба этих источника по очереди, применив оператор отсечения. 

5.1.1. Эксперимент 1

    Проанализируем, что произойдет, если задать следующий вопрос:
    ?- f( 1, Y), 2 < Y.
    Рис. 5.2. В точке, помеченной словом "ОТСЕЧЕНИЕ", уже известно, что правила 2 и 3 должны потерпеть неудачу.
    При вычислении первой цели f( 1, Y) Y конкретизируется нулем. Поэтому вторая цель становится такой:
    2 < 0
    Она терпит неудачу, а поэтому и весь список целей также терпит неудачу. Это очевидно, однако перед тем как признать, что такому списку целей удовлетворить нельзя, пролог-система при помощи возвратов попытается проверить еще две бесполезные в данном случае альтернативы. Пошаговое описание процесса вычислений приводится на рис. 5.2.
    Три правила, входящие в отношение f, являются взаимоисключающими, поэтому успех возможен самое большее в одном из них. Следовательно, мы (но не пролог-система) знаем, что, как только успех наступил в одном из них, нет смысла проверять остальные, поскольку они все равно обречены на неудачу. В примере, приведенном на рис. 5.2, о том, что в правиле 1 наступил успех, становится известно в точке, обозначенной словом "ОТСЕЧЕНИЕ". Для предотвращения бессмысленного перебора мы должны явно указать пролог-системе, что не нужно осуществлять возврат из этой точки. Мы можем сделать это при помощи конструкции отсечения. "Отсечение" записывается в виде символа '!', который вставляется между целями и играет роль некоторой псевдоцели. Вот наша программа, переписанная с использованием отсечения:
    f( X, 0) :- X < 3,  !.
    f( X, 2) :- 3 =< X,  X < 6,  !.
    f( X, 4) :- 6 =< X.
    Символ  '!'  предотвращает возврат из тех точек программы, в которых он поставлен. Если мы теперь спросим
    ?- f( 1, Y), 2 < Y.
    то пролог-система породит левую ветвь дерева, изображенного на рис. 5.2. Эта ветвь потерпит неудачу на цели 2 < 0.   Система попытается сделать возврат, но вернуться она сможет не далее точки, помеченной в программе символом '!'.  Альтернативные ветви, соответствующие правилу 2 и правилу 3, порождены не будут.
    Новая программа, снабженная отсечениями, во всех случаях более эффективна, чем первая версия, в которой они отсутствуют. Неудачные варианты новая программа распознает всегда быстрее, чем старая.
    Вывод: добавив отсечения, мы повысили эффективность. Если их теперь убрать, программа породит тот же результат, только на его получение она истратит скорее всего больше времени. Можно сказать, что в нашем случае после введения отсечений мы изменили только процедурный смысл программы, оставив при этом ее декларативный смысл в неприкосновенности. В дальнейшем мы покажем, что использование отсечения может также затронуть и декларативный смысл программы.

5.1.2. Эксперимент 2

    Проделаем теперь еще один эксперимент со второй версией нашей программы. Предположим, мы задаем вопрос:
    ?- f( 7, Y).
    Y = 4
    Проанализируем, что произошло. Перед тем, как был получен ответ, система пробовала применить все три правила. Эти попытки породили следующую последовательность целей:
    Попытка применить правило 1:
     7 < 3 терпит неудачу, происходит возврат, и попытка применить правило 2 (точка отсечения достигнута не была)
    Попытка применить правило 2:
     3 ≤ 7  успех, но 7 < 6 терпит неудачу; возврат и попытка применить правило 3 (точка отсечения снова не достигнута)
    Попытка применить правило 3:
     6 ≤ 7 — успех
    Приведенные этапы вычисления обнаруживают еще один источник неэффективности. В начале выясняется, что X < 3 не является истиной (7 < 3 терпит неудачу). Следующая цель — 3 =< X (3 ≤ 7 — успех). Но нам известно, что, если первая проверка неуспешна, то вторая обязательно будет успешной, так как второе целевое утверждение является отрицанием первого. Следовательно, вторая проверка лишняя и соответствующую цель можно опустить. То же самое верно и для цели 6 =< X в правиле 3. Все эти соображения приводят к следующей, более экономной формулировке наших трех правил:
     если X < 3, то Y = 0
     иначе, если 3 ≤ X  и X < 6, то Y = 2,
     иначе Y = 4.
    Теперь мы можем опустить в нашей программе те условия, которые обязательно выполняются при любом вычислении. Получается третья версия программы:
    f( X, 0) :- X < 3, !.
    f( X, 2) :- X < 6, !.
    f( X, 4).
    Эта программа дает тот же результат, что и исходная, но более эффективна, чем обе предыдущие. Однако, что будет, если мы теперь удалим отсечения? Программа станет такой:
    f( X, 0) :- X < 3.
    f( X, 2) :- X < 6.
    f( X, 4).
    Она может порождать различные решения, часть из которых неверны. Например:
    ?- f( 1, Y).

    Y = 0;
    Y = 2;
    Y = 4;
    nо    (нет)
    Важно заметить, что в последней версии, в отличие от предыдущей, отсечения затрагивают не только процедурное поведение, но изменяют также и декларативный смысл программы.
    Более точный смысл механизма отсечений можно сформулировать следующим образом:
    Назовем "целью-родителем" ту цель, которая сопоставилась с головой предложения, содержащего отсечение. Когда в качестве цели встречается отсечение, такая цель сразу же считается успешной и при этом заставляет систему принять те альтернативы, которые были выбраны с момента активизации цели-родителя до момента, когда встретилось отсечение. Все оставшиеся в этом промежутке (от цели-родителя до отсечения) альтернативы не рассматриваются.
    Чтобы прояснить смысл этого определения, рассмотрим предложение вида
    H :- В1, В2, ..., Вm, !, ..., Вn.
    Будем считать, что это предложение активизировалось, когда некоторая цель G сопоставилась с H. Тогда G является целью-родителем. В момент, когда встретилось отсечение, успех уже наступил в целях В1, …, Вm. При выполнении отсечения это (текущее) решение В1, …, Вm "замораживается" и все возможные оставшиеся альтернативы больше не рассматриваются. Далее, цель G связывается теперь с этим предложением: любая попытка сопоставить  G  с головой какого-либо другого предложения пресекается.
    Применим эти правила к следующему примеру:
    С :- P, Q, R, !, S, T, U.
    С :- V.
    А :- В, С, D.
    ?- А.
    Здесь А, В, С, D, P и т.д. имеют синтаксис термов. Отсечение повлияет на вычисление цели С следующим образом. Перебор будет возможен в списке целей P, Q, R; однако, как только точка отсечения будет достигнута, все альтернативные решения для этого списка изымаются из рассмотрения. Альтернативное предложение, входящее в С:
    С :- V.
    также не будет учитываться. Тем не менее, перебор будет возможен в списке целей S, T, U. "Цель-родитель" предложения, содержащего отсечения, — это цель С в предложении
    А :- В, С, D.
    Поэтому отсечение повлияет только на цель С. С другой стороны, оно будет "невидимо" из цели А. Таким образом, автоматический перебор все равно будет происходить в списке целей В, С, D, вне зависимости от наличия отсечения в предложении, которое используется для достижения С.

5.2. Примеры, использующие отсечение 

5.2.1.  Вычисление максимума

    Процедуру нахождения наибольшего из двух чисел можно запрограммировать в виде отношения
    mах( X, Y, Мах)
    где Мах = X, если X больше или равен Y, и Мах есть Y, если X меньше Y. Это соответствует двум таким предложениям:
    mах( X, Y, X) :- X >= Y.
    max( X, Y, Y) :- X < Y.
    Эти правила являются взаимно исключающими. Если выполняется первое, второе обязательно потерпит неудачу. Если неудачу терпит первое, второе обязательно должно выполниться. Поэтому возможна более экономная формулировка, использующая понятие "иначе":
     если X ≥ Y, то Мах = X,
     иначе Мах = Y.
    На Прологе это записывается при помощи отсечения:
    mах( X, Y, X) :- X >= Y,  !.
    mах( X, Y, Y).

5.2.2. Процедура проверки принадлежности списку, дающая единственное решение

    Для того, чтобы узнать, принадлежит ли X списку L, мы пользовались отношением
    принадлежит( X, L)
    Программа была следующей:
    принадлежит( X, [X | L] ).
    принадлежит X, [Y | L] ) :- принадлежит( X, L).
    Эта программа дает "недетерминированный" ответ: если X встречается в списке несколько раз, то будет найдено каждое его вхождение. Исправить этот недостаток не трудно: нужно только предотвратить дальнейший перебор сразу же после того, как будет найден первый X, а это произойдет, как только в первом предложении наступит успех. Измененная программа выглядит так:
    принадлежит( X, [X | L] ) :- !.
    принадлежит( X, [Y | L] ) :- принадлежит( X, L).
    Эта программа породит только одно решение. Например:
    ?- принадлежит( X, [а, b, с] ).

    X = а;
    nо    (нет)

5.2.3. Добавление элемента к списку, если он в нем отсутствует (добавление без дублирования)

    Часто требуется добавлять элемент X в список L только в том случае, когда в списке еще нет такого элемента. Если же X уже есть в L, тогда L необходимо оставить без изменения, поскольку нам не нужны лишние дубликаты X. Отношение добавить имеет три аргумента:
    добавить( X, L, L1)
    где X — элемент, который нужно добавить, L — список, в который его нужно добавить, L1 — результирующий новый список. Правила добавления можно сформулировать так:
     если X принадлежит к L, то L1 = L,
     иначе L1 — это список L с добавленным к нему элементом X.
    Проще всего добавлять X в начало списка L так, чтобы X стал головой списка L1. Запрограммировать это можно так:
    добавить( X, L, L) :- принадлежит( X, L), !.
    добавить( X, L, [X | L] ).
    Поведение этой процедуры можно проиллюстрировать следующим примером:
    ?- добавить( а, [b,с], L).
    L = [a, b, c]

    ?- до6авить( X, [b, с], L).
    L = [b, с]
    X = b

    ?- добавить( а, [b, с, X], L).
    L = [b, с, а]
    X = а
    Этот пример поучителен, поскольку мы не можем легко запрограммировать "недублирующее добавление", не используя отсечения или какой-либо другой конструкции, полученной из него. Если мы уберем отсечение в только что рассмотренной программе, то отношение добавить будет добавлять дубликаты элементов, уже имеющихся в списке. Например:
    ?- добавить( a, [a, b, c], L),
    L = [а, b, с]
    L = [а, а, b, с]
    Поэтому отсечение требуется здесь для правильного определения отношения, а не только для повышения эффективности. Этот момент иллюстрируется также и следующим примером.

5.2.4. Задача классификации объектов

    Предположим, что у нас есть база данных, содержащая результаты теннисных партий, сыгранных членами некоторого клуба. Подбор пар противников для каждой партия не подчинялся какой-либо системе, просто каждый игрок встречался с несколькими противниками. Результаты представлены в программе в виде фактов, таких как
    победил( том, джон).
    победил( энн, том).
    победил( пат, джим).
    Мы хотим определить
    отношение класс( Игрок, Категория)
    которое распределяет игроков по категориям. У нас будет три категории:
     победитель — любой игрок, победивший во всех сыгранных им играх
     боец — любой игрок, в некоторых играх победивший, а в некоторых проигравший
     спортсмен — любой игрок, проигравший во всех сыгранных им партиях
    Например, если в нашем распоряжении есть лишь приведенные выше результаты, то ясно, что Энн и Пат — победители. Том — боец и Джим — спортсмен.
    Легко сформулировать правило для бойца:
     X — боец, если существует некоторый Y, такой, что X победил Y, и
      существует некоторый Z, такой, что Z победил X.
    Теперь правило для победителя:
     X — победитель, если
      X победил некоторого Y и
      X не был побежден никем.
    Эта формулировка содержит отрицание "не", которое нельзя впрямую выразить при помощи тех возможностей Пролога, которыми мы располагаем к настоящему моменту. Поэтому оказывается, что формулировка отношения победитель должна быть более хитрой. Та же проблема возникает и при формулировке правил для отношения спортсмен. Эту проблему можно обойти, объединив определения отношений победитель и боец и использовав связку "иначе". Вот такая формулировка:
     Если X победил кого-либо и X был кем-то побежден,
     то X — боец,
     иначе, если X победил кого-либо,
      то X — победитель, 
      иначе, если X был кем-то побежден,
       то X — спортсмен.
    Такую формулировку можно сразу перевести на Пролог. Взаимные исключения трех альтернативных категорий выражаются при помощи отсечений:
    класс( X, боец) :-
     победил( X, _ ),
     победил( _, X),  !.

    класс( X, победитель) :-
     победил( X, _ ),  !.

    класс( X, спортсмен) :-
     победил( _, X).
    Заметьте, что использование отсечения в предложении для категории победитель не обязательно, что связано с особенностями наших трех классов.
Упражнения
    5.1. Пусть есть программа:
    p( 1).
    p( 2) :- !.
    p( 3).
    Напишите все ответы пролог-системы на следующие вопросы:
    (a) ?- p( X).
    (b) ?- p( X), p(Y).
    (c) ?- p( X), !, p(Y).
    5.2. Следующие отношения распределяют числа на три класса - положительные, нуль и отрицательные:
    класс( Число, положительные) :- Число > 0.
    класс( 0, нуль).
    класс( Число, отрицательные) :- Число < 0.
    Сделайте эту процедуру более эффективной при помощи отсечений.
    5.3. Определите процедуру
    разбить( Числа, Положительные, Отрицательные)
    которая разбивает список чисел на два списка: список, содержащий положительные числа (и нуль), и список отрицательных чисел. Например,
    разбить( [3, -1, 0, 5, -2], [3, 0, 5], [-1, -2] )
    Предложите две версии: одну с отсечением, другую — без.

5.3. Отрицание как неуспех

    "Мэри любит всех животных, кроме змей". Как выразить это на Прологе? Одну часть этого утверждения выразить легко: "Мэри любит всякого X, если X — животное". На Прологе это записывается так:
    любит( мэри, X) :- животное ( X).
    Но нужно исключить змей. Это можно сделать, использовав другую формулировку:
     Если X — змея, то "Мэри любит X" — не есть истина,
     иначе, если X — животное, то Мэри любит X.
    Сказать на Прологе, что что-то не есть истина, можно при помощи специальной цели fail (неуспех), которая всегда терпит неудачу, заставляя потерпеть неудачу и ту цель, которая является ее родителем. Вышеуказанная формулировка, переведенная на Пролог с использованием fail, выглядит так:
    любит( мэри, X) :-
     змея( X),  !,  fail.
    любит( Мэри, X) :-
     животное ( X).
    Здесь первое правило позаботится о змеях: если X — змея, то отсечение предотвратит перебор (исключая таким образом второе правило из рассмотрения), а fail вызовет неуспех. Эти два предложения можно более компактно записать в виде одного:
    любит( мэри, X):-
     змея( X), !, fail;
     животное ( X).
    Ту же идею можно использовать для определения отношения
    различны( X, Y)
    которое выполняется, если X и Y не совпадают. При этом, однако, мы должны быть точными, потому что "различны" можно понимать по-разному:
    • X и Y не совпадают буквально;
    • X и Y не сопоставимы;
    • значения арифметических выражений X и Y не равны.
    Давайте считать в данном случае, что X и Y различны, если они не сопоставимы. Вот способ выразить это на Прологе:
     Если X и Y сопоставимы, то
      цель различны( X, Y) терпит неуспех
      иначе цель различны( X, Y) успешна.
    Мы снова используем сочетание отсечения и fail:
    различны( X, X) :- !, fail.
    различны( X, Y).
    То же самое можно записать и в виде одного предложения:
    различны( X, Y) :-
     X = Y, !, fail;
     true.
    Здесь true — цель, которая всегда успешна.
    Эти примеры показывают, что полезно иметь унарный предикат "not" (не), такой, что
    nоt( Цель)
    истинна, если Цель не истинна. Определим теперь отношение not следующим образом:
     Если Цель успешна, то not( Цель) неуспешна,
     иначе not( Цель) успешна.
    Это определение может быть записано на Прологе так:
    not( P) :-
     P, !, fail;
     true.
    Начиная с этого момента мы будем предполагать, что  not — это встроенная прологовская процедура, которая ведет себя так, как это только что было определено. Будем также предполагать, что оператор not определен как префиксный, так что цель
    not( змея( X) )
    можно записывать и как
    not змея( X)
    Многие версии Пролога поддерживают такую запись. Если же приходится иметь дело с версией, в которой нет встроенного оператора not, его всегда можно определить самим.
    Следует заметить, что not, как он здесь определен с использованием неуспеха, не полностью соответствует отрицанию в математической логике. Эта разница может породить неожиданности в поведении программы, если оператором not пользоваться небрежно. Этот вопрос будет рассмотрен в данной главе позже.
    Тем не менее not — полезное средство, и его часто можно с выгодой применять вместо отсечения. Наши два примера можно переписать с not:
    любит( мэри, X) :-
     животное ( X),
     not змея( X).

    различны( X, Y) :-
     not( X = Y).
    Это, конечно, выглядит лучше, нежели наши прежние формулировки. Вид предложений стал более естественным, и программу стало легче читать.
    Нашу программу теннисной классификации из предыдущего раздела можно переписать с использованием not так, чтобы ее вид был ближе к исходным определениям наших трех категорий:
    класс( X, боец) :-
     победил( X, _ ),
     победил( _, X).

    класс( X, победитель) :-
     победил( X, _ ),
     not победил( _, X).

    класс( X, спортсмен) :-
     not победил( X, _ ).
    В качестве еще одного примера использования not рассмотрим еще раз программу 1 для решения задачи о восьми ферзях из предыдущей главы (рис. 4.7). Мы определили там отношение небьет между некоторым ферзем и остальными ферзями. Это отношение можно определить также и как отрицание отношения "бьет". На рис. 5.3 приводится соответствующим образом измененная программа.

    решение( []).
    решение( [X/Y | Остальные] ) :-
     решение( Остальные),
     принадлежит( Y, [1, 2, 3, 4, 5, 6, 7, 8] ),
     not бьет( X/Y, Остальные).

    бьет( X/Y, Остальные) :-
     принадлежит( X1/Y1, Остальные),
     ( Y1 = Y;
       Y1 is Y + X1 - X;
       Y1 is Y - X1 + X ).
     принадлежит( А, [А | L] ).

    принадлежит( А, [В | L] ) :-
     принадлежит( А, L).

    % Шаблон решения
    шаблон( [1/Y1, 2/Y2, 3/Y3, 4/Y4, 5/Y5, 6/Y6, 7/Y7, 8/Y8]).
    Рис. 5.3.  Еще одна программа для решения задачи о восьми ферзях.

Упражнения
    5.4. Даны два списка Кандидаты и Исключенные, напишите последовательность целей (используя принадлежит и not), которая, при помощи перебора, найдет все элементы списка Кандидаты, не входящие в список Исключенные.
    5.5. Определите отношение, выполняющее вычитание множеств:
    разность( Множ1, Множ2, Разность)
    где все три множества представлены в виде списков. Например,
    разность( [a, b, c, d], [b, d, e, f], [a, c] )
    Посмотреть ответ
    5.6. Определите предикат
    унифицируемые( Спис1, Терм, Спис2)
    где Спис2 — список всех элементов Спис1, которые сопоставимы с Терм'ом, но не конкретизируются таким сопоставлением. Например:
    ?-  унифицируемые( [X, b, t( Y)], t( a), Спис).
    Спис = [ X, t( Y)]
    Заметьте, что и X и Y должны остаться неконкретизированными, хотя сопоставление с t( a) вызывает их конкретизацию. Указание: используйте not ( Терм1 = Терм2). Если цель Терм1 = Терм2 будет успешна, то not( Терм1 = Tepм2) потерпит неудачу и получившаяся конкретизация будет отменена!

5.4. Трудности с отсечением и отрицанием

    Используя отсечение, мы кое-что выиграли, но не совсем даром. Преимущества и недостатки применения отсечения были показаны на примерах из предыдущих разделов. Давайте подытожим сначала преимущества:
    (1) При помощи отсечения часто можно повысить эффективность программы. Идея состоит в том, чтобы прямо сказать пролог-системе: не пробуй остальные альтернативы, так как они все равно обречены на неудачу.
    (2) Применяя отсечение, можно описать взаимоисключающие правила, поэтому есть возможность запрограммировать утверждение:
     если условие P, то решение Q,
     иначе решение R
    Выразительность языка при этом повышается.
    Ограничения на использование отсечения проистекают из того, что есть опасность потерять такое важное для нас соответствие между декларативным и процедурным смыслами программы. Если в программе нет отсечений, то мы можем менять местами порядок предложений и целей, что повлияет только на ее эффективность, но не на декларативный смысл. Если же отсечения в ней присутствуют, то изменение порядка предложений может повлиять на ее декларативный смысл. Это значит, что программа с измененным порядком, возможно, будет давать результаты, отличные от результатов исходной программы. Вот пример, демонстрирующий этот факт:
    p :- а, b.
    p :- с.
    Декларативный смысл программы: p истинно тогда и только тогда, когда истинны одновременно и а, и b или истинно с. Это можно записать в виде такой логической формулы:
     p <===> (а & b) U с
    Можно поменять порядок этих двух предложений, но декларативный смысл останется прежним. Введем теперь отсечение
    p :- а, !, b.
    p :- с.
    Декларативный смысл станет теперь таким:
     p <===> (а & b) U ( ~а & с)
    Если предложения поменять местами
    p :- с.
    p :- а, !, b.
    декларативный смысл станет таким:
     p <===> с U ( а & b)
    Важным моментом здесь является то, что при использовании отсечения требуется уделять больше внимания процедурным аспектам. К несчастью, эта дополнительная трудность повышает вероятность ошибок программирования.
    В наших примерах из предыдущего раздела мы видели, что удаление отсечений из программы может привести к изменению ее декларативного смысла. Но были также в такие случаи, когда отсечение на него не влияло. Использование отсечений последнего типа требует меньшей осторожности, и поэтому такие отсечения иногда называют "зелеными отсечениями". С точки зрения наглядности программы такие отсечения "невинны" и их использование вполне приемлемо. При чтении программы их можно просто игнорировать.
    Напротив, отсечения, влияющие на декларативный смысл, называются "красными". Красные отсечения — это такие отсечения, которые делают программу трудной для понимания, и их нужно применять с особой осторожностью.
    Отсечение часто используется в комбинации со специальной целью fail. В частности, мы определили отрицание какой-либо цели (not), как ее неуспех. Определенное таким образом отрицание представляет собой просто особый (более ограниченный) вид отсечения. Из соображений ясности программ мы предпочтем пользоваться not вместо комбинации отсечение — неуспех (всюду, где возможно), поскольку отрицание является понятием более высокого уровня, чем отсечение — неуспех.
    Следует заметить, что использование оператора not также может приводить к неприятностям, и его тоже следует применять с осторожностью. Трудность заключается в том, что тот оператор not, который был нами определен, не в точности соответствует отрицанию в математике. Если спросить
    ?- not человек( мэри).
    система, возможно, ответит "да". Не следует понимать этот ответ как "мэри не человек". Что в действительности пролог-система хочет сказать своим "да", так это то, что программе не хватает информации для доказательства утверждения "Мэри — человек". Это происходит потому, что при обработке цели not система не пытается доказать истинность этой цели впрямую. Вместо этого она пытается доказать противоположное утверждение, и если такое противоположное утверждение доказать не удается, система считает, что цель not — успешна. Такое рассуждение основано на так называемом предположении о замкнутости мира. В соответствии с этим постулатом мир замкнут в том смысле, что все в нем существующее либо указано в программе, либо может быть из нее выведено. И наоборот — если что-либо не содержится в программе (или не может быть из нее выведено), то оно не истинно и, следовательно, истинно его отрицание. Это обстоятельство требует особого внимания, поскольку мы обычно не считаем мир замкнутым: если в программе явно не сказано, что
    человек( мэри)
    то мы этим обычно вовсе не хотим сказать, что Мэри не человек.
    Дальнейшее изучение опасных аспектов использования not проведем на таком примере:
    r( а).
    g( b).
    p( X) :- not r( X).
    Если спросить теперь
    ?-  g( X), p( X).
    система ответит
    X = b
    Если же задать тот же вопрос, но в такой форме
    ?- p( X), g( X).
    система ответит
    nо        (нет)
    Читателю предлагается проследить работу программы по шагам, чтобы понять, почему получились разные ответы. Основная разница между вопросами состоит в том, что переменная X к моменту вычисления p( X) в первом случае была уже конкретизирована, в то время как во втором случае этого еще не произошло.
    Мы детально обсудили аспекты применения отсечения, которое неявно присутствует в not. При этом нами руководило желание предупредить пользователей о соблюдении необходимой осторожности, а вовсе не желание убедить их совсем не пользоваться этим оператором. Отсечение полезно, а часто и необходимо. А что касается трудностей Пролога, порождаемых отсечением, то подобные неудобства часто возникают и при программировании на других языках.

Резюме

    • Отсечение подавляет перебор. Его применяют как для повышения эффективности программ, так и для повышения выразительности языка.
    • Эффективность повышается путем прямого указания (при помощи отсечения) пролог — системе не проверять альтернативы, про которые нам заранее известно, что они должны потерпеть неудачу.
    • Отсечение дает возможность сформулировать взаимно исключающие утверждения при помощи правил вида:
     если Условие то Утверждение1 иначе Утверждение2
    • Отсечение дает возможность ввести отрицание как неуспех: not( Цель) определяется через неуспех цели Цель.
    • Иногда бывают полезными две особые цели true и fail. true — всегда успешна и fail — всегда терпит неудачу.
    • Существуют ограничения в применении отсечения: его появление может нарушить, соответствие между декларативным и процедурным смыслами программы. Поэтому хороший стиль программирования предполагает осторожное применение отсечений и отказ от их применения без достаточных оснований.
    • Оператор not, определенный через неуспех, не полностью соответствует отрицанию в математической логике. Поэтому not тоже нужно применять с осторожностью.
Литература
    Различать "зеленые и "красные" отсечения предложил ван Эмден (1982).
    van Emden M. (1982). Red and green cuts. Logic Programming Newsletter:  2.

Глава 6
Ввод и вывод

    В этой главе мы рассмотрим некоторые встроенные средства для записи данных в файл и считывания их из файла. Такие средства можно также применять и для форматирования объектов данных программы, чтобы получить желаемую форму их внешнего представления. Одновременно мы рассмотрим и средства синтеза и декомпозиции атомов.

6.1. Связь с файлами

    До сих пор мы применяли только один метод связи пользователя с программой — пользователь задает программе вопросы, а программа ему отвечает, конкретизируя переменные. Такой механизм связи прост и практичен и, несмотря на свою простоту, обеспечивает ввод и вывод информации. Однако он обладает слишком малой гибкостью и поэтому часто не совсем удобен. В следующих случаях требуется расширение этого основного механизма связи:
    • ввод данных в форме, отличной от вопроса - например, в виде предложений, написанных на английском языке
    • вывод информации в произвольном формате
    • обмен информацией с произвольным файлом, а не только с пользовательским терминалом
    Встроенные предикаты, предназначенные для этого расширения, отличаются в разных реализациях Пролога. Мы изучим здесь простой и удобный набор таких предикатов, применяемый во многих реализациях. Однако за деталями и специфическими особенностями следует, конечно, обращаться к руководствам по конкретным пролог-системам.
    Рис. 6. 1.  Связь между пролог-программой и различными файлами.
    Рассмотрим вначале вопрос о том, как обмениваться информацией с файлами, а затем — как можно вводить и выводить данные в разных форматах.
    На рис. 6.1 показана общая ситуация, в которой пролог-программа взаимодействует с несколькими файлами. Она может, в принципе, считывать данные из нескольких входных файлов, называемых также входными потоками, и выводить данные в несколько выходных файлов, называемых выходными потоками. Информация, поступающая с пользовательского терминала, рассматривается просто как еще один входной поток. Аналогично информация, выводимая на этот терминал, рассматривается как один из выходных потоков. На оба этих "псевдофайла" ссылаются с помощью имени user (пользователь). Имена остальных файлов программист должен выбирать в соответствии с правилами именования файлов, принятыми в используемой компьютерной системе.
    В каждый момент выполнения пролог-программы лишь два файла являются "активными": один для ввода, другой — для вывода. Эти два файла называются текущим входным потоком и текущим выходным потоком соответственно. В начальный момент эти два потока соответствуют терминалу. Текущий входной поток может быть заменен на другой файл ИмяФайла посредством цели
    see( ИмяФайла)              ( Смотри(ИмяФайла) )
    Такая цель всегда успешна (если только с файлом ИмяФайла все в порядке), а в качестве побочного эффекта происходит переключение ввода с предыдущего входного потока на файл ИмяФайла. Поэтому типичным примером использования предиката see является следующая последовательность целей, которая считывает информацию из файла файл1, а затем переключается обратно на терминал:
    ...
    see( файл1),
    читать_из_файла( Информация),
    see( user),                  ( user — пользователь)
    ...
    Текущий выходной поток может быть изменен при помощи цели вида
    tell( ИмяФайла)              ( сообщить( ИмяФайла) )
    Следующая последовательность целей выводит некоторую информацию в файл3, а после этого перенаправляет последующий вывод обратно на терминал:
    ...
    tell( файл3),
    записать_в_файл( Информация),
    tell( user),
    ...
    Цель
    seen                          ( конец чтения)
    закрывает текущий входной файл. Цель
    told                          ( конец записи)
    закрывает текущий выходной файл.
    Файлы могут обрабатываться только последовательно. В этом смысле все файлы ведут себя так же, как терминал. Каждый запрос на чтение из входного файла приводит к чтению в текущей позиции текущего входного потока. После этого чтения текущая позиция, естественно, будет перемещена на следующий, еще не прочитанный элемент данных. Следующий запрос на чтение приведет к считыванию, начиная с этой новой текущей позиции. Если запрос на чтение делается в конце файла, то в качестве ответа на такой запрос выдается атом end_of_file (конец файла). Считанную один раз информацию считать вторично невозможно.
    Запись производится точно так же, каждый запрос на вывод информации приведет к тому, что она будет присоединена в концу текущего выходного потока. Невозможно сдвинуться назад и переписать часть файла.
    Все файлы являются "текстовыми", т.е. файлами, состоящими из символов. Символы — это буквы, цифры и специальные знаки. О некоторых из них говорят, что они непечатаемые, поскольку, будучи выведенными на терминал, они не появляются на экране. Однако их присутствие может сказаться каким-либо другим образом, например появятся пробелы или пустые строки.
    Существуют два основных способа, с помощью которых файлы рассматриваются в Прологе в зависимости от формы записанной в них информации. Один способ - рассматривать символ как основной элемент файла. Соответственно один запрос на ввод или вывод приведет к чтению или записи одного символа. Для этой цели предназначены встроенные предикаты get, get0 и put (получить, получить0 и выдать).
    Другой способ рассматривать файл — считать, что в качестве основных элементов построения файла используются более крупные единицы текста. Такой естественной более крупной единицей является прологовский терм. Поэтому каждый запрос на ввод/вывод такого типа приведет к переносу целого терма из текущего входного потока или в текущий выходной поток соответственно. Предикатами для переноса термов являются предикаты read и write (читать и писать). В этом случае информация в файле должна, конечно, по форме соответствовать синтаксису термов.
    Очевидно, что выбор формы организации файла зависит от задачи. Всякий раз, когда особенности задачи допускают естественное представление информации в соответствии с синтаксисом термов, следует предпочесть файлы, состоящие из термов. Тогда появится возможность за одно обращение и вводу или выводу пересылать целые осмысленные фрагменты информации. С другой стороны, существуют задачи, природа которых диктует иную организацию файлов. Примером такого рода задачи является обработка предложений естественного языка, скажем, для организации диалога между системой и пользователем на английском языке. В таких случаях файлы следует рассматривать как последовательности символов, которые не укладываются в синтаксис термов.

6.2. Обработка файлов термов 

6.2.1. reаd и write

    Встроенный предикат read используется для чтения термов из текущего входного потока. Цель
    read( X)
    вызывает чтение следующего терма T и сопоставление его с X. Если X — переменная, то в результате X конкретизируется и становится равным T. Если сопоставление терпит неудачу, цель read( X) тоже терпит неудачу. Предикат read — детерминированный в том смысле, что в случае неуспеха не происходит возврата для ввода следующего терма. После каждого терма во входном файле должна стоять точка или пробел, или символ возврата каретки.
    Если read( X) вычисляется в тот момент, когда достигнут конец текущего входного файла, тогда X конкретизируется атомом end_of_file (конец файла).
    Встроенный предикат write выводит терм. Поэтому цель
    write( X)
    выведет терм X в текущий выходной файл. X будет выведен в той же стандартной форме, в какой обычно пролог-система изображает на экране или распечатке значения переменных. Полезной особенностью Пролога является то, что процедура write "знает", как изображать любой терм, как бы сложен он не был.
    Существуют дополнительные встроенные предикаты для форматирования вывода. Они вставляют пробелы в дополнительные строки в выходной поток. Цель
    tab( N)
    выводит N пробелов. Предикат nl (без аргументов) приводит к переходу на новую строку.
    Следующие примеры иллюстрируют использование этих процедур.
    Предположим, у нас есть процедура для вычисления кубов чисел:
    куб( N, С) :-
     С is N * N * N.
    Предположим далее, что мы хотим применить ее для вычисления кубов элементов некоторой последовательности чисел. Это можно сделать с помощью последовательности вопросов:
    ?- куб( 2, X).
    X = 8

    ?- ку6( 5, Y).
    Y = 125

    ?-  куб( 12, Z).
    Z = 1728
    Для получения каждого результата нам придется набирать соответствующую цель. Давайте теперь изменим эту программу так, чтобы процедура куб сама читала соответствующие данные. Теперь программа будет сама читать данные и выводить их кубы до тех пор, пока не будет прочитан атом стоп:
    куб :-
     read( X),
     обработать( X).

    обработать( стоп) :- !.
    обработать( N) :-
     С is N * N * N,
     write( С),
     куб.
    Это был пример программы, декларативный смысл которой трудно сформулировать. В то же время ее процедурный смысл совершенно ясен: чтобы вычислить куб, сначала нужно считать X, а затем его обработать; если X = стоп, то все сделано, иначе вывести X³ и рекурсивно запустить процедуру куб для обработки остальных чисел.
    С помощью этой новой процедуры таблица кубов чисел может быть получена таким образом:
    ?- куб.

    2.
    8
    5.
    125
    12.
    1728
    стоп.
    yes
    Числа 2, 5 и 12 были введены пользователем с терминала, остальные числа были выведены программой. Заметьте, что после каждого числа, введенного пользователем, должна стоять точка, которая сигнализирует о конце терма.
    Может показаться, что приведённую процедуру куб можно упростить. Однако следующая попытка такого упрощения является ошибочной:
    куб :-
     read( стоп), !.
    куб :-
     read( N),
     С is N * N * N,
     write( С),
     куб.
    Причина, по которой эта процедура работает неправильно, станет очевидной, если проследить, какие действия она выполняет с входным аргументом, скажем с числом 5. Цель read( стоп) потерпит неудачу при чтении этого числа, и оно будет потеряно навсегда. Следующая цель read введет следующий терм. С другой стороны может случиться, что сигнал стоп будет считан целью read( N), что приведет к попытке перемножить нечисловую информацию.
    Процедура куб ведет диалог между пользователем и программой. В таких случаях обычно желательно, чтобы программа перед тем, как читать с терминала новые данные, дала сигнал пользователю о том, что она готова к приему информации, а также, возможно, и о том, какого вида информация ожидается. Это делается обычно путем выдачи "приглашения" перед чтением. Нашу процедуру куб можно для этого изменить, например, так:
    куб :-
     write( 'Следующее число, пожалуйста:'),
     read( X),
     обработать( X).

    обработать( стоп) :- !.
    обработать( N) :-
     С is N * N * N,
     write( 'Куб'), write( N), write( 'равен'),
     write( С), nl,
     куб.
    Разговор с новой версией мог бы быть, например, таким:
    ?- куб.

    Следующее число, пожалуйста: 5.
    Куб 5 равен 125

    Следующее число, пожалуйста: 12.
    Куб 12 равен 1728

    Следующее число, пожалуйста: стоп.
    yes
    В некоторых реализациях для того, чтобы приглашение появилось на экране перед чтением, необходимо выдать дополнительный запрос (такой, скажем, как ttyflush) после записи.
    В последующих разделах мы увидим некоторые типичные примеры операций, в которых участвуют чтение и запись.

6.2.2. Вывод списков

    Кроме стандартного прологовского формата для списков существуют несколько других естественных форм их внешнего представления, которые в некоторых ситуациях являются более предпочтительными. Следующая процедура
    вывспис( L)
    выводит список L так, что каждый его элемент занимает отдельную строку:
    вывспис( []).
    вывспис( [X | L) :-
     write( X), nl,
     вывспис( L).
    Если у нас есть список списков, то одной из естественных форм его выводе является такая, при которой все элементы каждого списка записываются на отдельной строке. Для этого мы определим процедуру вывспис2. Вот пример ее использования:
    ?- вывспис2( [ [а, b, с], [d, e, f], [g, h, i] ] ).

    а b с
    d e f
    g h i
    Процедура, выполняющая эту работу, такова:
    вывспис2( []).
    вывспис2( [L | LL] ) :-
     строка( L), nl,
     вывспис1( LL).

    строка( []).
    строка( [X | L] ) :-
     write( X), tab( 1),
     строка( L).
    Список целых чисел иногда удобно представить в виде диаграммы. Следующая процедура диагр выводит список в такой форме (предполагается, что числа списка заключены между 0 и 80). Пример ее использования:
    ?- диагр( [3, 4, 6, 5] ).

    ***
    ****
    ******
    *****
    Процедуру диагр можно определить так:
    диагр( [N | L]) :-
     звездочки( N), nl,
     диагр( L).

    звеэдочки( N) :-
     N > 0,
     write( *),
     N1 is N - 1,
     звездочки( N1).
    звездочки( N) :-
     N =< 80.

6.2.3. Формирование термов

    Предположим, наша программа имеет дело с семьями, которые представлены в виде термов так, как это сделано в гл. 4 (рис. 4.1). Тогда, если, переменная F конкретизирована термом, изображенный на рис. 4.1, то цель
    write( F)
    вызовет вывод этого терма в стандартной форме примерно так:
    семья( членсемьи( том, фокс, дата( 7, май, 1950),
     работает( bbс, 15200)),
     членсемьи( энн, фокс, дата( 9, май, 1951),
      неработает),
     [членсемьи( пат, фокс, дата( 5, май, 1973),
       неработает),
      членсемьи( джим, фокс, дата( 5, май, 1973),
       неработает)])

    родители
     том фокс, датарожд 7 май 1950, работает bbс,
      оклад 15200
     энн фокс, датарожд 9 май 1951, неработает
    дети
     пат фокс, датарожд 5 май 1973, неработает
     джим фокс, датарожд 5 май 1973, неработает
    Рис. 6.2. Улучшенный формат вывода термов, представляющих семью.

    Здесь содержится полная информация, однако форма представления легко может запутать, поскольку трудно проследить, какие ее части образуют самостоятельные семантические единицы. Поэтому обычно предпочитают выводить такую информацию в каком-либо формате, например так, как показано на рис. 6.2. Процедура
    вывсемью( F)
    с помощью которой это достигается, приведена на рис. 6.3.

    вывсемью( семья ( Муж, Жена, Дети) :-
     nl, write( родители), nl, nl,
     вывчленсемьи( Муж), nl,
     вывчленсемьи( Жена), nl, nl,
     write( дети), nl, nl,
     вывчленсемьи( Дети).

    вывчленсемьи( членсемьи( Имя, Фамилия, дата( Д, М, Г), Работа) ) :-
     tab(4), write( Имя),
     tab(1), write( Фамилия),
     write( ', дата рождения'),
     write( Д), tab( 1),
     write( M), tab( 1),
     write( Г), write( ','),
     вывработу( Работа).

    вывсписчлсемьи( []).
    вывсписчлсемьи( [P | L]) :-
     вывчленсемьи( P), nl,
     вывсписчлсемьи( L).

    вывработу( неработает) :-
     write( неработает).
    вывработу( работает Место, Оклад) ) :-
     write(' работает '), write( Место),
     write( ', оклад '), write( Оклад).
    Рис. 6.3.  Программа, обеспечивающая вывод в формате, представленном на рис. 6.2.

6.2.4. Обработка произвольного файла термов

    Типичная последовательность целей для обработки файла F от начала до конца будет выглядеть примерно так:
    ... , see( F), обработкафайла, sеe( user), ...
    Здесь обработкафайла — процедура, которая читает и обрабатывает последовательно каждый терм файла F один за другим до тех пор, пока не встретится конец файла. Приведем типичную схему для процедуры обработкафайла:
    обработкафайла :-
     read( Терм),
     обработка( Терм).

    обработка( end_of_file) :- !.
     % Все сделано
    обработка( Терм) :-
     обраб( Терм),
      % Обработать текущий элемент
     обработкафайла.
      % Обработать оставшуюся часть файла
    Здесь обраб( Терм) представляет процедуру обработки отдельного терма. В качестве примера такой обработки рассмотрим процедуру, которая выдает на терминал каждый терм вместе с его порядковым номером. Назовем эту процедуру показфайла. У нее должен быть дополнительный аргумент для подсчета прочитанных термов:
    показфайла( N) :-
     read( Терм),
     показ( Терм, N).

    показ( Терм, N) :- !
     write( N), tab( 2), write( Терм),
     N1 is N + 1,
     показфайла( N1).
    Вот другой пример программы обработки файлов, построенной по подобной схеме. Пусть есть файл с именем файл1, термы которого имеют форму
    изделие( НомерИзд, Описание, Цена, ИмяПоставщика)
    Каждый терм описывает одну строку каталога изделий. Нужно построить новый файл. содержащий только те изделия, которые выпускаются каким-то конкретным поставщиком. Поскольку поставщик в этом новом файле у всех изделий будет одинаков, его имя нужно записать только один раз в самом начале и убрать из всех остальных термов. Процедура будет называться
    создатьфайл( Поставщик)
    Например, если исходный каталог хранится в файле файл1, а мы хотим создать специальный каталог в файле файл2, содержащий всю информацию о том, что поставляет Гаррисон, тогда мы применим процедуру создатьфайл следующим образом:
    ?- seе( файл1), tеll( файл2), создатьфайл( гаррисон),
     see( user), tell( user).
    Процедуру создатьфайл можно определить так:
    создатьфайл( Поставщик) :-
     write( Поставщик), write( '.'), nl,
     создатьостальное( Поставщик).

    создатьостальное( Поставщик) :-
     read( Изделие),
     обработать( Изделие, Поставщик).

    обработать( end_ot_file) :- !.
    обработать( Изделие( Ном, Опис, Цена, Поставщик),
     Поставщик) :- !,
     write( Изделие( Ном, Опис, Цена) ),
     write( '.'), nl,
     создатьостальное( Поставщик).

    обработать ( _, Поставщик) :-
     создатьостальное( Поставщик).
    Обратите внимание на то, что обработать вписывает точки между термами, чтобы впоследствии файл мог быть прочитан процедурой read.
Упражнения
    6.1. Пусть f — файл термов. Определите процедуру
    найтитерм( Терм)
    которая выводит на терминал новый терм из f, сопоставимый с Терм'ом.
    6.2. Пусть f — файл термов. Напишите процедуру
    найтивсетермы( Терм)
    которая выводит на экран все термы из f, сопоставимые с Tepм'ом. Обеспечьте при этом, чтобы во время поиска Терм не конкретизировался (это могло бы помешать ему сопоставиться с другими термами дальше по файлу).

6.3. Обработка символов

    Символ записывается в текущий выходной поток при помощи цели
    put( С)
    где С — символ, который нужно вывести, в кодировке ASCII (число от 0 до 127), например, вопрос
    ?- put( 65), put( 66), put( 67).
    породит следующий вывод:
    АВС
    65 — ASCII-код 'А', 66 — 'В', 67 — 'С'.
    Одиночный символ можно считать из текущего входного потока при помощи цели
    get0( С)
    Она вызывает чтение символа из входного потока, и переменная С конкретизируется ASCII-кодом этого символа. Вариантом предиката get0 является get, который используется для чтения символов, отличных от пробела. Поэтому цель
    get( С)
    вызовет пропуск всех непечатаемых символов (в частности пробелов) от текущей позиции во входном потоке до первого печатаемого символа. Этот символ затем тоже считывается и С конкретизируется его ASCII-кодом.
    В качестве примера использования предикатов, переносящих одиночные символы, давайте рассмотрим процедуру сжатие, выполняющую следующую работу: считывание из входного потока произвольного предложения и вывод его же, но в форматированном виде — все группы идущих подряд пробелов заменены на одиночные пробелы. Для простоты будем считать, что все предложения входного потока, обрабатываемые процедурой сжатие, оканчиваются точками, а слова в них отделены одно от другого одним или несколькими пробелами, и только ими. Тогда следующее предложение будет допустимым:
    Робот    пытался     налить    вина    из     бутылки.
    Цель сжатие выведет его в таком виде:
    Робот пытался налить вина из бутылки.
    Процедура сжатие будет иметь такую же структуру, как и процедуры обработки файлов из предыдущего раздела. Сначала она прочтет первый символ, выведет его, а затем завершит обработку, в зависимости от того, каким был этот символ. Есть три альтернативы, которые соответствуют следующим случаям: символ является точкой, пробелом или буквой. Взаимное исключение этих трех альтернатив обеспечивается в программе отсечениями:
    сжатие :-
     get0( С),
     put( С).

    сделатьостальное( С).
     сделатьостальное( 46) :- !.
      % 46 -АSСII-код точки, Все сделано

    сделатьостальное( 32) :- !,
      % 32 - ASCII-код пробела
     get( С),
     put( С),
     сделатьостальное( С).

    сделатьостальное( Буква) :-
     сжатие.
Упражнение
    6.3. Обобщите процедуру сжатие на случай запятых. Все пробелы, стоящие непосредственно перед запятой, нужно убрать, а после каждой запятой нужно поместить единственный пробел.

6.4. Создание и декомпозиция атомов

    Часто желательно информацию, считанную как последовательность символов, иметь в программе в виде атома. Для этой цели существует встроенный предикат name. Он устанавливает взаимосвязь между атомами и их кодировкой в ASCII. Таким образом,
    name( A, L)
    истинно, если L — список кодов ASCII, кодирующих атом. Например,
    name( zx232, [122, 120, 50, 51, 50] )
    истинно. Существуют два типичных способа использования name:
    (1) дан атом, разбить его на отдельные символы;
    (2) дан список символов, объединить их в один атом.
    Примером первого случая применения предиката является программа, которая имеет дело с заказами такси и водителями. Все это представлено в программе атомами
    заказ1, заказ2, водитель1, водитель2, такси1, таксилюкс
    Предикат
    такси( X)
    проверяет, относится ли атом X к тем атомам, которые представляют такси:
    такси( X) :-
     name( X, Хспис),
     nаmе( такси, Тспис),
     конк( Тспис, _, Хспис).

    конк( [], L, L).
    конк( [А | L1], L2, [А | L3] ) :-
     конк( L1, L2, L3).
    Предикаты заказ и водитель можно определить аналогично.
    Наш следующий пример иллюстрирует применение объединения отдельных символов в один атом. Мы определим предикат
    читпредложение( Списслов)
    который считает предложение с произвольной формой на естественном языке и конкретизирует Списслов некоторым внутренним представлением этого предложения. В качестве внутреннего представления, обеспечивающего возможность дальнейшей обработки предложения, естественно избрать следующее: каждое слово входного предложения представляется прологовским атомом, а все предложение представляется списком этих атомов. Например, если входной поток таков:
    Мэри было приятно видеть неудачу робота.
    то цель читпредложение( Предложение) вызовет конкретизацию
    Предложение=['Мэри', было, приятно, видеть, неудачу, робота]
    Для простоты будем считать, что каждое предложение оканчивается точкой и внутри него не используются никакие знаки препинания.
    Программа для читпредложение показана на рис. 6.4. Вначале процедура читает текущий входной символ Симв, а затем передает его процедуре читостальное для завершения работы. Процедура читостальное должна правильно обработать следующие три случая:
    (1) Симв — точка, тогда все сделано.
    (2) Симв — пробел, — игнорировать его и читпредложение от остального ввода.
    (3) Симв — буква, — сначала считать слово Слово, которое начинается с Симв, а затем запустить читпредложение, чтобы считать оставшуюся часть предложения, породив при этом Списслов. Общим результатом этого будет список [Слово | Списслов].
    Процедура, считывающая символы одного слова, такова:
    читбуквы( Буква, Буквы, Сделсимв)
    Ее три аргумента:
    (1) Буква — текущая буква (уже считанная) читаемого слова.
    (2) Буквы — список букв (начинающийся с буквы Буква), оставшихся до конца слова.
    (3) Следсимв — входной символ, непосредственно следующий за читаемым словом. Следсимв не должен быть буквой.
    Мы завершим данный пример замечанием о возможном применения процедуры читпредложение. Ее можно использовать в программе обработки текста на естественном языке. Предложения, представленные в виде списков слов, имеют удобную форму для дальнейшей обработки при помощи Пролога. В простейшем случае такой обработкой мог бы быть поиск во входном предложении определенных ключевых слов. Значительно более сложной задачей является понимание предложения, т.е. извлечение из него смысла, представленного в некотором избранном формализме. Это важная область исследований в искусственном интеллекте.

    /*
    Процедура читпредложение считывает предложение
    и из его слов создает список атомов. Например,
     читпредложение( Списслов)
    порождает
     Списслов=['Мэри', было, приятно, видеть, неудачу, робота]
    если входным было предложение
     Мэри было приятно видеть неудачу робота.
    */
    читпредложение( Списслов) :-
     gеt0( Симв),
     читостальное( Симв, Списслов).

    читостальное( 46, []) :- !.
      % Конец предложения: 46 = ASCII-код для '.'
     читостальное( 32, Списслов) :- !,
      % 32 = ASCII-код для пробела
     читпредложение( Списслов).
      % Пропустить пробел

    читостальное( Буква, [Слово | Списслов]) :-
     читбуквы( Буква, Буквы, Следсимв),
      % Считать буквы текущего слова
     nаmе( Слово, Буквы),
      читостальное( Следсимв, Списслов).

    читбуквы( 46, [], 46) :- !.
     % Конец слова: 46 = точка
    читбуквы( 32, [], 32) :- !.
     % Конец слова: 32 = пробел
    читбуквы( Бкв, [Бкв | Буквы], Следсимв) :-
     get0( Симв),
     читбуквы( Симв, Буквы, Следсимв).
    Рис. 6.4. Процедура для преобразования предложения в список атомов.

Упражнения
    6.4. Определите отношение
    начинается( Атом, Символ)
    для проверки, начинается ли Атом с символа Символ.
    6.5. Определите процедуру plural, которая преобразует английские существительные из единственного числа во множественное, добавляя к слову окончание s. Например:
    ?- plural( table, X).
    X  =  tables
    6.6. Напишите процедуру
    поиск( Ключслово, Предложение)
    которая при каждом вызове находит в текущем входном файле предложение, содержащее заданное ключевое слово Ключслово. Предложение в своей исходной форме должно быть представлено в виде последовательности символов или в виде атома (процедуру читпредложение из данного раздела можно соответственно модифицировать).

6.5. Ввод программ: consult, reconsult

    Передавать программы пролог-системе можно при помощи двух встроенных предикатов: consult и reconsult. Чтобы система считала программу из файла F, нужно поставить цель
    ?- consult( F).
    В результате все предложения программы, содержащейся в F, будут использованы пролог-системой при ответе на дальнейшие вопросы пользователя. Если позже в том же сеансе произойдет "консультация" с другим файлом, предложения этого нового файла будут просто добавлены в конец текущего множества предложений.
    Для того, чтобы запустить программу, не обязательно записывать ее в файл, а затем "консультироваться" с ним. Вместо чтения файла система может принимать программу прямо с терминала, который соответствует псевдофайлу user. Добиться этого можно так:
    ?- consult( user).
    После этого система будет ожидать ввода предложений программы с терминала.
    В некоторых пролог-системах применяется сокращенная запись для чтения программ из файлов. Файлы, из которых предстоит чтение, просто помещаются в список и этот список используется в качестве цели. Например:
    ?- [файл1, файл2, файл3].
    Это в точности эквивалентно следующим трем целям:
    ?-  соnsult( файл1), соnsult( файл2), соnsult( файл3).
    Встроенный предикат reconsult аналогичен consult. Цель
    ?- reconsult( F).
    даст тот же эффект, что и consult( F) с одним исключением. Если в F есть предложения, касающиеся отношений, которые уже были определены ранее, старые определения заменяются на новые из F. Разница между consult и reconsult в том, что consult всегда добавляет новые предложения, в то время как reconsult переопределяет ранее введенные определения. Однако reconsult не произведет никакого эффекта на те отношения, о которых в F ничего не сказано.
    Следует еще раз заметить, что детали "консультирования" с файлами зависят от конкретной реализации Пролога. Это замечание касается и большинства остальных встроенных процедур.

Резюме

    • Ввод и вывод (отличный от связанного с вопросами к программе) осуществляется посредством встроенных процедур. В данной главе описан простой и практичный набор таких процедур, имеющихся во многих реализациях Пролога.
    • Файлы являются последовательными. Существуют текущие входной и выходной потоки. Пользовательский терминал рассматривается как файл с именем user.
    • Переключение между потоками осуществляется с помощью процедур:
    sее( Файл)
     Файл становится текущим входным потоком
    tell( Файл)
     Файл становится текущим выходным потоком
    seen
     закрывается текущий входной поток
    told
     закрывается текущий выходной поток
    • Файлы читаются и записываются двумя способами:
      как последовательности символов
      как последовательности термов
    Встроенные процедуры для чтения и записи символов и термов таковы:
    rеad( Терм)
      вводит следующий терм
    write( Терм)
      выводит Терм
    put( КодСимвола)
      выводит символ с заданным ASCII-кодом
    get0( КодСимвола)
      вводит следующий символ
    gеt( КодСимвола) 
      вводит ближайший следующий "печатаемый" символ
    • Две процедуры облегчают форматирование:
    nl      начинает новую строку
    tab( N) выводит N пробелов
    • Процедура nаmе( Атом, СписокКодов) осуществляет синтез и декомпозицию атомов. СписокКодов — список ASCII кодов символов, образующих Атом. 

Глава 7
Другие встроенные процедуры

    В данной главе мы изучим некоторые другие, не упоминавшиеся ранее встроенные процедуры, предназначенные для более серьезного программирования на Прологе. Эта новые процедуры дают возможность запрограммировать операции, которые известными нам средствами запрограммировать невозможно. Один набор таких процедур касается обработки термов: эти процедуры проверяют, была ли некоторая переменная конкретизирована целым числом, они разбирают термы на части, конструируют новые термы и т.д. Другой полезный набор процедур работает с "базой данных": процедуры из этого набора добавляют новые отношения в программу или удаляют из нее существующие.
    Множество встроенных процедур сильно зависит от конкретной реализации Пролога. Однако процедуры, обсуждаемые в данной главе, имеются во многих реализациях. Различные реализации могут иметь свои наборы дополнительных средств.

7.1. Проверка типов термов 

7.1.1. Предикаты varnоnvaratomintegeratomic

    Термы бывают разных типов: переменные, целые числа, атомы и т.д. Если терм — переменная, то в некоторый момент выполнения программы он может оказаться конкретизированным или не конкретизированным. Далее, если он конкретизирован, то его значение может быть атомом, структурой и т.п. Иногда бывает полезно узнать, каков тип этого значения. Например, пусть мы хотим сложить значения двух переменных X и Y:
    Z is X + Y
    Перед вычислением этой цели необходимо, чтобы X и Y были конкретизированы целыми числами. Если у нас нет уверенности в том, что X и Y действительно конкретизированы целыми числами, то перед выполнением арифметического действия нужно проверить это программно.
    Для этого следует воспользоваться встроенным предикатом integer (целое). Предикат integer( X) принимает значение истина, если X — целое или если X — переменная, имеющая целое значение. Будем говорить в этом случае, что X "обозначает" целое. Цель для сложения X и Y можно тогда "защитить" такой проверкой переменных X и Y:
    ..., integer( X), integer( Y), Z is X + Y, ...
    Если неверно, что X и Y оба являются целыми, то система и не будет пытаться их сложить. Таким образом, цели integer "охраняют" цель Z is X + Y от бессмысленного вычисления.
    Встроенные предикаты этого типа таковы: var (переменная), nonvar (непеременная), atom (атом), integer (целое), atomic (атомарный). Они имеют следующий смысл:
    var( X)
    Эта цель успешна, если X в текущий момент — не конкретизированная переменная.
    nonvar( X)
    Эта цель успешна, если X — терм, отличный от переменной, или если X — уже конкретизированная переменная.
    atom( X)
    Эта цель истинна, если X обозначает атом.
    integer( X)
    Цель истинна, если X обозначает целое.
    atomic( X)
    Цель истинна, если X обозначает целое или атом.
    Следующие примеры вопросов к пролог-системе иллюстрируют применение этих встроенных предикатов:
    ?- var( Z), Z = 2.
    Z = 2

    ?- Z = 2, var( Z).
    no

    ?- integer( Z), Z = 2.
    no

    ?- Z = 2, integer( Z), nonvar( Z).
    Z = 2

    ?- atom( 22).
    no

    ?- atomic( 22).
    yes

    ?- atom( ==>).
    yes

    ?- atom( p( 1) ).
    no
    Необходимость в предикате atom продемонстрируем на следующем примере. Пусть мы хотим подсчитать, сколько раз заданный атом встречается в некоторой списке объектов. Для этого мы определим процедуру
    счетчик( А, L, N)
    где А — атом, L — список и N — количество вхождений этого атома. В качестве первой попытки можно было бы определить счетчик так:
    счетчик( _, [], 0).
    счетчик( A, [A | L], N) :- !,
     счетчик( A, L, N1),
      % N1 - число вхождений атома в хвост
     N is N1 + 1.
    счетчик( А, [ _ | L], N) :-
     счетчик( A, L, N).
    Теперь на нескольких примерах посмотрим, как эта процедура работает:
    ?- счетчик( а, [а, b, а, а], N).
    N = 3

    ?- счетчик( a, [a, b, X, Y], Na).
    Na = 3
    ...

    ?- счетчик( b, [a, b, X, Y], Nb).
    Nb = 3
    ...

    ?- L=[a, b, X, Y], счетчик( а, L, Na), счетчик( b, L, Nb).
    Na = 3
    Nb = 1
    X = a
    Y = a
    ...
    В последнем примере как X, так и Y после конкретизации получили значение а, и поэтому Nb оказалось равным только 1, однако мы хотели не этого. Нас интересовало количество реальных появлений конкретного атома, а вовсе не число термов, сопоставимых с этим атомом. В соответствии с этим более точным определением отношения счетчик мы должны теперь проверять, является ли голова списка атомом. Усовершенствованная программа выглядит так:
    счетчик( _, [], 0).
    счетчик( А, [В | L], N) :-
     atom( В), А = В, !, % B равно атому А?
    счетчик( A, L, N1),  % Подсчет в хвосте
     N is N1 + 1;
    счетчик( А, L, N).
      % Иначе - подсчитать только в хвосте
    В следующем более сложном упражнении по программированию числовых ребусов используется предикат nonvar.

7.1.2. Решение числового ребуса с использованием nonvar

    Известным примером числового ребуса является
    D O N A L D
    +
    G E R A L D
    -----------
    R O B E R T
    Задача состоит в том. чтобы заменить буквы D, О, N и т.д. на цифры таким образом, чтобы вышеприведенная сумма была правильной. Разным буквам должны соответствовать разные цифры, иначе возможно тривиальное решение, например, все буквы можно заменить на нули.
    Определим отношение
    сумма( N1, N2, N)
    где N1, N2 и N представляют три числа данного ребуса. Цель cyммa(N1, N2, N) достигается, если существует такая замена букв цифрами, что N1+N2 = N.
    Первым шагом к решению будет выбор представления чисел N1, N2 и N в программе. Один из способов - представить каждое число в виде списка его цифр. Например, число 255 будет тогда представляться списком [2, 2, 5]. Поскольку значения цифр нам не известны заранее, каждая цифра будет обозначаться соответствующей неинициализированной переменной. Используя это представление, мы можем сформулировать задачу так:
      [ D, O, N, A, L, D ]
    + [ G, E, R, A, L, D ]
    = [ R, О, B, E, R, T ]
    Теперь задача состоит в том. чтобы найти такую конкретизацию переменных D, О, N и т.д., для которой сумма верна. После того, как отношение сумма будет запрограммировано, задание для пролог-системы на решение ребуса будет иметь вид
    ?- сумма( [D, O, N, A, L, D], [G, E, R, A, L, D],
     [R, O, В, E, R, T ).
    Рис. 7.1. Поразрядное сложение. Отношения в показанном i-м разряде такие: D3i = (C1 + D1i + D2i) mod 10; C = (C1 + D1i + D2i) div 10 (div — целочисленное деление, mod — остаток от деления).
    Для определения отношения сумма над списками цифр нам нужно запрограммировать реальные правила суммирования в десятичной системе счисления. Суммирование производится цифра за цифрой, начиная с младших цифр в сторону старших, всякий раз учитывая цифру переноса справа. Необходимо также сохранять множество допустимых цифр, т.е. цифр, которые еще не были использованы для конкретизации уже встретившихся переменных. Поэтому, вообще говоря, кроме трех чисел N1, N2 и N в рассмотрении должна участвовать некоторая дополнительная информация, как показано на рис. 7.1:
    • перенос перед сложением
    • перенос после сложения
    • множество цифр, доступных перед сложением
    • оставшиеся цифры, не использованные при сложении
    Для формулировки отношения сумма мы снова воспользуемся принципом обобщения задачи: введем вспомогательное, более общее отношение сумма1. Это отношение будет иметь несколько дополнительных аргументов, соответствующих той дополнительной информации, о которой говорилось выше:
    сумма1( N1, N2, N, C1, С, Цифры1, Цифры)
    Здесь N1, N2 и N — наши три числа, как и в отношении сумма, C1 — перенос справа (до сложения N1 и N2), а С — перенос влево (после сложения). Пример:
    ?- сумма1( [H, E], [6, E], [U, S], 1, 1,
     [1, 3, 4, 7, 8, 9], Цифры ).

    H = 8
    E = 3
    S = 7
    U = 4
    Цифры = [1, 9]
    Если N1 и N удовлетворяют отношению сумма, то, как показано на рис. 7.1, C1 и С должны быть равны 0. Цифры1 — список цифр, которые не были использованы для конкретизации переменных. Поскольку мы допускаем использование в отношении сумма любых цифр, ее определение в терминах отношения сумма1 выглядит так:
    сумма( N1, N2, N) :-
     cyммa1( N1, N2, N, 0, 0, [0, 1, 2, 3, 4, 5, 6, 7, 8, 9], _ ).
    Бремя решения задачи переложено теперь на отношение сумма1. Но это отношение является уже достаточно общим, чтобы можно было определить его рекурсивно. Без ограничения общности мы предположим, что все три списка, представляющие три числа, имеют одинаковую длину. Наш пример, конечно, удовлетворяет этому условию, но если это не так, то всегда можно приписать слева нужное количество нулей к более "короткому" числу.
    Определение отношения сумма1 можно разбить на два случая:
    (1) Все три числа представляются пустыми списками. Тогда
    сумма1( [], [], [], 0, 0, Циф, Циф).
    (2) Все три числа имеют какую-то самую левую цифру и справа от нее - остальные цифры. То есть, они имеют вид:
    [D1 | N1], [D2 | N2], [D | N]
    В этом случае должны выполняться два условия:
     (а) Оставшиеся цифры, рассматриваемые как три числа N1, N2 и N, сами должны удовлетворять отношению сумма1, выдавая влево некоторый перенос C2 и оставляя некоторое подмножество неиспользованных цифр Циф2.
     (b) Крайние левые цифры D1, D2 и D, а также перенос C2 должны удовлетворять отношению, показанному на рис. 7.1: C2, D1 и D2 складываются, давая в результате D и перенос влево. Это условие в нашей программе формулируется в виде отношения суммацифр.
    Переводя это на Пролог, получаем:
    сумма1( [D1 | N1], [D2 | N2], [D | N], C1, С, Циф1, Циф) :-
     сумма1( Nl, N2, N, C1, C2, Циф1, Циф2),
     суммацифр( D1, D2, C2, D, С, Циф2, Циф).
    Осталось только описать на Прологе отношение суммацифр. В его определении есть одна тонкая деталь, касающаяся применения металогического предиката nonvar. D1, D2 и D должны быть десятичными цифрами. Если хоть одна из этих переменных еще не конкретизирована, ее нужно конкретизировать какой-нибудь цифрой из списка Циф2. Как только такая конкретизация произошла, эту цифру нужно удалить из множества доступных цифр. Если D1, D2 и D уже конкретизированы, тогда, конечно, ни одна из доступных цифр "потрачена" не будет. В программе эти действия реализуются при помощи недетерминированного вычеркивания элемента списка. Если этот элемент - не переменная, ничего не вычеркивается (конкретизации не было). Вот эта программа:
    удалить( Элемент, Список, Список) :-
     nonvar( Элемент), !.
    удалить( Элемент, [Элемент | Список ], Список).
    удалить(Элемент, [А | Список], [А | Список1]) :-
     удалить( Элемент, Список, Список1).
    Полная программа для решения арифметических ребусов приводится на рис. 7.2. В программу включены также определения двух ребусов. Вопрос к пролог-системе для ребуса про DONALD'a, GERALD'a и ROBERT'a с использованием этой программы выглядит так:
    ?- ребус1( N1, N2, N), сумма( N1, N2, N).

    % Решение числовых ребусов
    сумма( N1, N2, N) :-
      % Числа представлены в виде списков цифр
     сумма1( N1, N2, N,
      0, 0,
       % Перенос справа и перенос влево равны 0
      [0, 1, 2, 3, 4, 5, 6, 7, 8, 9], _ ).
       % Все цифры доступны

    сумма1( [], [], [], 0, 0, Цифры, Цифры).
    сумма1( [D1 | N1], [D2 | N2], [D | N], C1, С, Циф1, Циф) :-
     сумма1( Nl, N2, N, C1, C2, Циф1, Циф2),
     суммацифр( Dl, D2, C2, С, Циф2, Циф).

    суммацифр( Dl, D2, C1, D, С, Циф1, Циф) :-
     удалить( D1, Циф1, Циф2),
      % Выбор доступной цифры для D1
     удалить( D2, Циф2, Циф3),
      % Выбор доступной цифры для D2
     удалить( D, Циф3, Циф),
      % Выбор доступной цифры для D
     S is D1 + D2 + C1,
     D is S mod 10,
     С is S div 10.

    удалить( A, L, L) :-
     nonvar( A), !.
      % Переменная А уже конкретизирована
    удалить( А, [А | L], L).
    удалить( А, [В | L], [В | L1]) :-
     удалить( A, L, L1).

    % Примеры ребусов
    ребус1( [D, O, N, A, L, D],
     [G, E, R, A, L, D],
     [R, O, B, E, R, T].

    ребус2( [0, S, E, N, D],
     [0, M, O, R, E],
     [M, O, N, E, Y].
    Рис. 7.2.  Программа для арифметических ребусов.

    Иногда этот ребус упрощают, сообщая часть решения в виде дополнительного ограничения, например D равно 5. В такой форме ребус можно передать пролог-системе при помощи сумма1:
    ?- сумма1( [5, O, N, A, L, 5],
     [G, E, R, A, L, 5],
     [R, O, B, E, R, T],
     0, 0, [0, 1, 2, 3, 4, 6, 7, 8, 9], _ ).
    Интересно, что в обоих случаях существует только одно решение, т.е. только один способ заменить буквы цифрами.
Упражнения
    7.1. Напишите процедуру упростить для упрощения алгебраических сумм, в которых участвуют числа и символы (строчные буквы). Пусть эта процедура переупорядочивает слагаемые так, чтобы символы предшествовали числам. Вот примеры ее использования:
    ?- упростить( 1 + 1 + а, E).
    E = а + 2

    ?- упростить( 1 + a + 4 + 2 + b + с, E).
    E = а + b + с + 7

    ?- упростить( 3 + x + x, E).
    E = 2*x + 3
    7.2. Определите процедуру
    добавить( Элемент, Список)
    для добавления нового элемента в список. Предполагается, что все элементы, хранящиеся в списке, — атомы. Список состоит из всех хранящихся в нем элементов, а за ними следует хвост, который не конкретизирован и служит для принятия новых элементов. Пусть, например, в списке уже хранятся а, b и с, тогда
    Список = [а, b, с | Хвост]
    где Хвост — переменная. Цель
    добавить( d, Список)
    вызовет конкретизацию
    Xвoст = [d | НовыйХвост] и
    Список = [а, b, с, d | НовыйХвост]
    Таким способом структура может наращиваться, включая в себя новые элементы. Определите также соответствующее отношение принадлежности.

7.2. Создание и декомпозиция термов: =.., functor, arg, name

    Имеются три встроенные предиката для декомпозиции и синтеза термов: functor, arg и =... Рассмотрим сначала отношение =.., которое записывается как инфиксный оператор. Цель
    Терм =.. L
    истинна, если L — список, начинающийся с главного функтора терма Терм, вслед за которым идут его аргументы. Вот примеры:
    ?- f( а, b) =.. L.
    L = [f, а, b]

    ?- T =.. [прямоугольник, 3, 5].
    T = прямоугольник( 3, 5)

    ?- Z =.. [p, X, f( X,Y) ].
    Z = p( X, f( X,Y) )
    Зачем может понадобиться разбирать терм на составляющие компоненты — функтор и его аргументы? Зачем создавать новый терм из заданного функтора и аргументов? Следующий пример показывает, что это действительно нужно.
    Рассмотрим программу, которая манипулирует геометрическими фигурами. Фигуры — это квадраты, прямоугольники, треугольники, окружности в т.д. В программе их можно представлять в виде термов, функтор которых указывает на тип фигуры, а аргументы задают ее размеры:
    квадрат( Сторона)
    треугольник( Сторона1, Сторона2, Сторона3)
    окружность( R)
    Одной из операций над такими фигурами может быть увеличение. Его можно реализовать в виде трехаргументного отношения
    увел( Фиг, Коэффициент, Фиг1)
    где Фиг и Фиг1 — геометрические фигуры одного типа (с одним в тем же функтором), причем параметры Фиг1 равны параметрам Фиг, умноженным на Коэффициент. Для простоты будем считать, что все параметры Фиг, а также Коэффициент уже известны, т.е. конкретизированы числами. Один из способов программирования отношения увел таков:
    увел( квадрат( A), F, квадрат( А1) ) :-
     A1 is F*A

    увел( окружность( R), F, окружность( R1) ) :-
     R1 is F*R1

    увел( прямоугольник( А, В), F, прямоугольник( А1, В1)) :-
     A1 is F*A, B1 is F*B.
    Такая программа будет работать, однако она будет выглядеть довольно неуклюже при большом количестве различных типов фигур. Мы будем вынуждены заранее предвидеть все возможные типы, которые могут когда-либо встретиться. Придется заготовить по предложению на каждый тип, хотя во всех этих предложениях по существу говорится одно и то же: возьми параметры исходной фигуры, умножь их на коэффициент и создай фигуру того же типа с этими новыми параметрами.
    Ниже приводится программа, в которой делается попытка (неудачная) справиться для начала хотя бы со всеми однопараметрическими фигурами при помощи одного предложения:
    увел( Тип( Пар), F, Тип( Пар1) ):-
     Пар1 is F*Пар.
    Однако в Прологе подобные конструкции, как правило, запрещены, поскольку функтор должен быть атомом, и, следовательно, переменная Тип синтаксически не будет воспринята как функтор. Правильный метод — воспользоваться предикатом '=..'. Тогда процедура увел будет иметь обобщенную формулировку, пригодную для фигур любых типов:
    увел( Фиг, F, Фиг1):-
     Фиг =.. [Тип | Параметры],
     умножспис( Параметры, F, Параметры1),
     Фиг1 =.. [Тип | Параметры)].

    умножспис( [], _, []).
    умножспис( [X | L], F, [X1 | L1] ) :-
     X1 is F*X, умножспис( L, F, L1).
    Наш следующий пример использования предиката '=..' связан с обработкой символьных выражений (формул), где часто приходится подставлять вместо некоторого подвыражения другое выражение. Мы определим отношение
    подставить( Подтерм, Терм, Подтерм1, Терм1)
    следующим образом: если все вхождения Подтерм'а в Терм заменить на Подтерм1, то получится Терм1. Например:
    ?- подставить( sin( x), 2*sin( x)*f( sin( x)), t, F ).
    F = 2*t*f( t)
    Под "вхождением" Подтерм'а в Терм мы будем понимать такой элемент Терм'а, который сопоставим с Подтерм'ом. Вхождения будем искать сверху вниз. Поэтому цель
    ?- подставить( а+b, f( а, А+В), v, F).
    даст результат
    F = f( а, v)
    А = а
    В = b
    а не
    F = f( a, v + v)
    А = а + b
    В = а + b
    При определении отношения подставить нам нужно рассмотреть несколько случаев и для каждого принять свое решение:
    если Подтерм = Терм, то Терм1 = Подтерм1;
    иначе если Терм — "атомарный" (не структура),
     то Терм1 = Терм (подставлять нечего),
     иначе подстановку нужно выполнить над аргументами Tерм'a.
    Эти правила можно превратить в программу, показанную на рис. 7.3.
    Термы, полученные при помощи предиката '=..', разумеется, можно использовать и в качестве целей. Это дает возможность программе в процессе вычислений самой порождать и вычислять цели, структура которых не обязательно была известна заранее в момент написания программы. Последовательность целей, иллюстрирующая этот прием, могла бы выглядеть примерно так:
    получить( Функтор),
     вычислить( Списарг),
     Цель =.. [Функтор | Списарг],
     Цель
    Здесь получить и вычислить — некоторые определенные пользователем процедуры, предназначенные для вычисления компонент цели. После этого цель порождается предикатом '=..', а затем активизируется при помощи простого указания ее имени Цель.

    % Отношение
    %
    % подставить( Подтерм, Терм, Подтерм1, Терм1)
    %
    % состоит в следующем: если все вхождения Подтерм'а в Терм
    % заменить на Подтерм1, то получится Терм1.

    % Случай 1: Заменить весь терм
    подставить( Терм, Терм, Терм1, Терм1) :- !.

    % Случай 2: нечего подставлять
    подставить( _, Терм, _, Терм) :-
     atomic( Терм), !.

    % Случай 3: Проделать подстановку в аргументах
    подставить( Под, Терм, Под1, Терм1) :-
     Терм =.. [F | Арги],
      % Выделить аргументы
     подспис( Под, Арги, Под1, Арги1),
      % Выполнить над ними подстановку
     Терм1 =.. [F | Арги1].

    подспис( Под, [Терм | Термы], Под1, [Терм1 | Термы1]) :-
     подставить( Под, Терм, Под1, Терм1),
     подспис( Под, Термы, Под1, Термы1).
    Рис. 7.3.  Процедура подстановки в терм вместо одного из его подтермов некоторого другого подтерма.

    Некоторые реализации Пролога могут содержать требование, чтобы все цели, появляющиеся в программе, по своей синтаксической форме были либо атомами, либо структурами с атомом в качестве главного функтора. Поэтому переменная, вне зависимости от ее текущей конкретизации, может по своей синтаксической форме не подойти в качестве цели. Эту трудность можно обойти при помощи еще одного встроенного предиката call (вызов), чьим аргументом является цель, подлежащая вычислению. В соответствий с этим предыдущий пример должен быть переписан так:
    ...
    Цель = [Функтор | Списарг],
    саll( Цель)
    Иногда нужно извлечь из терма только его главный функтор или один из аргументов. В этом случае можно, конечно, воспользоваться отношением '=..'. Но более аккуратным и практичным, а также и более эффективным способом будет применение одной из двух новых встроенных процедур: functor и аrg. Вот их смысл: цель
    functor( Терм, F, N)
    истинна, если F — главный функтор Tepм'a, а N — арность F. Цель
    arg( N, Терм, А)
    истинна, если А — N-й аргумент в Терм'е, в предположении, что нумерация аргументов идет слева направо и начинается с 1. Примеры для иллюстрации:
    ?- functor( t( f( x), X, t), Фун, Арность).
    Фун = t
    Арность = 3

    ?- аrg( 2, f( X, t( a), t( b) ), Y).
    Y = t( a)

    ?- functor( D, дата, 3),
    arg( 1, D, 29),
    arg( 2, D, июнь),
    arg( 3, D, 1982).
    D = дата( 29, июнь, 1982)
    Последний пример иллюстрирует особый случай применения предиката functor. Цель functor( D, дата, 3) создает "обобщенный" терм с главным функтором дата и тремя аргументами. Этот терм обобщенный, так как все три его аргумента — не конкретизированные переменные, чья имена генерируются пролог-системой. Например:
    D = дата( _5, _6, _7)
    Затем эти три переменные конкретизируются при помощи трех целей аrg.
    К рассматриваемому множеству встроенных предикатов относится также и введенный в гл. 6 предикат name, предназначенный для синтеза и декомпозиция атомов. Для полноты изложения мы здесь напомним его смысл. Цель
    name( A, L)
    истинна, если L — список кодов (в кодировке ASCII) символов, входящих в состав атома А.
Упражнения
    7.3. Определите предикат конкрет(Терм) так, чтобы он принимал значение истина, когда в Tepм'e нет ни одной неконкретизированной переменной.
    7.4. Процедура подставить из данного раздела производит, при наличии разных вариантов, лишь самую "внешнюю" подстановку.
    Модифицируйте эту процедуру так, чтобы она находила все возможные варианты при помощи автоматического перебора. Например:
    ?- подставить( a+b, f( A+B), новый, НовыйТерм).
    А = а
    В = b
    НовыйТерм = f( новый);

    А = а+b
    В = а+b
    НовыйТерм = f( новый + новый)
    Наша исходная версия нашла бы только первый из этих двух ответов.
    7.5. Определите отношение
    включает( Tepм1, Терм2)
    которое выполняется, если Терм1 является более общим, чем Терм2. Например:
    ?- включает( X, с).
    yes

    ?- включает( g( X), g( t( Y))).
    yes

    ?- включает f( X,X), f( a,b)).
    no

7.3. Различные виды равенства

    В каких случаях мы считаем, что два терма равны? До сих пор мы рассматривали три вида равенства в Прологе. Первый был связан с сопоставлением и записывался так:
    X = Y
    Это равенство верно, если X и Y сопоставимы. Следующий вид равенства записывался в виде
    X is E
    Такое равенство выполняется, если X сопоставим со значением арифметического выражения E. Мы также рассматривали равенства вида
    Е1 =:= Е2
    которые верны, если равны значения арифметических выражений Е1 и Е2. Наоборот, если значения двух арифметических выражений не равны, мы пишем
    Е1 =/= Е2
    Иногда нам может понадобиться более строгий вид равенства - буквальное равенство двух термов. Этот вид реализован еще одним встроенным предикатом, записываемым как инфиксный оператор '==':
    Т1 == Т2
    Это равенство выполняется, если термы Т1 и Т2 идентичны, т.е. имеют в точности одинаковую структуру, причем все соответствующие компоненты совпадают. В частности, должны совпадать и имена переменных. Отношение "не идентичны", дополнительное к данному, записывается так:
    T1 \== T2
    Приведем несколько примеров:
    ?- f( a, b) == f( а, b).
    yes

    ?- f( a, b) == f( a, X).
    nо

    ?- f( a, X) == f( a, Y).
    no

    ?- X \== Y.
    yes

    ?- t( X, f( a, Y) ) == t( X, f( a, Y) ).
    yes
    Давайте в качестве примера переопределим отношение
    счетчик( Терм, Список, N)
    из разд. 7.1. Пусть на этот раз N будет числом буквальных вхождений Терм'а в Список:
    счетчик( _, [], 0).
    счетчик( Терм, [Голова | L], N) :-
     Терм == Голова, !,
     счетчик( Терм, L, N1),
     N is N1 + 1;
    счетчик( Терм, L, N). 

7.4. Работа с базой данных

    Реляционная модель предполагает, что база данных — это описание некоторого множества отношений. Пролог-программу можно рассматривать как именно такую базу данных: описание отношений частично присутствует в ней в явном виде (факты), а частично — в неявном (правила). Более того, встроенные предикаты дают возможность корректировать эту базу данных в процессе выполнения программ. Это делается добавлением к программе (в процессе вычисления) новых предложений или же вычеркиванием из нее уже существующих. Предикаты, используемые для этой цели, таковы: assert (добавить), asserta, assertz и retract (удалить).
    Цель
    assert( С)
    всегда успешна, а в качестве своего побочного эффекта вызывает "констатацию" предложения С, т.е. добавление его к базе данных.
    Цель
    retract( С)
    приводит к противоположному эффекту: удаляет предложение, сопоставимое с С. Следующий диалог иллюстрирует их работу:
    ?- кризис.
    no

    ?- assert( кризис).
    yes

    ?- кризис.
    yes

    ?- retract( кризис).
    yes

    ?- кризис.
    no
    Предложения, добавленные к программе таким способом, ведут себя точно так же, как и те, что были в "оригинале" программы. Следующий пример показывает, как с помощью assert и retract можно работать в условиях изменяющейся обстановки. Предположим, что у нас есть такая программа о погоде:
    хорошая :-
     солнечно, not дождь.

    необычная :-
     солнечно, дождь.

    отвратительная :-
     дождь, туман.

    дождь.

    туман.
    Ниже приводится пример диалога с этой программой, во время которого база данных постепенно изменяется:
    ?- хорошая.
    no

    ?- отвратительная.
    yes

    ?- retract( туман).
    yes

    ?- отвратительная.
    no

    ?- assert( солнечно).
    yes

    ?- необычная.
    yes

    ?- retract( дождь).
    yes

    ?- хорошая.
    yes
    Добавлять и удалять можно предложения любой формы. Следующий пример показывает, что, кроме того, retract может работать недетерминировано: используя механизм возвратов с помощью только одной цели retract можно удалить целое множество предложений. Предположим, что в программе, с которой мы "консультируемся", есть такие факты:
    быстр( энн).
    медл( том).
    медл( пат).
    К этой программе можно добавить правило:
    ?- assert(
     ( быстрее( X, Y) :-
       быстр( X), медл( Y) ) ).
    yes

    ?- быстрее( А, В).
    А = энн
    В = том

    ?- retract( медл( X) ).
    X = том;
    X = пат;
    nо

    ?- быстрее( энн, _ ).
    nо
    Заметьте, что при добавлении нового правила синтаксис требует, чтобы оно (как аргумент assert) было заключено в скобки.
    При добавлении нового предложения может возникнуть желание указать, на какое место в базе данных его следует поместить. Такую возможность обеспечивают предикаты asserta и assertz. Цель
    asserta( С)
    помещает С в начале базы данных. Цель
    assertz( С)
    — в конце. Вот пример, иллюстрирующий работу этих предикатов:
    ?- assеrt( p( a)), assertz( p( b) ), asserta( p( c) ).
    yes

    ?- p( X).
    X = с;
    X = а;
    X = b
    Между consult и assertz существует связь. Обращение к файлу при помощи consult можно в терминах assertz определить так: считать все термы (предложения) файла и добавить их в конец базы данных.
    Одним из полезных применений предиката asserta является накопление уже вычисленных ответов на вопросы. Пусть, например, в программе определен предикат
    решить( Задача, Решение)
    Мы можем теперь задать вопрос и потребовать, чтобы ответ на него был запомнен, с тем чтобы облегчить получение ответов на будущие вопросы:
    ?- решить( задача1, решение),
     asserta( решить( Задача1, Решение) ).
    Если в первой из приведенных целей будет успех, ответ ( Решение) будет сохранен, а затем использован так же, как и любое другое предложение, при ответе на дальнейшие вопросы.
    Преимущество такого "запоминания" состоит в том, что на дальнейшие вопросы, сопоставимые с добавленным фактом, ответ будет получен, как правило, значительно быстрее, чем в первый раз. Ответ будет теперь получен как факт, а не как результат вычислений, требующих, возможно, длительного времени.
    Развитие этой идеи состоит в использовании assert для порождения всех решений в виде таблицы фактов. Например, создать таблицу произведений всех чисел от 0 до 9 можно так: породить пару чисел X и Y, вычислить Z, равное X * Y, добавить эти три числа в виде строки в таблицу произведений, а затем создать искусственно неуспех. Неуспех вызовет возврат, в результате которого будет найдена новая пара чисел, и в таблицу добавится новая строка и т.д. Эта идея реализована в процедуре
    таблица :-
     L = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9],
     принадлежит( X, L), % Выбрать первый сомножитель
     принадлежит( Y, L), % Выбрать второй сомножитель
     Z is X*Y,
     assert( произв( X,Y,Z) ),
     fail.
    Вопрос
    ?- таблица.
    потерпит, конечно, неудачу, однако в качестве своего побочного эффекта приведет к добавлению в базу данных целой таблицы произведений. После этого можно, например, спросить, какие пары дают произведения, равные 8:
    ?- произв( А, В, 8).
    А = 1
    В = 8;

    А = 2
    В = 4;

    ...
    Здесь следует сделать одно замечание, относящееся к стилю программирования. Приведенные примеры показали некоторые явно полезные применения assert и retract. Однако использование этих отношений требует особой внимательности. Не рекомендуется применять их слишком часто и без должной осторожности - это плохой стиль программирования. Ведь добавляя и удаляя предложения, мы фактически изменяем программу. Поэтому отношения, выполнявшиеся в некоторой ее точке, могут оказаться неверными в другой. В разные моменты времени ответы на одни и те же вопросы будут различными. Таким образом, большое количество обращений к assert и retract может затемнить смысл программы и станет трудно разобрать, что истинно, а что — нет. В результате поведение программы может стать непонятным, трудно объяснимым, и вряд ли можно будет ей доверять.
Упражнения
    7.6.
     (а) Напишите вопрос к пролог-системе, который удаляет из базы данных всю таблицу произв.
     (b) Измените этот вопрос так, чтобы он удалил из таблицы только те строки, в которых произведение равно 0.
    7.7. Определите отношение
    копия( Терм, Копия)
    которое порождает такую копию Терм'а Копия, в которой все переменные переименованы. Это легко сделать, используя assert и retract.

7.5. Средства управления

    К настоящему моменту мы познакомились с большинством дополнительных средств управления, за исключением repeat (повторение). Здесь мы для полноты приводим список всех таких средств.
    • отсечение, записывается как '!', предотвращает перебор, введено в гл. 5.
    • fail — цель, которая всегда терпит неудачу.
    • true — цель, которая всегда успешна.
    • not( P) — вид отрицания, который всегда ведет себя в точном соответствии со следующим определением:
    not( P) :- P, !, fail; true.
    Некоторые проблемы, связанные с отсечением и not детально обсуждались в гл. 5.
    • саll( P) активизирует цель P. Обращение к саll имеет успех, если имеет успех P.
    • repeat — цель, которая всегда успешна. Ее особое свойство состоит в том, что она недетерминирована, поэтому всякий раз, как до нее доходит перебор, она порождает новую ветвь вычислений. Цель repeat ведет себя так, как если бы она была определена следующим образом:
    repeat.
    repeat :- repeat.
    Стандартный способ применения repeat показан в процедуре квадраты, которая читает последовательность чисел и выдает их квадраты. Последовательность чисел заканчивается атомом стоп, который служит для процедуры сигналом окончания работы.
    квадраты :-
     repeat,
     read( X),
     ( X = стоп, !;
       Y is X*X, write( Y), fail ).

7.6. bagof, setof и findall

    При помощи механизма автоматического перебора можно получить одни за другим все объекты, удовлетворяющие некоторой цели. Всякий раз, как порождается новое решение, предыдущее пропадает и становится с этого момента недоступным. Однако у нас может возникнуть желание получить доступ ко всем порожденным объектам сразу, например собрав их в список. Встроенные предикаты bagof (набор) и setof (множество) обеспечивают такую возможность; вместо них иногда используют предикат findall (найти все).
    Цель
    bagof( X, P, L)
    порождает список L всех объектов X, удовлетворяющих цели P. Обычно bagof имеет смысл применять только тогда, когда X и P содержат общие переменные. Например, допустим, что мы включили в программу следующую группу предложений для разбиения букв (из некоторого множества) на два класса — гласные и согласные:
    класс( а, глас).
    класс( b, согл).
    класс( с, согл).
    класс( d, согл).
    класс( e, глас).
    класс( f, согл).
    Тогда мы можем получить список всех согласных, упомянутых в этих предложениях, при помощи цели:
    ?- bagof( Буква, класс( Буква, согл), Буквы).
    Буквы = [d, c, d, f]
    Если же мы в указанной цели оставим класс букв неопределенным, то, используя автоматический перебор, получим два списка букв, каждый из которых соответствует одному из классов:
    ?- bagof( Буква, класс( Буква, Класс), Буквы).

    Класс = глас
    Буквы = [а,e]

    Класс = согл
    Буквы = [b, c, d, f]
    Если bagof( X, P, L) не находит ни одного решения для P, то цель bagof просто терпит неуспех. Если один и тот же X найден многократно, то все его экземпляры будут занесены в L, что приведет к появлению в L повторяющихся элементов.
    Предикат setof работает аналогично предикату bagof. Цель
    setof( X, P, L)
    как и раньше, порождает список L объектов X, удовлетворяющих P. Только на этот раз список L будет упорядочен, а из всех повторяющихся элементов, если таковые есть, в него попадет только один. Упорядочение происходит по алфавиту или по отношению '<', если элементы списка — числа. Если элементы списка — структуры, то они упорядочиваются по своим главным функторам. Если же главные функторы совпадают, то решение о порядке таких термов принимается по их первым несовпадающим функторам, расположенным выше и левее других (по дереву). На вид объектов, собираемых в список, ограничения нет. Поэтому можно, например, составить список пар вида
    Класс / Буква
    при этом гласные будут расположены в списке первыми ("глас" по алфавиту раньше "согл"):
    ?- setof( Класс/Буква, класс( Буква, Класс), Спис).
    Спис = [глас/а, глас/e, согл/b, согл/с, согл/d, согл/f]
    Еще одним предикатом этого семейства, аналогичным bagof, является findall.
    findall( X, P, L)
    тоже порождает список объектов, удовлетворяющих P. Он отличается от bagof тем, что собирает в список все объекты X, не обращая внимание на (возможно) отличающиеся для них конкретизации тех переменных из P, которых нет в X. Это различие видно из следующего примера:
    ?- findall( Буква, класс( Буква, Класс), Буквы).
    Буквы = [a, b, c, d, e, f]
    Если не существует ни одного объекта X, удовлетворяющего P, то findall все равно имеет успех и выдает L = [].
    Если в используемой реализации Пролога отсутствует встроенный предикат findall, то его легко запрограммировать следующим образом. Все решения для P порождаются искусственно вызываемыми возвратами. Каждое решение, как только оно получено, немедленно добавляется к базе данных, чтобы не потерять его после нахождения следующего решения. После того, как будут получены и сохранены все решения, их нужно собрать в список, а затем удалить из базы данных при помощи retract. Весь процесс можно представлять себе как построение очереди из порождаемых решений. Каждое вновь порождаемое решение добавляется в конец этой очереди при помощи assert. Когда все решения собраны, очередь расформировывается. Заметим также, что конец очереди надо пометить, например, атомом "дно" (который, конечно, должен отличаться от любого ожидаемого решения). Реализация findall в соответствии с описанным методом показана на рис. 7.4.

    findall( X, Цель, ХСпис) :-
     саll( Цель),           % Найти решение
     assert( очередь( X) ), % Добавить егo
     fail;                  % Попытаться найти еще решения
     assertz( очередь( дно) ),
      % Пометить конец решений
     собрать( ХСпис).       % Собрать решения в список

    собрать( L) :-
     retract( очередь(X) ), !,
      % Удалить следующее решение
     ( X == дно, !, L = [];
      % Конец решений?
     L = [X | Остальные], собрать( Остальные) ).
      % Иначе собрать остальные
    Рис. 7.4. Реализация отношения findall.

Упражнения
    7.8. Используя bagof, определите отношение
    множподмножеств( Мн, Подмн)
    для вычисления множества всех подмножеств данного множества (все множества представлены списками).
    7.9. Используя bagof, определите отношение
    копия( Терм, Копия)
    чтобы Копия представляла собой Терм, в котором все переменные переименованы.

Резюме

    • В любой реализации Пролога обычно предусматривается набор встроенных процедур для выполнения различных полезных операций, несуществующих в чистом Прологе. В данной главе мы рассмотрели подобное множество предикатов, имеющееся во многих реализациях.
    • Тип терма можно установить при помощи следующих предикатов:
    var( X)     X — (неконкретизированная) переменная
    nonvar( X)  X — не переменная
    atom( X)    X — атом
    integer( X) X — целое
    atomic( X)  X — или атом, или целое
    • Термы можно синтезировать или разбирать на части:
    Терм =.. [Функтор [ СписокАргументов]
    functor( Терм, Функтор, Арность)
    arg( N, Терм, Аргумент)
    name( атом, КодыСимволов)
    • Программу на Прологе можно рассматривать как реляционную базу данных, которую можно изменять при помощи следующих процедур:
    аssert( Предл)  добавляет предложение Предл к программе
    аssеrtа( Предл) добавляет в начало
    assertz( Предл) добавляет в конец
    rеtrасt( Предл) удаляет предложение, сопоставимое с предложением Предл
    • Все объекты, отвечающие некоторому заданному условию, можно собрать в список при помощи предикатов:
    bagof( X, P, L)   L — список всех X, удовлетворяющих условию P
    setof( X, P, L)   L — отсортированный список всех X, удовлетворяющих условию P
    findall( X, P, L) аналогичен bagof
    • repeat — средство управления, позволяющее порождать неограниченное число альтернатив для автоматического перебора.

Глава 8
Стиль и методы программирования

    В этой главе мы рассмотрим некоторые общие принципы хорошего программирования и обсудим, в частности, следующие вопросы: "Как представлять себе прологовские программы? Из каких элементов складывается хороший стиль программирования на Прологе? Как отлаживать пролог-программы? Как повысить их эффективность?"

8.1. Общие принципы хорошего программирования

    Главный вопрос, касающийся хорошего программирования, — это вопрос о том, что такое хорошая программа. Ответ на этот вопрос не тривиален, поскольку существуют разные критерии качества программ.
    Следующие критерии общеприняты:
    • Правильность. Хорошая программа в первую очередь должна быть правильной, т.е. она должна делать именно то, для чего предназначалась. Это требование может показаться тривиальным и самоочевидным. Однако в случае сложных программ правильность достигается не так часто. Распространенной ошибкой при написании программ является пренебрежение этим очевидным критерием, когда большее внимание уделяется другим критериям — таким, как эффективность.
    • Эффективность. Хорошая программа не должна попусту тратить компьютерное время и память.
    • Простота, читабельность. Хорошая, программа должна быть легка для чтения и понимания. Она не должна быть более сложной, чем это необходимо. Следует избегать хитроумных программистских трюков, затемняющих смысл программы. Общая организация программы и расположение ее текста должны облегчать ее понимание.
    • Удобство модификации. Хорошая программа должна быть легко модифицируема и расширяема. Простота и модульная организация программы облегчают внесение в нее изменений.
    • Живучесть. Хорошая программа должна быть живучей. Она не должна сразу "ломаться", если пользователь введет в нее неправильные или непредусмотренные данные. В случае подобных ошибок программа должна сохранять работоспособность и вести себя разумно (сообщать об ошибках).
    • Документированность. Хорошая программа должна быть хорошо документирована. Минимальная документация — листинг с достаточно подробными комментариями.
    Степень важности того или иного критерия зависит от конкретной задачи, от обстоятельств написания программы, а также от условий ее эксплуатации. Наивысшим приоритетом пользуется, без сомнения, правильность. Обычно простоте, удобству модификации, живучести и документированности придают во крайней мере не меньший приоритет, чем эффективности.
    Существует несколько общих соображений, помогающих реализовать вышеупомянутые критерии на практике. Одно важное правило состоит в том, чтобы сначала продумать задачу, подлежащую решению, и лишь затем приступать к написанию текста программы на конкретном языке программирования. Как только мы хорошо поймем задачу, и способ ее решения будет нами полностью и во всех деталях продуман, само программирование окажется быстрым и легким делом и появится неплохой шанс за короткое время получить правильную программу.
    Распространенной ошибкой является попытка начать писать программу даже до того, как была уяснена полная постановка задачи. Главная причина, по которой следует воздерживаться от преждевременного начала программирования, состоит в том, что обдумывание задачи и поиск метода ее решения должны проводиться в терминах, наиболее адекватных самой этой задаче. Эти термины чаще всего далеки от синтаксиса применяемого языка программирования и могут быть утверждениями на естественном языке и рисунками.
    Исходная формулировка способа решения задачи должна быть затем трансформирована в программу, но этот процесс трансформации может оказаться нелегким. Неплохим подходом к его осуществлению является применение принципа пошаговой детализации. Исходная формулировка рассматривается как "решение верхнего уровня", а окончательная программа - как "решение низшего уровня".
    В соответствии с принципом пошаговой детализации окончательная программа получается после серии трансформаций или "детализаций" решения. Мы начинаем с первого решения — решения верхнего уровня, а затем последовательно проходим по цепочке решений; все эти решения эквивалентны, но каждое следующее решение выражено более детально, чей предыдущее. На каждом шагу детализации понятия, использовавшиеся в предыдущих формулировках, прорабатываются более подробно, а их представление все более приближается к языку программирования. Следует отдавать себе отчет в том, что детализация касается не только процедур, но и структур данных. На начальных шагах работают обычно с более абстрактными, более крупными информационными единицами, детальная структура которых уточняется впоследствии.
    Стратегия нисходящей пошаговой детализации имеет следующие преимущества:
    • она позволяет сформулировать грубое решение в терминах, наиболее адекватных решаемой задаче;
    • в терминах таких мощных понятий решение будет сжатым и простым, а потому скорее всего правильным;
    • каждый шаг детализации должен быть достаточно малым, чтобы не представлять больших интеллектуальных трудностей, если это удалось — трансформация решения в новое, более детальное представление скорее всего будет выполнена правильно, а следовательно, таким же правильным окажется и полученное решение следующего шага детализации.
    В случае Пролога мы можем говорить о пошаговой детализации отношений. Если существо задачи требует мышления в алгоритмических терминах, то мы можем также говорить и о детализации алгоритмов, приняв процедурную точку зрения на Пролог.
    Для того, чтобы удачно сформулировать решение на некотором уровне детализации и придумать полезные понятия для следующего, более низкого уровня, нужны идеи. Поэтому программирование — это творческий процесс, что верно в особенности, когда речь идет о начинающих программистах. По мере накопления опыта работа программиста постепенно становится все менее искусством и все более ремеслом. И все же главным остается вопрос: как возникают идеи? Большинство идей приходит из опыта, из тех задач, решения которых уже известны. Если мы не знаем прямого решения задачи, то нам может помочь уже решенная задача, похожая на нашу. Другим источником идей является повседневная жизнь. Например, если необходимо запрограммировать сортировку списка, то можно догадаться, как это сделать, если задать себе вопрос: "А как бы я сам стал действовать, чтобы расположить экзаменационные листы студентов по их фамилиям в алфавитном порядке?"
    Общие принципы, изложенные в данном разделе, известны также как составные части "структурного программирования"; они, в основном, применимы и к программированию на Прологе. В следующих разделах мы обсудим их более детально, обращая особое внимание на применение этих принципов программирования к Прологу.

8.2. Как представлять себе программы на Прологе

    Одной из характерных особенностей Пролога является то, что в нем допускается как процедурный, так и декларативный стиль мышления при составлении программы. Эти два подхода детально обсуждались в гл. 2 и затем многократно иллюстрировались на примерах. Какой из этих подходов окажется более эффективным и практичным, зависит от конкретной задачи. Обычно построение декларативного решения задачи требует меньших усилий, но может привести к неэффективной программе. В процессе построения решения мы должны сводить задачу к одной или нескольким более легким подзадачам. Возникает важный вопрос: как находить эти подзадачи? Существует несколько общих принципов, которые часто применяются при программировании на Прологе. Они будут обсуждаться в следующих разделах.

8.2.1. Использование рекурсии

    Этот принцип состоит в том, чтобы разбить задачу на случаи, относящиеся к двум группам:
    (1) тривиальные, или "граничные" случаи;
    (2) "общие" случаи, в которых решение получается из решений для (более простых) вариантов самой исходной задачи.
    Этот метод мы использовали в Прологе постоянно. Рассмотрим еще один пример: обработка списка элементов, при которой каждый элемент преобразуется по одному и тому же правилу. Пусть это будет процедура
    преобрспис( Спис, F, НовСпиc)
    где Спис — исходный список, F — правило преобразования (бинарное отношение), а НовСпиc — список всех преобразованных элементов. Задачу преобразования списка Спис можно разбить на два случая:
    (1) Граничный случай: Спис = []
    Если Спис = [], то НовСпиc = [], независимо от F
    (2) Общий случай: Спис = [X | Хвост]
    Чтобы преобразовать список вида [X | Хвост], необходимо:
      преобразовать список Хвост; результат — НовХвост;
      элемент X по правилу F; результат — НовХ;
      результат преобразования всего списка — [НовХ | НовХвост].
    Тот же алгоритм, изложенный на Прологе:
    преобрспис( [], _, []).
    преобрспис( [X | Хвост], F, [НовХ | НовХвост] :-
     G =.. [F, X, НовХ],
     саll( G),
     пpeoбpcпиc( Хвост, F, НовХвост).
    Одна из причин того, что рекурсия так естественна для определения отношений на Прологе, состоит в том, что объекты данных часто сами имеют рекурсивную структуру. К таким объектам относятся списки и деревья. Список либо пуст (граничный случай), либо имеет голову и хвост, который сам является списком (общий случай). Двоичное дерево либо пусто (граничный случай), либо у него есть корень и два поддерева, которые сами являются двоичными деревьями (общий случай). Поэтому для обработки всего непустого дерева необходимо сначала что-то сделать с его корнем, а затем обработать поддеревья.

8.2.2. Обобщение

    Часто бывает полезно обобщить исходную задачу таким образом, чтобы полученная более общая задача допускала рекурсивную формулировку. Исходная задача решается, тогда как частный случай ее более общего варианта. Обобщение отношения обычно требует введения одного или более дополнительных аргументов. Главная проблема состоит в отыскании подходящего обобщения, что может потребовать более тщательного изучения задачи. В качестве примера рассмотрим еще раз задачу о восьми ферзях. Исходная задача состояла в следующем: разместить на доске восемь ферзей так, чтобы обеспечить отсутствие взаимных нападений. Соответствующее отношение назовем
    восемьферзей( Поз)
    Оно выполняется (истинно), если Поз — представленная тем или иным способом позиция, удовлетворяющая условию задачи. Можно предложить следующую полезную идею: обобщить задачу, перейдя от 8 ферзей к произвольному количеству — N. Количество ферзей станет дополнительным аргументом:
    n_ферзей( Поз, N)
    Преимущество такого обобщения состоит в том, что отношение n_ферзей допускает непосредственную рекурсивную формулировку:
    (1) Граничный случай: N = 0
    Разместить 0 ферзей — тривиальная задача.
    (2) Общий случай: N > 0
    Для "безопасного" размещения N ферзей необходимо:
    • получить требуемое размещение для (N - 1) ферзей и
    • добавить оставшегося ферзя так, чтобы он не бил ни одного из уже поставленных ферзей.
    Как только мы научимся решать более общую задачу, решить исходную уже не составит труда:
    восемьферзей( Поз) :- n_ферзей( Поз, 8)

8.2.3. Использование рисунков

    В поиске идей для решения задачи часто бывает полезным обратиться к ее графическому представлению. Рисунок может помочь выявить в задаче некоторые существенные отношения. После этого останется только описать на языке программирования то, что мы видим на рисунке.
    Использование графического представления при решении задач полезно всегда, однако похоже, что в Прологе оно работает особенно хорошо. Происходит это по следующим причинам:
    (1) Пролог особенно хорошо приспособлен для задач, в которых фигурируют объекты и отношения между ними. Часто такие задачи естественно иллюстрировать графами, в которых узлы соответствуют объектам, а дуги — отношениям.
    (2) Естественным наглядным изображением структурных объектов Пролога являются деревья.
    (3) Декларативный характер пролог-программ облегчает перевод графического представления на Пролог. В принципе, порядок описания "картинки" не играет роли, мы просто помещаем в программу то, что видим, в произвольном порядке. (Возможно, что из практических соображений этот порядок впоследствии придется подправить с целью повысить эффективность программы.) 

8.3. Стиль программирования

    Подчиняться при программировании некоторым стилистическим соглашениям нужно для того, чтобы
    • уменьшить опасность внесения ошибок в программы и
    • создавать программы, которые легко читать, понимать, отлаживать и модифицировать.
    Ниже дается обзор некоторых из составных частей хорошего стиля программирования на Прологе. Мы рассмотрим некоторые общие правила хорошего стиля, табличную организацию длинных процедур и вопросы комментирования программ.

8.3.1. Некоторые правила хорошего стиля

    • Предложения программы должны быть короткими. Их тела, как правило, должны содержать только несколько целей.
    • Процедуры должны быть короткими, поскольку длинные процедуры трудны для понимания. Тем не менее длинные процедуры вполне допустимы в том случае, когда они имеют регулярную структуру (этот вопрос еще будет обсуждаться в данной главе).
    • Следует применять мнемонические имена процедур и переменных. Они должны отражать смысл отношений и роль объектов данных.
    • Существенное значение имеет расположение текста программы. Для улучшения читабельности программы нужно постоянно применять пробелы, пустые строки и отступы. Предложения, относящиеся к одной процедуре, следует размещать вместе в виде отдельной группы строк; между предложениями нужно вставлять пустую строку (этого не нужно делать, возможно, только в случае перечисления большого количества фактов, касающихся одного отношения); каждую цель можно размещать на отдельной строке. Пролог-программы иной раз напоминают стихи по эстетической привлекательности своих идей и формы.
    • Стилистические соглашения такого рода могут варьироваться от программы к программе, так как они зависят от задачи и от личного вкуса. Важно, однако, чтобы на протяжении одной программы постоянно применялись одни и те же соглашения.
    • Оператор отсечения следует применять с осторожностью. Если легко можно обойтись без него — не пользуйтесь им. Всегда, когда это возможно, предпочтение следует отдавать "зеленым отсечениям" перед "красными". Как говорилось в гл. 5, отсечение называется "зеленым", если его можно убрать, на затрагивая декларативный смысл предложения. Использование "красных отсечений" должно ограничиваться четко определенными конструкциями, такими как оператор not или конструкция выбора между альтернативами. Примером последней может служить
    если Условие то Цель1 иначе Цель2
    С использованием отсечения эта конструкция переводится на Пролог так:
    Условие, !. % Условие выполнено?
    Цель1;      % Если да, то Цель1
    Цель2       % Иначе - Цель2
    • Из-за того, что оператор not связан с отсечением, он тоже может привести к неожиданностям. Поэтому, применяя его, следует всегда помнить точное прологовское определение этого оператора. Тем не менее, если приходится выбирать между not и отсечением, то лучше использовать not, чем какую-нибудь туманную конструкцию с отсечением.
    • Внесение изменений в программу при помощи assert и retract может сделать поведение программы значительно менее понятным. В частности, одна и та же программа на одни и те же вопросы будет отвечать по-разному в разные моменты времени. В таких случаях, если мы захотим повторно воспроизвести исходное поведение программы, нам придется предварительно убедиться в том, что ее исходное состояние, нарушенное при обращении к assert и retract, полностью восстановлено.
    • Применение точек с запятой может затемнять смысл предложений. Читабельность можно иногда улучшить, разбивая предложения, содержащие точки с запятой, на несколько новых предложений, однако за это, возможно, придется заплатить увеличенном длины программы и потерей в ее эффективности.
    Для иллюстрации некоторых положений данного раздела рассмотрим отношение
    слить( Спис1, Спис2, Спис3)
    где Спис1 и Спис2 — упорядоченные списки, а Спис3 — результат их слияния (тоже упорядоченный). Например:
    слить( [2, 4, 7], [1, 3, 4, 8], [1, 2, 3, 4, 4, 7, 8] )
    Вот стилистически неудачная реализация этого отношения:
    слить( Спис1, Спис2, Спис3) :-
     Спис1 = [], !, Спис3 = Спис2;
      % Первый список пуст
     Спис2 = [], !,  Спис3 = Спис1;
      % Второй список пуст
     Спис1 = [X | Остальные],
     Спис2 = [Y | Остальные],
     ( X < Y, !,
       Z = X, % Z - голова Спис3
     слить( Остальные1, Спис2, Остальные3 );
     Z = Y,
     слить( Спис1, Остальные2, Остальные3 ) ),
     Спис3 = [Z | Остальные3].
    Вот более предпочтительный вариант, не использующий точек с запятой:
    слить( [], Спис, Спис).
    слить( Спис, [], Спис).
    слить( [X | Остальные1], [Y | Остальные2], [X | Остальные3] ) :-
     X < Y, !,
     слить(Остальные1, [Y | Остальные2], Остальные3).
    слить( Спис1, [Y | Остальные2], [Y | Остальные3]): -
     слить( Спис1, Остальные2, Остальные3 ).

8.3.2. Табличная организация длинных процедур

    Длинные процедуры допустимы, если они имеют регулярную структуру. Обычно эта структура представляет собой множество фактов, соответствующее определению какого-либо отношения в табличной форме. Преимущества такой организации длинной процедуры состоят в том, что:
    • Ее структуру легко понять.
    • Ее удобно совершенствовать: улучшать ее можно, просто добавляя новые факты.
    • Ее легко проверять и модифицировать (просто заменяя отдельные факты, независимо от остальных). 

8.3.3. Комментирование

    Программные комментарии должны объяснять в первую очередь, для чего программа предназначена и как ею пользоваться, и только затем — подробности используемого метода решения и другие программные детали. Главная цель комментариев — обеспечить пользователю возможность применять программу, понимать ее и, может быть, модифицировать. Комментарии должны содержать в наиболее краткой форме всю необходимую для этого информацию. Недостаточное комментирование — распространенная ошибка, однако, программу можно и перенасытить комментариями. Объяснения деталей, которые и так ясны из самого текста программы, являются ненужной перегрузкой.
    Длинные фрагменты комментариев следует располагать перед текстом, к которому они относятся, в то время как короткие комментарии должны быть вкраплены в сам текст. Информация, которую в самом общем случае следует включать в комментарии, должна схватывать следующие вопросы:
    • Что программа делает, как ею пользоваться (например, какую цель следует активизировать и каков вид ожидаемых результатов), примеры ее применения.
    • Какие предикаты относятся к верхнему уровню?
    • Как представлены основные понятия (объекты)?
    • Время выполнения и требования по объему памяти.
    • Каковы ограничения на программу?
    • Использует ли она какие-либо средства, связанные с конкретной операционной системой?
    • Каков смысл предикатов программы? Каковы их аргументы? Какие аргументы являются "входными" и какие — "выходными", если это известно? (В момент запуска предиката входные аргументы имеют полностью определенные значения, не содержащие не конкретизированных переменных.)
    • Алгоритмические и реализационные детали.

8.4. Отладка

    Когда программа не делает того, чего от нее ждут, главной проблемой становится отыскание ошибки (или ошибок). Всегда легче найти ошибку в какой-нибудь части программы (или в отдельном модуле), чем во всей программе. Поэтому следует придерживаться следующего хорошего принципа: проверять сначала более мелкие программные единицы и только после того, как вы убедились, что им можно доверять, начинать проверку большего модуля или всей программы.
    Отладка в Прологе облегчается двумя обстоятельствами: во-первых, Пролог — интерактивный язык, поэтому можно непосредственно обратиться к любой части программы, задав пролог-системе соответствующий вопрос; во-вторых, в реализациях Пролога обычно имеются специальные средства отладки. Следствием этих двух обстоятельств является то, что отладка программ на Прологе может производиться, вообще говоря, значительно эффективнее, чем в других языках программирования.
    Основным средством отладки является трассировка (tracing). "Трассировать цель" означает: предоставить пользователю информацию, относящуюся к достижению этой цели в процессе ее обработки пролог-системой. Эта информация включает:
    • Входную информацию — имя предиката и значении аргументов в момент активизации цели.
    • Выходную информацию — в случае успеха, значения аргументов, удовлетворяющих цели; в противном случае — сообщение о неуспехе.
    • Информацию о повторном входе, т.е. об активизации той же цели в результате автоматического возврата.
    В промежутке между входом и выходом можно получить трассировочную информацию для всех подцелей этой цели. Таким образом, мы можем следить за обработкой нашего вопроса на всем протяжении нисходящего пути от исходной цели к целям самого нижнего уровня, вплоть до отдельных фактов. Такая детальная трассировка может оказаться непрактичной из-за непомерно большого количества трассировочной информации. Поэтому пользователь может применить "селективную" трассировку. Существуют два механизма селекции: первый подавляет выдачу информации о целях, расположенных ниже некоторого уровня; второй трассирует не все предикаты, а только некоторые, указанные пользователем.
    Средства отладки приводятся в действие при помощи системно-зависимых встроенных предикатов. Обычно используется следующий стандартный набор таких предикатов:
    trace
    запускает полную трассировку всех целей, следующих за trace.
    notrace
    прекращает дальнейшее трассирование.
    spy( P) (следи за P)
    устанавливает режим трассировки предиката P. Обращение к spy применяют, когда хотят получить информацию только об указанном предикате и избежать трассировочной информации от других целей (как выше, так и ниже уровня запуска P). "Следить" можно сразу за несколькими предикатами.
    nospy( P)
    прекращает "слежку" за P.
    Трассировка ниже определенной глубины может быть подавлена во время выполнения программы при помощи специальных команд. Существуют и другие команды отладки, такие как возврат к предыдущей точке процесса вычислений. После такого возврата можно, например, повторить вычисления с большей степенью детализации трассировки.

8.5. Эффективность

    Существует несколько аспектов эффективности программ, включая такие наиболее общие, как время выполнения и требования по объему памяти. Другим аспектом является время, необходимое программисту для разработки программы.
    Традиционная архитектура вычислительных машин не очень хорошо приспособлена для реализации прологовского способа выполнения программ, предусматривающего достижение целей из некоторого списка. Поэтому ограниченность ресурсов по времени и пространству сказывается в Прологе, пожалуй, в большей степени, чем в большинстве других языков программирования. Вызовет ли это трудности в практических приложениях, зависит от задачи. Фактор времени практически не имеет значения, если пролог-программа, которую запускают по несколько раз в день, занимает 1 секунду процессорного времени, а соответствующая программа на каком-либо другом языке, скажем на Фортране, — 0.1 секунды. Разница в эффективности становится существенной, если эти две программы требуют 50 и 5 минут соответственно.
    С другой стороны, во многих областях применения Пролога он может существенно сократить время разработки программ. Программы на Прологе, вообще говоря, легче писать, легче понимать и отлаживать, чем программы, написанные на традиционных языках. Задачи, тяготеющие к "царству Пролога", включают в себя обработку символьной, нечисловой информации, структурированных объектов данных и отношений между ними. Пролог успешно применяется, в частности. в таких областях, как символьное решение уравнений, планирование, базы данных, автоматическое решение задач, машинное макетирование, реализация языков программирования, дискретное и аналоговое моделирование, архитектурное проектирование, машинное обучение, понимание естественного языка, экспертные системы и другие задачи искусственного интеллекта. С другой стороны, применение Пролога в области вычислительной математики вряд ли можно считать естественным.
    Прогон откомпилированной программы обычно имеет большую эффективность, чем интерпретация. Поэтому, если пролог-система содержит как интерпретатор, так и компилятор, следует пользоваться компилятором, если время выполнения критично.
    Если программа страдает неэффективностью, то ее обычно можно кардинально улучшить, изменив сам алгоритм. Однако для того, чтобы это сделать, необходимо изучить процедурные аспекты программы. Простой способ сокращения времени выполнения состоит в нахождении более удачного порядка предложений в процедуре и целей — в телах процедур. Другой, относительно простой метод заключается в управлении действиями системы посредством отсечений.
    Полезные идеи, относящиеся к повышению эффективности, обычно возникают только при достижении более глубокого понимания задачи. Более эффективный алгоритм может, вообще говоря, привести к улучшениям двух видов:
    • Повышение эффективности поиска путем скорейшего отказа от ненужного перебора и от вычисления бесполезных вариантов.
    • Применение cтруктур данных, более приспособленных для представления объектов программы, с целью реализовать операции над ними более эффективно.
    Мы изучим оба вида улучшений на примерах. Кроме того, мы рассмотрим на примере еще один метод повышения эффективности. Этот метод основан на добавлении в базу данных тех промежуточных результатов, которые с большой вероятностью могут потребоваться для дальнейших вычислений. Вместо того, чтобы вычислять их снова, программа просто отыщет их в базе данных как уже известные факты.

8.5.1. Повышение эффективности решения задачи о восьми ферзях

    В качестве простого примера повышения эффективности давайте вернемся к задаче о восьми ферзях (см. рис. 4.7). В этой программе Y-координаты ферзей перебираются последовательно — для каждого ферзя пробуются числа от 1 до 8. Этот процесс был запрограммирован в виде цели
    принадлежит( Y, [1, 2, 3, 4, 5, 6, 7, 8] )
    Процедура принадлежит работает так: вначале пробует Y = 1, затем Y = 2, Y = 3 и т.д. Поскольку ферзи расположены один за другим в смежных вертикалях доски, очевидно, что такой порядок перебора не является оптимальным. Дело в том, что ферзи, расположенные в смежных вертикалях будут бить друг друга, если они не будут разнесены по вертикали на расстояние, превышающее, по крайней мере одно поле. В соответствии с этим наблюдением можно попытаться повысить эффективность, просто изменив порядок рассмотрения координат-кандидатов. Например:
    принадлежит( Y, [1, 5, 2, 6, 3, 7, 4, 8] )
    Это маленькое изменение уменьшит время, необходимое для нахождения первого решения, в 3-4 раза.
    В следующем примере такая же простая идея, связанная с изменением порядка, превращает практически неприемлемую временную сложность в тривиальную.

8.5.2. Повышение эффективности программы раскраски карты

    Задача раскраски карты состоит в приписывании каждой стране на заданной карте одного из четырех заданных цветов с таким расчетом, чтобы ни одна пара соседних стран не была окрашена в одинаковый цвет. Существует теорема, которая гарантирует, что это всегда возможно.
    Пусть карта задана отношением соседства
    соседи( Страна, Соседи)
    где Соседи — список стран, граничащих со страной Страна. При помощи этого отношения карта Европы с 20-ю странами будет представлена (в алфавитном порядке) так:
    соседи( австрия, [венгрия, запгермания, италия,
     лихтенштейн, чехословакия,
     швейцария, югославия]).
    соседи( албания, [греция, югославия]).
    соседи( андорра, [испания, франция]).
    ...
    Решение представим в виде списка пар вида
    Страна / Цвет
    которые устанавливают цвет для каждой страны на данной карте. Для каждой карты названия стран всегда известны заранее, так что задача состоит в нахождении цветов. Таким образом, для Европы задача сводится к отысканию подходящей конкретизации переменных C1, C2, СЗ и т.д. в списке
    [австрия/C1, албания/C2, андорра/С3, ...]
    Теперь определим предикат
    цвета( СписЦветСтран)
    который истинен, если СписЦветСтран удовлетворяет тем ограничениям, которые наложены на раскраску отношением соседи. Пусть четырьмя цветами будут желтый, синий, красный и зеленый. Условие запрета раскраски соседних стран в одинаковый цвет можно сформулировать на Прологе так:
    цвета( []).
    цвета( [Страна/Цвет | Остальные] ) :-
     цвета( Остальные),
     принадлежит( Цвет, [желтый, синий, красный, зеленый]),
     not( принадлежит( Страна1/Цвет, Остальные),
     сосед( Страна, Страна1) ).

    сосед( Страна, Страна1) :-
     соседи( Страна, Соседи),
     принадлежит( Страна1, Соседи).
    Здесь принадлежит( X, L) — как всегда, отношение принадлежности к списку. Для простых карт с небольшим числом стран такая программа будет работать. Что же касается Европы, то здесь результат проблематичен. Если считать, что мы располагаем встроенным предикатом setof, то можно попытаться раскрасить карту Европы следующим образом. Определим сначала вспомогательное отношение:
    страна( С) :- соседи( С, _ ).
    Тогда вопрос для раскраски карты Европы можно сформулировать так:
    ?- sеtоf( Стр/Цвет, страна( Стр), СписЦветСтран),
     цвета( СписЦветСтран).
    Цель setof — построить "шаблон" списка СписЦветСтран, в котором в элементах вида страна/ цвет вместо цветов будут стоять неконкретизированные переменные. Предполагается, что после этого цель цвета конкретизирует их. Такая попытка скорее всего потерпит неудачу вследствие неэффективности работы программы.
    Тщательное исследование способа, при помощи которого пролог-система пытается достичь цели цвета, обнаруживает источник неэффективности. Страны расположены в списке в алфавитном порядке, а он не имеет никакого отношения к их географическим связям. Порядок, в котором странам приписываются цвета, соответствует порядку их расположения в списке (с конца к началу), что в нашем случае никак не связано с отношением соседи. Поэтому процесс раскраски начинается в одном конце карты, продолжается в другой и т.д., перемещаясь по ней более или менее случайно. Это легко может привести к ситуации, когда при попытке раскрасить очередную страну окажется, что она окружена странами, уже раскрашенными во все четыре доступных цвета. Подобные ситуации приводят к возвратам, снижающим эффективность.
    Ясно поэтому, что эффективность зависит от порядка раскраски стран. Интуиция подсказывает простую стратегию раскраски, которая должна быть лучше, чем случайная: начать со страны, имеющей иного соседей, затем перейти к ее соседям, затем — к соседям соседей и т.д. В случае Европы хорошим кандидатом для начальной страны является Западная Германия (как имеющая наибольшее количество соседей — 9). Понятно, что при построении шаблона списка элементов вида страна/цвет Западную Германию следует поместить в конец этого списка, а остальные страны - добавлять со стороны его начала. Таким образом, алгоритм раскраски, который начинает работу с конца списка, в начале займется Западной Германией и продолжит работу, переходя от соседа к соседу.
    Новый способ упорядочивания списка стран резко повышает эффективность по отношению к исходному, алфавитному порядку, и теперь возможные раскраски карты Европы будут получены без труда.
    Можно было бы построить такой правильно упорядоченный список стран вручную, но в этом нет необходимости. Эту работу выполнит процедура создспис. Она начинает построение с некоторой указанной страны (в нашем случае — с Западной Германии) и собирает затем остальные страны в список под названием Закрытый. Каждая страна сначала попадает в другой список, названный Открытый, а потом переносится в Закрытый. Всякий раз, когда страна переносится из Открытый в Закрытый, ее соседи добавляются в Открытый.
    создспис( Спис) :-
     собрать( [запгермания], [], Спис ).

    собрать( [], Закрытый, Закрытый).
      % Кандидатов в Закрытый больше нет
    собрать( [X | Открытый], Закрытый, Спис) :-
     принадлежит( X | Закрытый), !,
      % X уже собран ?
     собрaть( Открытый, Закрытый, Спис).
      % Отказаться от X
    собрать( [X | Открытый], Закрытый, Спис) :-
     соседи( X, Соседи),
      % Найти соседей X
     конк( Соседи, Открытый, Открытый1),
      % Поместить их в Открытый
     собрать( Открытый1, [X | Закрытый], Спис).
      % Собрать остальные
    Отношение конк — как всегда — отношение конкатенации списков.

8.5.3. Повышение эффективности конкатенации списков за счет совершенствования структуры данных

    До сих пор в наших программах конкатенация была определена так:
    конк( [], L, L).
    конк( [X | L1], L2, [X | L3] ) :-
     конк( L1, L2, L3 ).
    Эта процедура неэффективна, если первый список — длинный. Следующий пример объясняет, почему это так:
    ?- конк( [а, b, с], [d, e], L).
    Этот вопрос порождает следующую последовательность целей:
    конк( [а, b, с], [d, e], L)
     конк( [b, с], [d, e], L') где L = [a | L']
      конк( [с], [d, e], L'')   где L' = [b | L''']
       конк( [], [d, e], L''')   где L'' = [c | L''']
        true  (истина) где L''' = [d, e]
    Ясно, что программа фактически сканирует весь первый список, пока не обнаружит его конец.
    А нельзя ли было бы проскочить весь первый список за один шаг и сразу подсоединить к нему второй список, вместо того, чтобы постепенно продвигаться вдоль него? Но для этого необходимо знать, где расположен конец списка, а следовательно, мы нуждаемся в другом его представлении. Один из вариантов — представлять список парой списков. Например, список
    [а, b, с]
    можно представить следующими двумя списками:
    L1 = [a, b, c, d, e]
    L2 = [d, e]
    Подобная пара списков, записанная для краткости как L1-L2, представляет собой "разность" между L1 и L2. Это представление работает только при том условии, что L2 — "конечный участок" списка L1. Заметим, что один и тот же список может быть представлен несколькими "разностными парами". Поэтому список [а, b, с] можно представить как
    [а, b, с]-[]
    или
    [a, b, c, d, e]-[d, e]
    или
    [a, b, c, d, e | T]-[d, e | T]
    или
    [а, b, с | T]-T
    где T — произвольный список, и т.п. Пустой список представляется любой парой L-L.
    Поскольку второй член пары указывает на конец списка, этот конец доступен сразу. Это можно использовать для эффективной реализации конкатенации. Метод показан на рис. 8.1. Соответствующее отношение конкатенации записывается на Прологе в виде факта
    конкат( A1-Z1, Z1-Z2, A1-Z2).
    Давайте используем конкат для конкатенации двух списков: списка [а, b, с], представленного парой [а, b, с | Т1]-Т1, и списка [d, e], представленного парой [d, e | Т2]-Т2:
    ?- конкат( [а, b, с | Т1]-T1, [d, e | Т2]-Т2, L ).
    Оказывается, что для выполнения конкатенации достаточно простого сопоставления этой цели с предложением конкат. Результат сопоставления:
    T1 = [d, e | Т2]
    L = [a, b, c, d, e | T2]-T2
    Рис. 8.1. Конкатенация списков, представленных в виде разностных пар. L1 представляется как A1-Z1, L2 как A2-Z2 и результат L3 — как A1-Z2. При этом должно выполняться равенство Z1 = А2.

8.5.4. Повышение эффективности зa счет добавления вычисленных фактов к базе данных

    Иногда в процессе вычислений приходится одну и ту же цель достигать снова и снова. Поскольку в Прологе отсутствует специальный механизм выявления этой ситуации, соответствующая цепочка вычислений каждый раз повторяется заново.
    В качестве примера рассмотрим программу вычисления N-го числа Фибоначчи для некоторого заданного N. Последовательность Фибоначчи имеет вид:
    1, 1, 2, 3, 5, 8, 13, …
    Каждый член последовательности, за исключением первых двух, представляет собой сумму предыдущих двух членов. Для вычисления N-гo числа Фибоначчи F определим предикат
    фиб( N, F)
    Нумерацию чисел последовательности начнем с N = 1. Программа для фиб обрабатывает сначала первые два числа Фибоначчи как два особых случая, а затем определяет общее правило построения последовательности Фибоначчи:
    фиб( 1, 1).    % 1-e число Фибоначчи
    фиб( 2, 1).    % 2-e число Фибоначчи
    фиб( N, F) :-  % N-e число Фиб., N > 2
     N > 2,
     N1 is N - 1, фиб( N1, F1),
     N2 is N - 2, фиб( N2, F2),
     F is F1 + F2. % N-e число есть сумма двух
                   % предыдущих
    Процедура фиб имеет тенденцию к повторению вычислений. Это легко увидеть, если трассировать цель
    ?- фиб( 6, F).
    На рис. 8.2 показано, как протекает этот вычислительный процесс. Например, третье число Фибоначчи f( 3) понадобилось в трех местах, и были повторены три раза одни и те же вычисления.
    Этого легко избежать, если запоминать каждое вновь вычисленное число. Идея состоит в применении встроенной процедуры assert для добавления этих (промежуточных) результатов в базу данных в виде фактов. Эти факты должны предшествовать другим предложениям, чтобы предотвратить применение общего правила в случаях, для которых результат уже известен. Усовершенствованная процедура фиб2 отличается от фиб только этим добавлением:
    фиб2( 1, 1).            % 1-e число Фибоначчи
    фиб2( 2, 1).            % 2-e число Фибоначчи
    фиб2( N, F) :-          % N-e число Фиб., N > 2
     N > 2,
     N1 is N - 1, фиб2( N1, F1),
     N2 is N - 2, фиб2( N2, F2),
     F is F1 + F2,           % N-e число есть сумма
                             % двух предыдущих
     asserta( фиб2( N, F) ). % Запоминание N-го числа
    Эта программа, при попытке достичь какую-либо цель, будет смотреть сперва на накопленные об этом отношении факты и только после этого применять общее правило. В результате, после вычисления цели фиб2( N, F), все числа Фибоначчи вплоть до N-го будут сохранены. На рис. 8.3 показан процесс вычислении 6-го числа при помощи фиб2. Сравнение этого рисунка с рис. 8.2. показывает, на сколько уменьшилась вычислительная сложность. Для больших N такое уменьшение еще более ощутимо.
    Запоминание промежуточных результатов — стандартный метод, позволяющий избегать повторных вычислений. Следует, однако, заметить, что в случае чисел Фибоначчи повторных вычислений можно избежать еще и применением другого алгоритма, а не только запоминанием промежуточных результатов.
    Рис. 8.2.  Вычисление 6-го числа Фибоначчи процедурой фиб.
    Рис. 8.3. Вычисление 6-го числа Фибоначчи при помощи процедуры фиб2, которая запоминает предыдущие результаты. По сравнению с процедурой фиб здесь вычислений меньше (см. рис. 8.2).
    Этот новый алгоритм позволяет создать программу более трудную для понимания, зато более эффективную. Идея состоит на этот раз не в том, чтобы определить N-e число Фибоначчи просто как сумму своих предшественников по последовательности, оставляя рекурсивным вызовам организовать вычисления "сверху вниз" вплоть до самых первых двух чисел. Вместо этого можно работать "снизу вверх": начать с первых двух чисел и продвигаться вперед, вычисляя члены последовательности один за другим. Остановиться нужно в тот момент, когда будет достигнуто N-e число. Большая часть работы в такой программе выполняется процедурой
    фибвперед( М, N, F1, F2, F)
    Здесь F1 и F2 — (М – 1)-e и М-e числа, а F — N-e число Фибоначчи. Рис. 8.4 помогает понять отношение фибвперед. В соответствии с этим рисунком фибвперед находит последовательность преобразований для достижения конечной конфигурации (в которой М = N) из некоторой заданной начальной конфигурации. При запуске фибвперед все его аргументы, кроме F, должны быть конкретизированы, а М должно быть меньше или равно N. Вот эта программа:
    фиб3( N, F) :-
     фибвперед( 2, N, 1, 1, F).
      % Первые два числа Фиб. равны 1

    фибвперед( М, N, F1, F2, F2) :-
     М >= N. % N-e число достигнуто
    фибвперед( M, N, F1, F2, F) :-
     M < N,  % N-e число еще не достигнуто
     СледМ is М + 1,
     СледF2 is F1 + F2,
     фибвперед( СледМ, N, F2, СледF2, F).
    Рис. 8.4. Отношения в последовательности Фибоначчи. "Конфигурация" изображается здесь в виде большого круга и определяется тремя параметрами: индексом М и двумя последовательными числами f( M-1) и f( М).
Упражнения
    8.1. Все показанные ниже процедуры подсп1, подсп2 и подсп3 реализуют отношение взятия подсписка. Отношение подсп1 имеет в значительной мере процедурное определение, тогда как подсп2 и подсп3 написаны в декларативном стиле. Изучите поведение этих процедур на примерах нескольких списков, обращая внимание на эффективность работы. Две из них ведут себя одинаково и имеют одинаковую эффективность. Какие? Почему оставшаяся процедура менее эффективна?
    подсп1( Спис, Подспис) :-
     начало( Спис, Подспис).
    подсп1( [ _ | Хвост], Подспис) :-
      % Подспис - подсписок хвоста
     подсп1( Хвост, Подспис).

    начало( _, []).
    начало( [X | Спис1], [X | Спис2] ) :-
     начало( Спис1, Спис2).

    подсп2( Спис, Подспис) :-
     конк( Спис1, Спис2, Спис),
     конк( Спис3, Подспис, Cпис1).

    подсп3( Спис, Подспис) :-
     конк( Спис1, Спис2, Спис),
     конк( Подспис, _, Спис2).
    8.2. Определите отношение
    добавить_в_конец( Список, Элемент, НовыйСписок)
    добавляющее Элемент в конец списка Список; результат — НовыйСписок. Оба списка представляйте разностными парами.
    8.3. Определите отношение
    обратить( Список, ОбращенныйСписок)
    где оба списка представлены разностными парами.
    8.4. Перепишите процедуру собрать из разд. 8.5.2, используя разностное представление списков, чтобы конкатенация выполнялась эффективнее.

Резюме

    • Для оценки качества программы существует несколько критериев: 
      правильность
      эффективность
      простота, читабельность
      удобство модификации
      документированность
    • Принцип пошаговой детализации — хороший способ организации процесса разработки программ. Пошаговая детализация применима к отношениям, алгоритмам и структурам данных.
    • Следующие методы часто помогают находить идеи для совершенствования программ на Прологе:
      Применение рекурсии: выявить граничные и общие случаи рекурсивного определения.
      Обобщение: рассмотреть такую более общую задачу, которую проще решить, чем исходную.
      Использование рисунков: графическое представление помогает в выявлении важных отношений.
    • Полезно следовать некоторым стилистическим соглашениям для уменьшения опасности внесения ошибок в программы и создания программ, легких для чтения, отладки и модификации.
    • В пролог-системах обычно имеются средства отладки. Наиболее полезными являются средства трассировки программ.
    • Существует много способов повышения эффективности программы. Наиболее простые способы включают в себя:
      изменение порядка целей и предложений
      управляемый перебор при помощи введения отсечений
      запоминание (с помощью assert) решений, которые иначе пришлось бы перевычислять
    Более тонкие и радикальные методы связаны с улучшением алгоритмов (особенно, в части повышения эффективности перебора) и с совершенствованием структур данных. 

Часть 2
Пролог в искусственном интеллекте

Глава 9
Операции над структурами данных

    Один из фундаментальных вопросов программирования — это вопрос о представлении сложных объектов (таких как, например, множества), а также вопрос об эффективной реализации операций над подобными объектами. В этой главе мы рассмотрим несколько часто используемых структур данных, принадлежащих к трем большим семействам: спискам, деревьям и графам. Мы изучим способы представления этих структур на Прологе и составим программы, реализующие некоторые операции над ними, в том числе, сортировку списков, работу с множествами как древовидными структурами, запись элементов данных в дерево, поиск данных в дереве, нахождение пути в графе и т.п. Мы подробно разберем несколько примеров, чрезвычайно поучительных с точки зрения программирования на Прологе.

9.1. Представление списков. Сортировка

9.1.1. Замечания в некоторых альтернативных способах представления списков

    В главе 3 была введена специальная система обозначений для списков (специальная прологовская нотация), которую мы и использовали в последующем изложении. Разумеется, это был всего лишь один из способов представления списков на Прологе. Список — это, в самом общем смысле, структура, которая либо
    • пуста, либо
    • состоит из головы и хвоста, причем хвост должен быть сам списком.
    Поэтому для представления этой структуры нам необходимо иметь всего лишь два языковых средства: специальный символ, обозначающий пустой список, и функтор для соединения головы с хвостом. Мы могли бы, например, выбрать
    ничего_не_делать
    в качестве символа, обозначающего пустой список, и атом
    затем
    в качестве инфиксного оператора для построения списка по заданным голове и хвосту. Этот оператор мы можем объявить в программе, например, так:
    :- op( 500, xfy, затем).
    Список
    [ войти, сесть, поужинать]
    можно было бы тогда записать как
    войти затем сесть затем поужинать
     затем ничего_не_делать
    Важно заметить, что на соответствующем уровне абстракции специальная прологовская нотация и всевозможные альтернативные способы обозначения списков сводятся, фактически, к одному и тому же представлению. В связи с этим типовые операции над списками, такие как
    принадлежит ( X, L)
    конк( L1, L2, L3)
    удалить( X, L1, L2)
    запрограммированные нами в специальной прологовской нотации, легко поддаются перепрограммированию в различные системы обозначений, выбранные пользователем. Например, отношение конк транслируется на язык "затем — ничего_не_делать" следующим образом. Определение, которое мы использовали до сих пор, имеет вид
    конк( [], L, L).
    конк( [X | L1], L2, [X | L3] ) :-
     конк( L1, L2, L3).
    В новой системе обозначений оно превращается в
    конк( ничего_не_делать, L, L).
    конк( X затем L1, L2, X затем L3) :-
     конк(L1, L2, L3).
    Этот пример показывает, как легко наши определения отношений над списками обобщаются на весь класс структур этого типа. Решение о том, какой именно способ записи списков будет использоваться в той или иной программе, следует принимать в соответствии с тем смыслом, который мы придаем списку в каждом конкретном случае. Если, например, список — это просто множество элементов, то наиболее удобна обычная прологовская нотация, поскольку в ней непосредственно выражается то, что программист имел в виду. С другой стороны, некоторые типы выражений также можно трактовать как своего рода списки. Например, для конъюнктов в исчислении высказываний подошло бы следующее спископодобное представление:
    • истина соответствует пустому списку,
    • & — оператор для соединения головы с хвостом, определяемый, например, как
    :- op( 300, xfy, &)
    Конъюнкция членов а, b, и с выглядела бы тогда как
    а & b & с & истина
    Все приведенные примеры базируются, по существу, на одной и той же структуре, представляющей список. Однако в гл. 8 мы рассмотрели существенно другой способ, влияющий на эффективность вычислений. Уловка состояла в том, что список представлялся в виде пары списков, являясь их "разностью". Было показано, что такое представление приводит к очень эффективной реализации отношения конкатенации.
    Материал настоящего раздела проливает свет и на то различие, которое существует между применением операторов в математике и применением их в Прологе. В математике с каждым оператором всегда связано некоторое действие, в то время как в Прологе операторы используются просто для представления структур.
Упражнения
    9.1. Определите отношение
    список( Объект)
    для распознавания случаев, когда Объект является стандартным прологовским списком.
    9.2. Определите отношение принадлежности к списку, используя систему обозначений, введенную в этой разделе: "затем — ничего_не_делать".
    9.3. Определите отношение
    преобр( СтандСпис, Спис)
    для преобразования списков из стандартного представления в систему "затем — ничего_не_делать". Например:
    преобр( [а, b], а затем b затем ничего_не_делать)
    ответ
    9.4. Обобщите отношение преобр на случай произвольного альтернативного представления списков. Конкретное представление задается символом, обозначающим пустой список, и функтором для соединения головы с хвостом. В отношении преобр придется добавить два новых аргумента:
    преобр( СтандСпис, Спис, Функтор, ПустСпис)
    Примеры применения этого отношения:
    ?- пpeoбp( [а, b], L, затем, ничего_не_делать).
    L = а затем b затем ничего_не_делать

    ?-  преобр( [а, b, с], L, +, 0).
    L = а+(b+(с+0) )

9.1.2. Сортировка списков

    Сортировка применяется очень часто. Список можно отсортировать (упорядочить), если между его элементами определено отношение порядка. Для удобства изложения мы будем использовать отношение порядка
    больше( X, Y)
    означающее, что X больше, чем Y, независимо от того, что мы в действительности понимаем под "больше, чем". Если элементами списка являются числа, то отношение больше будет, вероятно, определено как
    больше( X, Y) :- X > Y.
    Если же элементы списка — атомы, то отношение больше может соответствовать алфавитному порядку между ними.
    Пусть
    сорт( Спис, УпорСпис)
    обозначает отношение, в котором Спис — некоторый список, а УпорСпис — это список, составленный из тех же элементов, но упорядоченный по возрастанию в соответствия с отношением больше. Мы построим три определения этого отношения на Прологе, основанные на трех различных идеях о механизме сортировки. Вот первая идея:
    Для того, чтобы упорядочить список Спис, необходимо:
    • Найти в Спис два смежных элемента X и Y, таких, что больше( X, Y), и поменять X и Y местами, получив тем самым новый список Спис1; затем отсортировать Спис1.
    • Если в Спис нет ни одной пары смежных элементов X и Y, таких, что больше( X, Y), то считать, что Спис уже отсортирован.
    Мы переставили местами 2 элемента X и Y, расположенные в списке "не в том порядке", с целью приблизить список к своему упорядоченному состоянию. Имеется в виду, что после достаточно большого числа перестановок все элементы списка будут расположены в правильном порядке. Описанный принцип сортировки принято называть методом пузырька, поэтому соответствующая прологовская процедура будет называться пузырек.
    пузырек( Спис, УпорСпис) :-
     перест( Спис, Спис1), !, % Полезная перестановка?
     пузырек( Спис1, УпорСпис).
    пузырек( УпорСпис, УпорСпис).
      % Если нет, то список уже упорядочен

    перест( [X, Y | Остаток], [Y, X ) Остаток] ):-
     % Перестановка первых двух элементов
     больше( X, Y).
    перест( [Z | Остаток], [Z | Остаток1] ):-
     перест( Остаток, Остаток1). % Перестановка в хвосте
    Еще один простой алгоритм сортировки называется сортировкой со вставками. Он основан на следующей идее:
    Для того, чтобы упорядочить непустой список L = [X | Хв], необходимо:
    (1) Упорядочить хвост Хв списка  L.
    (2) Вставить голову X списка L в упорядоченный хвост, поместив ее в такое место, чтобы получившийся список остался упорядоченным. Список отсортирован.
    Этот алгоритм транслируется в следующую процедуру вставсорт на Прологе:
    вставсорт([], []).
    вставсорт( [X | Хв], УпорСпис) :-
     вставсорт( Хв, УпорХв), % Сортировка хвоста

    встав( X, УпорХв, УпорСпис).
      % Вставить X на нужное место
    встав( X, [Y | УпорСпис], [Y | УпорСпис1]):-
     больше( X, Y), !,
     встав( X, УпорСпис, УпорСпис1).
    встав( X, УпорСпис, [X | УпорСпис] ).