Guest User

Untitled

a guest
Jan 21st, 2016
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.58 KB | None | 0 0
  1. lezy(a,krol).
  2. lezy(g,dama).
  3. obok(a,b).
  4. obok(a,c).
  5. obok(b,c).
  6. obok(b,d).
  7. obok(d,e).
  8. obok(e,f).
  9. obok(e,b).
  10. obok(e,c).
  11. obok(f,c).
  12. obok(h,f).
  13. obok(h,e).
  14. obok(g,h).
  15. obok(d,g).
  16. obok(i,h).
  17. obok(g,i).
  18. obok(X,Y) :- obok(Y,X).
  19. lezy(X,osiem) :- lezy(Z,dziewiec) ; obok(X,Z).
  20. lezy(X,dziewiec) :- lezy(Z,siedem) ; lezy(Y,krol) ;obok(X,Z) ;obok(X,Y).
  21. lezy(X,as) :- lezy(Z,krol) ; obok(X,Z); lezy(Y,walet);obok(X,Y).
  22. lezy(X,siedem) :- lezy(Y,as) ; obok(X,Y).
  23. lezy(X,walet) :- lezy(Z,dama) ; not(obok(X,Z)) ; lezy(Y,krol); not(obok(X,Y)).
  24. lezy(X,szostka) :- lezy(Z,dama) ;obok(X,Z).
Advertisement
Add Comment
Please, Sign In to add comment