我有一个列表[a, b, a, a, a, c, c]
,我需要再添加两个元素.
最终结果应如下所示:
[a, a, a, b, b, b, a, a, a, a, a, c, c, c, c]
如果我在列表中有一个与下一个项目相同的项目,那么它会继续运行,直到有一个新项目,当它找到新项目时,它会添加前一项目的两次,然后继续.
这是我的代码到目前为止,但我无法弄清楚如何添加两个...
dbl([], []).
dbl([X], [X,X]).
dbl([H|T], [H,H|T], [H,H|R]) :- dbl(T, R).