Prolog规则（谓词）

Question

我是Prolog SWI的新人，你可以帮我解决这个问题。 假设有一个数据库，谓词喜欢（person1，person2）和爱好（person1，业余爱好）。现在，我如何设计一个规则，使得系统能够回答两个人是否有同样的喜好，这取决于他们的爱好。

likes (john, jake).  
true 

Answer 1

最后，我做到了

hobby(harry,music).
hobby(harry,running).
hobby(jocker,swimming).
hobby(jocker,movies).
hobby(jocker,art).
hobby(curl,running).
hobby(curl,art).
hobby(curl,movies).

same_hobby(P1,P2) :-
        dif(P1,P2),
        hobby(P1,H),
        hobby(P2,H).