Advertisement
Guest User

Untitled

a guest
May 22nd, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. %exercício 22
  2.  
  3. localizado_em(salvador, bahia).
  4. localizado_em(bahia, brasil).
  5. localizado_em(maceio, brasil).
  6. localizado_em(roma, italia).
  7. nasceu_em(joao, salvador).
  8. nasceu_em(maria, maceio).
  9. nasceu_em(giuseppe, roma).
  10.  
  11. localizado_em_rec(X,Y) :-
  12. localizado_em(X,Y).
  13.  
  14. localizado_em_rec(X,Y) :-
  15. localizado_em(Z,Y),
  16. localizado_em_rec(X,Z).
  17.  
  18. nasceu_em_rec(P,L) :-
  19. nasceu_em(P,L).
  20.  
  21. nasceu_em_rec(P,L) :-
  22. nasceu_em(P,X),
  23. localizado_em_rec(X,L).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement