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.