Prolog打印数字从1到N？

Question

假设用户为该函数提供了输入N，我将如何打印这些数字（从1到N）（递归或其他方式）。

例

print_numbers（40）。

- > 1
- > 2
- > ...
- > 40

Answer 1

您要打印从1到N的数字，以便可以将print_numbers（N）转换为print_numbers（1，N）。

现在从X到Y的print_numbers是什么？

从X到Y的print_numbers是print（X），从X + 1到N的print_numbers！

在Prolog中，您将获得：

print_numbers(N) :-
    print_numbers(1, N).

% general case X must be lower than Y
print_numbers(X, Y) :-
    X =< Y,
    writeln(X),
    X1 is X + 1,
    print_numbers(X1, Y).

Answer 2

使用between/3和forall/2 ：

?- forall(between(1, 40, X), writeln(X))
1
2
3
...
39
40
true.