Home Explore Help
Register Sign In
CNI
/
Prlog
2
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Add ancestor relation

DricomDragon 5 years ago
parent
98036cc029
commit
323a4808a5
1 changed files with 3 additions and 0 deletions
Split View Show Diff Stats
  1. 3 0
      tp/1/parent.lp

+ 3 - 0
tp/1/parent.lp
View File 

@@ -5,3 +5,6 @@ parent(lucie,robert). parent(robert,mattis). parent(robert,anna).
 
 child(C, P) :- parent(P, C).
 
 grandparent(G, C) :- parent(G, P), parent(P, C).
 
 sibling(S1, S2) :- parent(P, S1), parent(P, S2), S1 > S2.
 
+
 
+ancester(X, Y) :- parent(X, Y).
 
+ancester(X, Z) :- ancester(X, Y), ancester(Y, Z).