Расписание турниров по тенису 3-4 игроков - Prolog

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

Помогите, пожалуйста, дали задачу на автомат. Суть следующая: написать программу, которая выводит расписание турниров по тенису 3-4 игроков, не используя списки и пр. И в ответе не должно быть повторяющихся пар. Например, (юля, аня), (аня юля).

Решение задачи: «Расписание турниров по тенису 3-4 игроков»

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

?- to_play(Pair).
Pair = 'Юля'-'Аня' ;
Pair = 'Юля'-'Катя' ;
Pair = 'Юля'-'Маша' ;
Pair = 'Аня'-'Маша' ;
Pair = 'Катя'-'Аня' ;
Pair = 'Катя'-'Маша' ;
false.

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

В данном коде реализована логика определения пары игроков для проведения турнира по теннису. Турнир проводится между двумя парами игроков, где каждая пара состоит из трех игроков. Логика определения пары игроков реализуется с помощью предиката to_play(Pair), где Pair - это переменная, которая должна быть заполнена именем пары игроков. В данном коде происходит следующее:

Вызывается предикат to_play(Pair).
Проверяется первая комбинация игроков: 'Юля'-'Аня'.
Если комбинация верна, то она присваивается переменной Pair и возвращается значение true.
Если комбинация не верна, то проверяется следующая комбинация игроков: 'Юля'-'Катя'.
Если комбинация верна, то она присваивается переменной Pair и возвращается значение true.
Если комбинация не верна, то проверяется следующая комбинация игроков: 'Юля'-'Маша'.
Если комбинация верна, то она присваивается переменной Pair и возвращается значение true.
Если комбинация не верна, то проверяется следующая комбинация игроков: 'Аня'-'Маша'.
Если комбинация верна, то она присваивается переменной Pair и возвращается значение true.
Если комбинация не верна, то проверяется следующая комбинация игроков: 'Катя'-'Аня'.
Если комбинация верна, то она присваивается переменной Pair и возвращается значение true.
Если комбинация не верна, то проверяется следующая комбинация игроков: 'Катя'-'Маша'.
Если комбинация верна, то она присваивается переменной Pair и возвращается значение true.
Если ни одна комбинация не верна, то возвращается значение false. Таким образом, данный код определяет пару игроков для проведения турнира по теннису.