Advertisement
Guest User

Untitled

a guest
Nov 4th, 2017
45
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.84 KB | None | 0 0
  1. MATKA
  2. matka(X,Y):-płeć(X,kobieta) ^ rodzic(X,Y).
  3.  
  4. OJCIEC
  5. ojciec(X,Y):-płeć(X,mężczyzna) ^ rodzic(X,Y).
  6.  
  7. SYN
  8. syn(X,Y):-rodzic(Y,X) ^ płeć(Y,mężczyzna).
  9.  
  10. CÓRKA
  11. córka(X,Y):-rodzic(Y,X) ^ płeć(Y,kobieta).
  12.  
  13. DZIEWIERZ - brat męża (dla bratowej)
  14. ///                 Q - ojciec męża       W - matka męża
  15. ///         X - brat męża             Z - mąż   Y - żona męża
  16.  
  17. dziewierz(X,Y):-płeć(X,mężczyzna) ^ [rodzic(Q,X) ^ rodzic(Q,Z)] v [rodzic(W,X) ^ rodzic(W,Z)] ^ współmałżonek(Z,Y) ^ płeć(Y, kobieta)
  18.  
  19. JĄTREW - żona brata męża (dla jątrwi)
  20. ///                 Q - ojciec męża       W - matka męża
  21. ///     P - żona brata męża  X - brat męża             Z - mąż   Y - żona męża
  22.  
  23. jątrew(P,Y):-płeć(P,kobieta) ^ płeć(Y, kobieta) ^ współmałżonek(X,P) ^ współmałżonek(Z,Y) ^ [rodzic(Q,Y) ^ rodzic(Q,Z)] v [rodzic(W,X) ^ rodzic(W,Z)]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement