如何创建x的副本列表?

时间:2018-03-07 14:31:14

标签: prolog

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

到目前为止,我所做的是:

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

1 个答案:

答案 0 :(得分:0)

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

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