recursion - 您将如何在 Prolog 中编写程序以使用递归打印从 1 到 10 的数字？

Question

您将如何在 Prolog 中编写程序以使用递归打印从 1 到 10 的数字？

我已经尝试了以下方法但它不起作用，你能告诉我为什么吗？

print_numbers(10) :- write(10).

print_numbers(X) :- write(X),nl,X is X + 1, print_numbers(X).

Answer 1

您的代码非常接近工作。问题是你不能重用 X，一旦它被实例化，它就不能改变(更多细节见 here)。使用一个新变量，如下所示:

print_numbers(10) :- write(10), !.
print_numbers(X) :- write(X), nl, Next is X + 1, print_numbers(Next).

将剪切 (!) 添加到末尾将阻止解释器询问您是否想要查看更多结果。

?- print_numbers(1).
1
2
3
4
5
6
7
8
9
10

Yes
?-