Упражнение

Создайте программу на прологе, содержащую следующие факты:

% отец(Кто,Чей)

% мать(Кто,Чья)

% жена(Кто,Чья)

отец(парфей,иней).

отец(парфей,агрий).

отец(парфей,мелас).

отец(иней,тидей).

отец(иней,мелеагр).

мать(алфея,мелеагр).

отец(тидей,диомед).

отец(адраст,эгиалея).

жена(клеопатра,мелеагр).

отец(ид,клеопатра).

отец(афарей,ид).

мать(марписса,клеопатра).

отец(нелей,пера).

отец(нерей,фетида).

мать(фетида,ахиллес).

отец(зевс,эак).

мать(эгина,эак).

отец(асоп,эгина).

отец(эак,пелей).

отец(эак,теламон).

отец(пелей,ахиллес).

отец(ахиллес,неоптолем).

мать(дайдамия,неоптолем).

отец(теламон,аякс).

отец(теламон,тевкр).

отец(менетий,патрокл).

отец(оилей,аякс).

мать(эриопа,аякс).

жена(эриопа,оилей).

отец(зевс,аркесий).

жена(пенелопа,одиссей).

мать(пенелопа,телемах).

отец(икарий,пенелопа).

отец(зевс,тантал).

отец(тантал,пелопс).

отец(тантал,ниоба).

жена(ниоба,амфион).

отец(пелопс,атрей).

отец(пелопс,фиест).

отец(фиест,эгист).

отец(атрей,агамемнон).

отец(атрей,менелай).

отец(агамемнон,орест).

мать(клитемнестра,орест).

жена(клитемнестра,агамемнон).

жена(гипподамия,пелопс).

отец(тиндарей,клитемнестра).

мать(леда,клитемнестра).

отец(тиндарей,кастор).

мать(леда,кастор).

отец(зевс,елена).

мать(леда,елена).

отец(зевс,полидевк).

мать(леда,полидевк).

отец(этион,андромаха).

отец(зевс,дардан).

отец(дардан,эрихфоний).

отец(эрихфоний,трос).

отец(трос,ил).

отец(трос,ассарак).

отец(трос,ганимед).

отец(ассарак,капис).

отец(капис,анхиз).

отец(анхиз,эней).

мать(афродита,эней).

мать(гекуба,кассандра).

жена(андромаха,гектор).

жена(гера,зевс).

отец(зевс,арей).

отец(зевс,геба).

отец(зевс,гефест).

мать(гера,арей).

мать(гера,геба).

отец(зевс,гермес).

жена(эфра,эгей).

отец(крон,зевс).

отец(крон,деметра).

отец(крон,посейдон).

отец(крон,аид).

отец(крон,гестия).

отец(крон,гера).

мать(рея,зевс).

мать(рея,деметра).

мать(рея,посейдон).

мать(рея,аид).

мать(рея,гестия).

мать(рея,гера).

отец(зевс,персефона).

отец(зевс,аполлон).

отец(зевс,артемида).

мать(лето,аполлон).

отец(гиперион,селена).

мать(тея,эос).

отец(уран,гиперион).

мать(гея,гиперион).

отец(зевс,сарпедон).

отец(зевс,персей).

отец(зевс,геракл).

отец(зевс,дионис).

отец(зевс,радамант).

отец(зевс,минос).

Задайте вопросы и найдите:

1. всех детей Зевса.

2. жену Зевса.

3. родителей, братьев и сестер Аполлона.

3. всех детей Зевса и его жены.

4. всех матерей детей Зевса, мать которых не Гера.

5. всех внуков Зевса.