初学prolog 老师布置的题目 简单就是不太会 三角问题 求大佬ba

likes(zhanglei,wangqing).
likes(zhanglei,zhouling).
likes(wangqing,baiyang).
likes(zhouling,zhanglei).
likes(baiyang,wangqing).
likes(baiyang,zhouling).
likes(zhuli,zhouling).
dislikes(X,Y):-likes(X,Y),\+likes(Y,X).
friend(X,Y):-likes(X,Y),likes(Y,X).
friend(X,Y):-friend(Y,X).
enemy(X,Y):-dislikes(X,Y), likes(Y,X).

这是我自己编写的代码 总感觉最后一个 需要多加一个未知数

希望来个大佬 指点一下

看过一篇文章，突然发现可以直接表示未知数，原来一直在钻牛角尖，下面是我新打的代码
likes(zhanglei,wangqing).
likes(zhanglei,zhouling).
likes(wangqing,baiyang).
likes(zhouling,zhanglei).
likes(baiyang,wangqing).
likes(baiyang,zhouling).
likes(zhuli,zhouling).
friend(X,Y):-likes(X,Y),likes(Y,X).
friend(X,Y):-friend(Y,X).
enemy(X,Z):-likes(X,Y),\+likes(Y,X),likes(A,Z),A=Y.

本着试一试的心态，没想到这种写法，计算机是可以识别的。

怎么把重复的答案去除啊