3.11.6 Задание ограничений при сопоставлении с образцом

С целью сопоставления некоторого класса атомов в функцию match вводят ограничения. Чтобы воспользоваться этим ограничением, необходимо подставить некоторый описательный образец на место атомов.

(Restrict <*/atom>

<предикат>/{<предикат>})

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

Пример:

Проверим имя атома > 4 символов, или нет.

(Defun 4Letterp (A)

(Equal (Length (Explode A)) 4)

)

Вызов функции match со списком ограничений:

(Match ‘(Restrict > 4Letterp)&)

‘(Блок имеет серую окраску))

Рассмотрим как это свойство реализовано в программе:

(And (Not (Atom (Car P)))

(Equal (Caar P) ‘Restrict)

(Equal (Cadar P) ‘*)

(Apply ‘And

(Mapcar ‘(Lambda (PR)

(Funcall PR (Car )

(Cddar P)

(Match (Cdr P) (Cdr R))

)

После того как проделаны соответствующие проверки, атом из факта подается на предикаты в списке ограничений, посредством функции Mapcar, затем And проверяеет все ли предикаты возвращают значение Т. Если это так, то все условия истинны и вызывается Match, иначе Nil.

Система сопоставления с образцом может использовать другие операции. Например, нужно извлечь значения из переменных образца:

(Match ‘(> T) ‘(A))  T=A

(Match ‘(< T) ‘(A))  T

(Match ‘(< T) ‘(B))  Nil

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

Можно написать программу, которая при взаимодействии с человеком, ведет себя как психиатр.

Программа ведения диалога

Программа позволяет вести несложный диалог с пользователем. Принцип работы программы основан на том, что "узнает" в вопросах и ответах пользователя обрывки знакомых фраз, после чего строит ответ используя шаблоны, а также слова и фразы, извлеченные из ответов пользователя. Программа представляет собой цикл с использование предложения Cond, в котором содержится проверка ключевых слов и фраз. Связь с пользователем устанавлявается с помощью функций Read и Print. Если встречается слово МАТЬ, то переменная Mother принимает значение T. Тогда, если никакое условие не сработает, то реакция системы будет определяться значением этой переменной.

(DEFUN DIALOG

(PROG (L MOTHER S)

(PRINT 'ГОВОРИТЕ!)

LOOP

(SETQ S (READ))

(COND ((MATCH '(& ВОЛНУЕТ &L) S)

(PRINT (APPEND '(КАК ДАВНО ВАС ВОЛНУЕТ ) L)))

((MATCH '(& МАТЬ &) S)

(PROGN (SETQ MOTHER T)

(PRINT '( РАССКАЖИТЕ БОЛЬШЕ О ВАШЕЙ СЕМЬЕ

))))

((MATCH '(& КОМПЬЮТЕРЫ &) S)

(PRINT '(МАШИНЫ ПУГАЮТ ВАС ?))

((OR (MATCH 'ДА S) (MATCH 'НЕТ S))

(PRINT '(НЕ БУДЬТЕ СТОЛЬ КРАТКИ))))

((MATCH '(& (RESTRICT * BADWORD) &) S)

(PRINT '( РУГАТЬСЯ НЕ ХОРОШО)))

(MOTHER (PROGN (SETQ MOTHER NIL)

(PRINT '(ВЫ ГОВОРИЛИ О ВАШЕЙ

МАМОЧКЕ ?))))

(T (PROGN N

(PRINT '(ВРЕМЯ ВЫШЛО.))

(RETURN))))

(GO LOOP)))

Пример возможного диалога:

• Говорите

• Меня беспокоит погода

• Как давно Вас беспокоит погода?

• С тех пор как уехала моя мать

• Расскажите больше о вашей семье

• Они все купили компьютеры

• Машины пугают Вас?

• Нет или да

• Не будьте столь кратки

Если другое слово

• Вы говорили о Вашей мамочке

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