Prolog将元素复制到多个时间

Question

我的目标是将列表中的元素增加三倍。

例如，查询为

?-Three([a,b,c],X).

然后，预期输出为

X = [a,a,a,b,b,b,c,c,c]

我不知道该怎么做，请帮助我。

Answer 1

three([],[]).
three([H|T],[H,H,H|R]):-
      three(T,R).