prolog - 在新列表 Prolog 中复制一个列表的所有元素 N 次

Question

如何在不使用 Maplist、findall 或库的情况下使用 Prolog 的简单命令将一个列表的所有元素复制 N 次到一个新列表中。

例如我问 Prolog 的查询:

?- copy_list([a,b,c,d],3,List).

该查询的答案类似于:

List = [a,b,c,d,a,b,c,d,a,b,c,d].

Answer 1

我们可以首先生成一个包含N 个子列表的列表，然后用append/2 [swi-doc] 展平该列表。 :

repeat(0, _, []).
repeat(N, X, [X|T]) :-
    N > 0,
    N1 is N-1,
    repeat(N1, X, T).

然后我们可以将 copy_list/3 谓词定义为:

copy_list(L, N, R) :-
    copy_list(N, L, LL),
    append(LL, R).

或者我们可以使用 append/3 [swi-doc]在这里，因此每次递减数字，并且

copy_list(_, 0, []).
copy_list(L, N, R) :-
    N > 0,
    N1 is N-1,
    copy_list(L, N1, R2),
    append(L, R2, R).