Advertisement
Tusohian

Family Tree (for finding Ancestor)

Jul 4th, 2019
564
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.32 KB | None | 0 0
  1. /*facts*/
  2. parent(rakib, soma).
  3. parent(rakib, mimi).
  4. parent(rakib,akash).
  5.  
  6. parent(soma,rabbi).
  7. parent(soma,ani).
  8.  
  9. parent(mimi,akib).
  10. parent(mimi,riya).
  11.  
  12. parent(akash,lima).
  13.  
  14. parent(rabbi, bikash).
  15. parent(rabbi,urmi).
  16.  
  17.  
  18. /*rules*/
  19. ancestor(X,Y):-
  20. parent(X,Y).
  21.  
  22. ancestor(X,Y):-
  23. parent(X,Z), ancestor(Z,Y).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement