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

/*

Процедура читпредложение считывает предложение

и из его слов создает список атомов. Например,

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

порождает

Списслов=['Мэри', было, приятно, видеть, неудачу, робота]

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

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

*/

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

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. Напишите процедуру

поиск( Ключслово, Предложение)

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

Передавать программы пролог-системе можно при помощи двух встроенных предикатов: 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.