Advertisement
henhooky

Untitled

Jun 20th, 2019
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. predicates
  2. nondeterm reys(symbol, symbol)
  3. nondeterm avia2(symbol, symbol)
  4.  
  5. clauses
  6. reys(moscow, saint_pitersburg).
  7. reys(moscow, omsk).
  8. reys(omsk, saint_pitersburg).
  9. reys(moscow, perm).
  10. reys(perm, omsk).
  11. reys(perm, kipr).
  12. reys(kipr, vena).
  13. reys(moscow, kipr).
  14.  
  15. avia2(X,Z):-not(reys(X,Z)),reys(X,Y), reys(Y,Z).
  16. goal
  17. avia2(moscow, kipr).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement