Buenas,
Quiero hallar la manera de poder devolver una lista con los nodos que hay en un camino desde el nodo raíz del árbol a un nodo específico haciendo haciendo uso únicamente de los siguientes constructores y selectores
vacio([]).
raiz([_,N,_], N).
hi([HI,_,_],HI).
hd([_,_,HD],HD).
hazarbol(R,HI,HD,[HI,R,HD])
Se define un árbol binario en Prolog de la siguiente manera:
A4 = [[[[[],1,[]],5,[]],
7,
[[],3,[[],4,[]]]],
6,
[[[],10,[]],
8,
[[[],9,[]],11,[[],2,[]]]]]
La última prueba que he hecho ( siendo incorrecta ) es la siguiente:
padre(N,Abn,P) :- hi(Abn,HI), raiz(HI,N), raiz(Abn,P).
padre(N,Abn,P) :- hd(Abn,HD), raiz(HD,N), raiz(Abn,P).
padre(N,Abn,P) :- hi(Abn,HI), padre(N,HI,P).
padre(N,Abn,P) :- hd(Abn,HD), padre(N,HD,P).
caminohasta(N,[L,N,R],N).
caminohasta(N,Abn,[L]) :- padre(N,Abn,P), append([P],L),caminohasta(P,Abn,L).
Pero como output me devuelve procedure
camino(A,B,C)' does not exist`
¿Alguna idea de cómo puedo proceder?
Muchas gracias por adelantado