Одно из основных понятий в языке Prolog – факты. Факты описываются логическими предикатами с конкретными значениями. В базах знаний на языке Prolog факты представляют конкретные сведения (знания).
male('Максим').
female('Маша').
В примере выше мы определили простейшие факты:
Важно: аргументы в фактах и правилах должны начинаться с маленькой буквы, иначе интерпретатор Prolog будет воспринимать их, как переменные. Если аргументы начинаются с большой буквы, то они должны быть заключены в кавычки.
Заголовки фактов могут повторяться:
male('Максим').
male('Дмитрий').
female('Маша').
В данном примере мы определили несколько фактов:
Факты могут включать несколько конкретных значений:
parent('Максим', 'Дмитрий').
parent('Маша', 'Дмитрий').
В этом примере определены факты о родителях и детях. Семантический смысл данных фактов может быть разным:
Определите факты:
Если вы зашли в тупик, то самое время задать вопрос в «Обсуждениях». Как правильно задать вопрос:
Тесты устроены таким образом, что они проверяют решение разными способами и на разных данных. Часто решение работает с одними входными данными, но не работает с другими. Чтобы разобраться с этим моментом, изучите вкладку «Тесты» и внимательно посмотрите на вывод ошибок, в котором есть подсказки.
Это нормально 🙆, в программировании одну задачу можно выполнить множеством способов. Если ваш код прошел проверку, то он соответствует условиям задачи.
В редких случаях бывает, что решение подогнано под тесты, но это видно сразу.
Создавать обучающие материалы, понятные для всех без исключения, довольно сложно. Мы очень стараемся, но всегда есть что улучшать. Если вы встретили материал, который вам непонятен, опишите проблему в «Обсуждениях». Идеально, если вы сформулируете непонятные моменты в виде вопросов. Обычно нам нужно несколько дней для внесения правок.
Кстати, вы тоже можете участвовать в улучшении курсов: внизу есть ссылка на исходный код уроков, который можно править прямо из браузера.
Ваше упражнение проверяется по этим тестам
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:- [main].
12
13:- begin_tests(facts).
14
15test(010, [true, nondet]) :-
16 pet(P),
17 father(F, S),
18 mother(M, D),
19 error_happened(X).
20
21:- end_tests(facts).
22
Решение учителя откроется через: