Пролог: вставить в кортеж

Question

В 3-кортеже, как я могу поставить символ '#' в качестве среднего члена кортежа.

предикат: дубликат (L1, L2).

?дубликат ([30,40,50], X).

X = [(30, #, 30), (40, #, 40), (50, #, 50)].

?дубликат ([80], X).

X = [(80, #, 80)].

?дубликат ([], X).

X = [].

Tks

Answer 1

Вы можете сделать что-то вроде этого:

duplicate([],[]).                                            
duplicate([H|T], [(H, '#', H)|R]) :- duplicate(T,R).

Разве пролог не прекрасен?