问题标签 [visual-prolog]

我的任务是：在自然项的数量中找到一个正整数的分区数。例如：N=5。答案是 7，因为 5：{1,1,1,1,1}, {2,1,1,1}, {2,2,1}, {3,1,1}, {3,2} , {4,1}, {5}

我在JS上写了一个解决方案：

但现在我正在尝试使用 Prolog 编写它，但pcount(number, limit - 1) + pcount(number - limit, limit);声明存在一些困难。

这是我的代码：

但它不起作用。此谓词错误：check(Number,Limit,Result)。如何组合两个谓词调用的结果：check(Number, Limit-1)+check(Number-Limit,Limit)？

任务是：确定哪些数 a,b,c 是 N 的除数。例如：(a=2,b=3,c=4,n=2 答案是 a,c)。

所以，我写了以下代码：

但是如果 Prolog 找到了第一个解决方案（在我的情况下是 a=2），那么它会停止并显示它。但是，在我的情况下，答案将是 a=2，c=4。我的问题是“Prolog 如何检查所有谓词”？

我想创建一个由N元素组成的列表。我写了以下代码：

但它返回我No Solution。

另一方面，如果我Counter像这样改变我的方向：

它返回我 1 解决方案：L=[5,4,3,2,1]。它工作得很好，但不是按顺序。我的第一个代码变体有什么问题？

我尝试删除具有偶数索引的元素。这是我的代码：

我错过了列表中的第一项，并将第二项保存在新列表中NewList。但只有当列表长度为偶数时它才有效。

我错过了什么？也许我的方法错了？

我有一个像下面这样的家谱：

我的事实是：

我有一个定义父母的规则。

还有定义父亲和母亲的规则。

现在问题来了，当我将兄弟的规则定义为

我使用查询执行它

结果为

我被要求只为这个查询带来一个结果。我无法搜索正确的问题。如果有解决方案，请提供一个或告诉我 Prolog 为何如此工作的原因。

我的 Prolog 给了我错误 1010。

Maximum number of anyflow variants (1000) exceeded尝试执行此代码时收到错误消息：

尝试从此答案执行代码时相同：https ://stackoverflow.com/a/6671142/4829408

我有功能：

它返回列表中的每个第二个元素。

但是我很好奇为什么当第一个参数是带有 1 个元素的列表时它什么都不返回（在我看来，它必须返回 [] - 空列表）。例子：

我正在尝试将一些数字附加到列表中，这些数字的范围从X到YX 是下限和Y上限，然后将这些生成的数字保存到列表中。我试过这个：

但是当我测试目标时，它给了我“没有解决方案”。我究竟做错了什么？非常感谢您的帮助。

我想计算列表中的正元素（VIsual Prolog）。所以我写了这个函数：

错误：

正如我从这个错误中了解到的，我不能将C=C+1C 用作输入变量。

有什么想法可以修复我的代码吗？