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

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).