如何创建x的副本列表？

Question

我试图创建一个简单的过程，将元素n次复制到结果列表中。

到目前为止，我所做的是：

cp(1, X, [X]).
cp(N, X, D):- N > 0, N1 is N - 1, append(X, D,D1), cp(N1,X,D1).

Answer 1

这是我对任务的最终解决方案

cp(1, X, [X]).
cp(N, X, D):- N > 1, N1 is N - 1, cp(N1,X,D1), append(D1, [X], D).