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

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

Нужно вложенный список преобразовать в линейный, при этом после каждого элемента необходимо указывать его уровень вложенности, что был в изначальном списке. К примеру если есть список [a, b, c, [d, e, f, [p, z] ], f], то на выходе необходимо получить:

[a(1), b(1), c(1), d(2), e(2), f(2), p(3), z(3), f(1)]

ну или хотябы такой (если первый вариант слишком тяжело реализовать):

[a, 1, b, 1, c, 1, d, 2, e, 2, f, 2, p, 3, z, 3, f, 1]

Нашел на форуме код для преобразования вложенного списка в линейный:

func([], []).
func(X, R):-not( X = []), not( X = [_ |_ ]), R = [X].
func([X|Y] ,R):- func(X, R1), func(Y, R2), append(R1, R2, R).

Решение задачи: «Преобразование в линейный список с указанием вложенности»

textual
                            Листинг программы 
                        
                            func([X|Tail],[R|TailR],Depth):-atomic(X),!, R=..[X,Depth],

Оцени полезность:

15 голосов , оценка 3.8 из 5

Похожие ответы