96 lines
2.4 KiB
Prolog
96 lines
2.4 KiB
Prolog
% imie , ojciec , matka , plec , wiek
|
|
osoba(mikolaj , wladyslaw, grazyna , mezczyzna, 21).
|
|
osoba(grazyna , jan , krystyna , kobieta , 58).
|
|
osoba(wladyslaw, miroslaw , lucyna , mezczyzna, 63).
|
|
osoba(krystyna , andrzej , emilia , kobieta , 78).
|
|
osoba(jan , kacper , wiktoria , mezczyzna, 83).
|
|
osoba(miroslaw , janusz , barbara , mezczyzna, 88).
|
|
osoba(lucyna , krystian , aleksandra, kobieta , 91).
|
|
osoba(michalina, wladyslaw, grazyna , kobieta , 35).
|
|
osoba(jakub , wladyslaw, grazyna , mezczyzna, 33).
|
|
osoba(krzysztof, gabriel , michalina , mezczyzna, 7).
|
|
osoba(milosz , pawel , renata , mezczyzna, 17).
|
|
osoba(milena , pawel , renata , kobieta , 15).
|
|
osoba(pawel , jan , krystyna , mezczyzna, 44).
|
|
|
|
mezczyzna(Osoba) :-
|
|
osoba(Osoba, _, _, mezczyzna, _).
|
|
|
|
kobieta(Osoba) :-
|
|
osoba(Osoba, _, _, kobieta, _).
|
|
|
|
rodzenstwo(Dzieciak1, Dzieciak2) :-
|
|
osoba(Dzieciak1, Ojciec, Matka, _, _),
|
|
osoba(Dzieciak2, Ojciec, Matka, _, _),
|
|
Dzieciak1 \= Dzieciak2.
|
|
|
|
bracia(Brat1, Brat2) :-
|
|
rodzenstwo(Brat1, Brat2),
|
|
mezczyzna(Brat1),
|
|
mezczyzna(Brat2).
|
|
|
|
siostry(Siostra1, Siostra2) :-
|
|
rodzenstwo(Siostra1, Siostra2),
|
|
kobieta(Siostra1),
|
|
kobieta(Siostra2).
|
|
|
|
brat(Brat, Osoba) :-
|
|
rodzenstwo(Brat, Osoba),
|
|
mezczyzna(Brat).
|
|
|
|
siostra(Siostra, Osoba) :-
|
|
rodzenstwo(Siostra, Osoba),
|
|
kobieta(Siostra).
|
|
|
|
matka(Matka, Dziecko) :-
|
|
osoba(Dziecko, _, Matka, _, _).
|
|
|
|
ojciec(Ojciec, Dziecko) :-
|
|
osoba(Dziecko, Ojciec, _, _, _).
|
|
|
|
potomek(Dziecko, Rodzic) :-
|
|
matka(Rodzic, Dziecko);
|
|
ojciec(Rodzic, Dziecko).
|
|
|
|
syn(Syn, Rodzic) :-
|
|
potomek(Syn, Rodzic),
|
|
mezczyzna(Syn).
|
|
|
|
corka(Corka, Rodzic) :-
|
|
potomek(Corka, Rodzic),
|
|
kobieta(Corka).
|
|
|
|
rodzic(Rodzic, Dziecko) :-
|
|
matka(Rodzic, Dziecko);
|
|
ojciec(Rodzic, Dziecko).
|
|
|
|
babcia(Babcia, Wnuk) :-
|
|
rodzic(Rodzic, Wnuk),
|
|
matka(Babcia, Rodzic).
|
|
|
|
dziadek(Dziadek, Wnuk) :-
|
|
rodzic(Rodzic, Wnuk),
|
|
ojciec(Dziadek, Rodzic).
|
|
|
|
wujek(Wujek, Osoba) :-
|
|
rodzic(Rodzic, Osoba),
|
|
brat(Wujek, Rodzic).
|
|
|
|
ciocia(Ciocia, Osoba) :-
|
|
rodzic(Rodzic, Osoba),
|
|
siostra(Ciocia, Rodzic).
|
|
|
|
kuzyni(Kuzyn1, Kuzyn2) :-
|
|
rodzic(Rodzic1, Kuzyn1),
|
|
rodzic(Rodzic2, Kuzyn2),
|
|
rodzenstwo(Rodzic1, Rodzic2),
|
|
Kuzyn1 \= Kuzyn2.
|
|
|
|
kuzyn(Kuzyn, Osoba) :-
|
|
kuzyni(Kuzyn, Osoba),
|
|
mezczyzna(Kuzyn).
|
|
|
|
kuzynka(Kuzynka, Osoba) :-
|
|
kuzyni(Kuzynka, Osoba),
|
|
kobieta(Kuzynka).
|