Основы программирования на языке Prolog: Вопросы к факт
В Prolog программе можно задавать вопросы и получать вычисленные ответы (решения). Вопросы суть цели (целевые утверждения), которые интерпретатор пытается доказать (достигнуть). Простые вопросы записываются по тем же синтаксическим правилам, что и факты–предложения. Prolog позволяет проверять наличие фактов с конкретными значениями. Для этого необходимо использовать факт так, как он написан в программе. Предположим, что в нашей программе есть следующие факты:
pet('Мурзик').
male('Дмитрий').
father('Дмитрий', 'Анатолий').
father('Дмитрий', 'Настя').
male('Анатолий').
female('Настя').
Напишем предикат, который проверяет наличие факта pet:
Вы узнаете больше о предикатах в следующих уроках
check_fact :–
pet('Мурзик').
Чтобы вызвать предикат напишите check_fact.:
?– check_fact. true.
Программа вывела true, следовательно факт с такими данными существует.
В вопросах в качестве аргументов могут фигурировать не только конкретные значения, но и переменные, которые записываются с заглавной буквы и обозначают не конкретный, а произвольный объект. В приведенных ниже примерах вопросов переменная X обозначает отца:
check_fact(X) :–
father(X, 'Анатолий'). % Кто отец Анатолия?
Чтобы вызвать предикат напишите check_fact(X).:
?– check_fact(X). X = 'Дмитрий'.
Prolog программа нашла решение (ответ на наш вопрос): отец Анатолия – Дмитрий, что соответствует факту, с конкретными значениями, описанному в программе.
Мы можем задавать не только простые, но и составные вопросы. Составной вопрос – набор простых вопросов, соединенных логическими операциями. Разберем следующий пример:
% Найти всех дочерей Дмитрия
all_dmitriy_daughters(X) :–
father('Дмитрий', X), % Для кого Дмитрий является отцом?
female(X). % X – женщина?
Чтобы вызвать предикат напишите all_dmitriy_daughters(X).:
?– all_dmitriy_daughters(X). X = 'Настя'.
В данной программе мы просим Prolog найти всех детей Дмитрия, а затем используем результат вопроса в следующем вопросе: "кто из детей – женщина?". Вопросы соединяются логической операцией "И", т.е. мы попросили Prolog найти всех людей, для которых Дмитрий – отец "И" которые являются женщинами. По аналогии с примерами выше можно задавать и другие вопросы.
Задание
Заполните пропуски во всех в блоках % BEGIN % END. В качестве переменных используйте обозначение из заголовков предикатов – X.
Упражнение не проходит проверку — что делать? 😶
Если вы зашли в тупик, то самое время задать вопрос в «Обсуждениях». Как правильно задать вопрос:
- Обязательно приложите вывод тестов, без него практически невозможно понять что не так, даже если вы покажете свой код. Программисты плохо исполняют код в голове, но по полученной ошибке почти всегда понятно, куда смотреть.
В моей среде код работает, а здесь нет 🤨
Тесты устроены таким образом, что они проверяют решение разными способами и на разных данных. Часто решение работает с одними входными данными, но не работает с другими. Чтобы разобраться с этим моментом, изучите вкладку «Тесты» и внимательно посмотрите на вывод ошибок, в котором есть подсказки.
Мой код отличается от решения учителя 🤔
Это нормально 🙆, в программировании одну задачу можно выполнить множеством способов. Если ваш код прошел проверку, то он соответствует условиям задачи.
В редких случаях бывает, что решение подогнано под тесты, но это видно сразу.
Прочитал урок — ничего не понятно 🙄
Создавать обучающие материалы, понятные для всех без исключения, довольно сложно. Мы очень стараемся, но всегда есть что улучшать. Если вы встретили материал, который вам непонятен, опишите проблему в «Обсуждениях». Идеально, если вы сформулируете непонятные моменты в виде вопросов. Обычно нам нужно несколько дней для внесения правок.
Кстати, вы тоже можете участвовать в улучшении курсов: внизу есть ссылка на исходный код уроков, который можно править прямо из браузера.
Ваше упражнение проверяется по этим тестам
1:- style_check(-singleton).
2:- dynamic error_happened/1.
3
4:- assertz(error_happened('OK')).
5
6user:message_hook(Term, error, _Lines) :-
7 retract(error_happened('OK')),
8 assertz(error_happened(error)),
9 fail.
10
11:- include(main).
12
13find_all_dmitry_children(List) :-
14 findall(X, all_dmitriy_children(X), List).
15
16find_all_dmitry_sons(List) :-
17 findall(X, all_dmitriy_sons(X), List).
18
19:- begin_tests(questions).
20
21test(021, true) :-
22 have_pet_jack.
23
24test(022, Actual == ['Анатолий', 'Настя']) :-
25 find_all_dmitry_children(Actual).
26
27test(023, Actual == 'Маша') :-
28 nastya_mother(Actual).
29
30test(024, Actual == ['Анатолий']) :-
31 find_all_dmitry_sons(Actual).
32
33:- end_tests(questions).Решение учителя откроется через:
