在 prolog 中创建两个数字范围内的列表

Question

我想建立两个给定数字范围内的数字列表。

例如：

betweenRange(1,5,X)

会给出答案：

X=[1,2,3,4,5]

。

知道该怎么做吗？

我尝试过类似的方法：

elementsBetween(N1, N2, [N1|_]):-
   N2 =:= N1.
elementsBetween(N1, N2, List):-
   N2 > N1, N2New is N2-1, 
   elementsBetween(N1, N2New, [N2|List]).

但它不起作用，递归后回溯存在一些问题。

Answer 1

betweenToList(X,X,[X]) :- !.
betweenToList(X,Y,[X|Xs]) :-
    X =< Y,
    Z is X+1,
    betweenToList(Z,Y,Xs).

输出：

?- betweenToList(1,5,X).
X = [1, 2, 3, 4, 5].

?- betweenToList(1,2,X).
X = [1, 2].

?- betweenToList(1,8,X).
X = [1, 2, 3, 4, 5, 6, 7, 8].

?- betweenToList(1,1,X).
X = [1].

?- betweenToList(1,0,X).
false.

通过减少

Y

相同的逻辑，您可以使用

reverse/2

（易于实现）：

betweenDecYAux(X,X,[X]) :- !.
betweenDecYAux(X,Y,[Y|Ys]) :-
    X =< Y,
    Z is Y-1,
    betweenDecYAux(X,Z,Ys).

betweenDecY(X,Y,R) :-
    betweenDecYAux(X,Y,L),
    reverse(L, R). % reverse [c,b,a] to [a,b,c]

输出：

?- betweenDecY(1,6,X).
X = [1, 2, 3, 4, 5, 6].

?- betweenDecY(2,8,X).
X = [2, 3, 4, 5, 6, 7, 8].

?- betweenDecY(1,0,X).
false.

Answer 2

这是一个简单的解决方案：

    betweenRange(Lo, Hi, Range) :- findall(N, between(Lo, Hi, N), Range).

它将所有满足between(Lo,Hi,N)的

N

放入列表范围中。

Answer 3

更好的是，使用 numlist:

numlist(From, To, List).