Интересная задача про детей на экскурсии в Прологе - Prolog

Формулировка задачи:

Доброго времени суток, нужна ваша помощь в реализации интересной задачи. разработать программу с помощью Пролога для решения следующей проблемы: ученики из одного класса, одной школы организовали экскурсию в горы, куда пригласили и родителей. 3 автобуса в общей сумме 89 персонами(отцы, матери, преподаватели, вместе с учениками (девушками и юношами)). Из которых женщин на 7 персон больше чем мужчин, детей на 45 больше чем женщин. Сколько женщин, сколько мужчин, сколько детей поехало на экскурсию. Математически я думаю, что решение выглядит так: женщин-Х мужчин-Х-7 всего-89 учеников-Х+45 Х+Х-7+Х+45=89 3Х+38=89 3Х=51 Х=17 А вот с реализацией на Прологе проблемы. Заранее спасибо!

Решение задачи: «Интересная задача про детей на экскурсии в Прологе»

Листинг программы

person(P1,P2,[P1,P2,_,_]).
person(P1,P3,[P1,_,P3,_]).
person(P1,P4,[P1,_,_,P4]).
person(P2,P3,[_,P2,P3,_]).
person(P2,P4,[_,P2,_,P4]).
person(P3,P4,[_,_,P3,P4]).
 
rule P1is(P2-7).
rule P3is(P2+45).
rule P4is)P1+P2+P3is89).

Объяснение кода листинга программы

Задача заключается в том, чтобы определить, сколько детей и взрослых находятся на экскурсии.
Код состоит из шести правил:
- person(P1,P2,[P1,P2,,]).
- person(P1,P3,[P1,,P3,]).
- person(P1,P4,[P1,,,P4]).
- person(P2,P3,[,P2,P3,]).
- person(P2,P4,[,P2,,P4]).
- person(P3,P4,[,,P3,P4]).
Есть три правила is:
- rule P1is(P2-7).
- rule P3is(P2+45).
- rule P4is)P1+P2+P3is89).
Переменные P1, P2, P3 и P4 используются для представления имен детей и взрослых на экскурсии.
Каждое правило person представляет собой факт, который говорит о том, сколько детей и взрослых присутствует на экскурсии.
Правила is используются для определения численности детей и взрослых на основе их имен.
Последнее правило P4is)P1+P2+P3is89) используется для определения общей численности детей и взрослых на экскурсии.