Prolog免费日代码

Question

我有一个关于我的任务的问题。任务：

人们每天都被分配给他们。在这些日子里，他们是免费的工作。

Karl在Mo，Wed，清华上自由

Lukas免费在星期二，韦德，清华，Fr

Jon在Mo，Wed，Sa上免费

Alex在清华，Fr，Sa免费

Max在Mo，Wed，Fr，Sa，Su上是免费的

我为这些假设创建了知识库：

free(Karl,Mo).

free(Karl,Wed).

free(Karl,Thu).

..

..

free(Max,Su).

提出了4个问题：

1. X人在Y天是免费的吗？
2. 什么时候哪些人在一起自由。
3. 哪些人在一排里有2/3/4天的免费。
4. 他在一排里有3天的自由。

问题1很简单。

?- free(X,Day).

我想不出最后的三个。

谢谢你的帮助。

Answer 1

免费(susi，1)。 免费(susi，3)。 免费(susi，4)。 自由(霍斯特，2)。 自由(霍斯特，3)。 自由(霍斯特，4)。 自由(霍斯特，5)。 免费(lars，1)。 免费(lars，3)。 免费(lars，6)。 免费(汉娜，4岁)。 免费(汉娜，5岁)。 免费(汉娜，6岁)。 免费(fridolin，1)。 免费(fridolin，3)。 免费(fridolin，5岁)。 免费(fridolin，6岁)。 免费(fridolin，7岁)。 游离百分比(X，Y)。 %(X，Y，Z) 在一起(Person1，Person2，时间) :-空闲(Person1，时间)，空闲(Person2，时间)，+ (Person1=Person2)。

好的，我更新了知识库，并设法完成了第一和第二项任务。

现在卡在第三道了:/