Как обрабатывать граф в виде списка смежности - Prolog

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

Не подскажете, как обрабатывать граф (например поиск в глубину), если он задан списком смежности ([q,w,e],[w,d,g],[e,g])? Приводить к обычному виду?

Решение задачи: «Как обрабатывать граф в виде списка смежности»

textual
                            Листинг программы 
                        

                            my_convert3([], [], []):-!.
my_convert3([[H|T] | T1], [H | T2], T4) :-  
    my_convert2(H, T, T3),
    my_append(T3, T4, T5),  
    my_convert3(T1, T2, T5).    
 
my_convert2(H, [], []):-!.
my_convert2(H, [T | T1], [H>T | T3]) :-
    my_convert2(H, T1, T3). 
 
my_append([],L,L):-!.
my_append(Y,[],Y):-!.
my_append([H|T],P,[H|Y]):-my_append(T,P,Y).
                        