Предикат, который дублирует все элементы списка - Prolog

Формулировка задачи:

Пожалуйста, помогите написать предикат, который дублирует все элементы списка.

Код к задаче: «Предикат, который дублирует все элементы списка - Prolog»

textual
p([A|B], [A,A|C]) :- p(B,C).
p(_,[]).
 
?- p([1,2,3,4,5], X).
X = [1, 1, 2, 2, 3, 3, 4, 4, 5|...] .
 
?- p(["A","B","C"], X).
X = ["A", "A", "B", "B", "C", "C"] .
 
?- p([[1,2],[3,4]], X).
X = [[1, 2], [1, 2], [3, 4], [3, 4]] .

8   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы