Пролог Двойной элемент для умножения времени

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).