sandbox/lpn/ch01/kb5.pl

12 lines
221 B
Prolog

loves(vincent,mia).
loves(marsellus,mia).
loves(pumpkin,honey_bunny).
loves(honey_bunny,pumpkin).
/**
* original definition:
* jealous(X,Y):- loves(X,Z), loves(Y,Z).
*/
jealous(X,Y):- loves(X,Z), loves(Y,Z), X \= Y.