Prolog-师

Question

我是Prolog的新手。从字面上看这个星期。我希望编写一个接受两个数字x，y作为输入的递归序言。它应该输出以筛选所有数字列表小于或等于x可以均匀排除的所有数字的列表。

在过去的几天里，我一直在研究这一点，并且很困惑。我首先尝试将y分为1，在屏幕上显示此内容，然后重复该过程。任何人都会有关于工作的技巧吗？一旦我得到了，我将尝试确保它们小于或等于X。

到目前为止，我有以下内容，这可能是完全错误的。任何帮助都将受到赞赏。如果格式不佳，则表示歉意。

divide(X, Y) :-
    S is 1,
    Z is Y / S,
    S is S + 1,
    write(Z),
    divide(X, Y).

Answer 1

小于20的数字除以3启动3、6、9，... IE从Divisor 3开始，每次添加3个，直到您超越了截止。

例如

countup(X, Y, Counter) :-  % if the counter is below the limit,
    Counter =< X,          
    writeln(Counter),      % print it.
    
    Next is Counter + Y,   % count up by +Y, e.g. +3

    countup(X, Y, Next).   % loop.


countup(X, _, Counter) :-  % if the counter is past the limit,
    Counter > X.           % stop.


divide(X, Y) :-            % start counting from Y, e.g. 3
    countup(X, Y, Y).

---

，在您的代码中，这行：

S is S + 1

您是说“如果2是3”，那么Prolog会说“不是，案件关闭，停在此处”并结束您的程序。当您做S+1时，您需要为结果使用新变量。只有Prolog系统才能更改变量，您不能（简化）。

---

这是无限循环的形状：

divide(X, Y) :-
    ____,
    ____,
    divide(X, Y).

x和y永远不会改变，因此每次都会发生相同的调用；如果它已经超越了S = S+1，那么它将永远转弯。

---

这种形状：

divide(X, Y) :-
    S is 1,
    ____,
    divide(X, Y).

如果它可以使用您的尝试方式，则每次将其重置为1。

由于您需要某种情况来处理循环和某种情况以处理停止，并进行了一些测试，以通过限制和通过循环传递的东西，我希望单词作为可变名称，快速您的短代码变成了我的更长的代码即使它没有做更多的作用。

---

（我不是从X开始而分开的，因为那意味着X必须是Y的倍数。我认为您应该能够要求少于10的数字，这些数字可以分别为9，而无需交易， 10/9 = 1.11 ...）