Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- passaro('Marcelo').
- peixe('Silvio').
- minhoca('Ana').
- pessoa('Eu').
- gosta(X, Y) :- passaro(X), minhoca(Y).
- gosta(X, Y) :- gato(X), peixe(Y).
- gosta(X, Y) :- gato(X), peixe(Y).
- amigo('Eu', 'Chuck Norris').
- gato('Chuck Norris').
- come('Chuck Norris', Y) :- gosta('Chuck Norris', Y), not(pessoa(Y)).
- gosta('Marcelo', X).
- come('Chuck Norris', Y).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement