Tiny programs (C, C++, C#, ...)
File detail
File content
muz(john).
muz(paul).
muz(bob).
zena(mary).
zena(jane).
zena(linda).
otec(john,bob).
otec(john,jane).
matka(mary,bob).
matka(linda,jane).
rodic(X,Y) :- otec(X,Y).
rodic(X,Y) :- matka(X,Y).
je_matka(X) :- matka(X,_).
%sourozenec(X,Y) :- matka(M,X),matka(M,Y),otec(O,X),otec(O,Y),X\=Y.
sourozenec(X,Y) :- rodic(R,X),rodic(R,Y),X\=Y.
teta(X,Y) :- rodic(R,Y),sestra(X,R).
sestra(X,Y) :- zena(X),sourozenec(X,Y).
deda(X,Y) :- otec(X,R),rodic(R,Y).
%tyto pravidla doplnte
%sourozenec(X,Y) :-
%teta(X,Y) :-
%sestra(X,Y) :-
%deda(X,Y) :-
Back to main page
rodina.pl [Download]