Неизвестно - Prolog

если входным было предложение

Мэри было приятно видеть неудачу робота.

*/

читпредложение( Списслов) :-

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).

Х = 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 ничего не сказано.

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

Резюме

Ввод и вывод (отличный от связанного с вопросами к программе) осуществляется посредством встроенных процедур. В данной главе описан простой и практичный набор таких процедур, имеющихся во многих реализациях Пролога.