Question

假设我有一个列表[1, 2, 3, 4, 5, 6, 7, 8]，我想要做的是输出[[1,2], [3,4], [5,6], [7,8]]。

这是我目前的尝试：

perms([X,Y], [X,Y], _).
perms(L, R, N) :-
   N > 1,
   N1 is N/2,
   split(L, X1, X2),
   perms(X1, R1, N1),
   perms(X2, R2, N1),
   append([R1], [R2], R).

split(L, R1, R2) :-
   append(R1, R2, L),
   length(L, N),
   N1 is N/2,
   length(R1, N1),
   length(R2, N1).

假设N是我将手动输入的列表的长度。

Answer 1

答案似乎太简单了，我相当确定我不了解你的要求。无论如何，你可以尝试

pairs([X,Y],[[X,Y]]).
pairs([X,Y|R],[[X,Y]|T]) :- pairs(R, T).

Answer 2

group([], []).
group([A, B | Tail], [[A, B] | NewTail]) :-
    group(Tail, NewTail).

试运行：

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

?- group([1, 2, 3, 4, 5, 6, 7], X).
false.

?- group([], X).
X = [].

将数字列表拆分为对列表列表

2 个答案: