malcin

Untitled

Mar 23rd, 2017
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.10 KB | None | 0 0
  1. :- op(2, xfy, -).
  2. gr(g).
  3. gr(z).
  4. check(X - Y):-
  5.     (gr(X) ; gr(Y)).
  6.  
  7. ?- check(g - z).
  8. true ;
  9. true.
Advertisement
Add Comment
Please, Sign In to add comment