Abro una nueva consulta ya que la anterior, por error mío, ha sido marcada como duplicada por esta otra. La diferencia es que en este caso se pretende devolver la lista por niveles y no mediante una búsqueda en profundidad con preorden.
Un ejemplo sería ?- escribe_arbol(1,[[[[],4,[]],2,[[],5,[]]],1,[[[],6,[]],3,[[],7,[]]]],L).
. En dicho caso, el resultado debería ser L = [1,2,3,4,5,6,7].
.
- Nivel 1: [1,...]
- Nivel 2: [...,2,3,...]
- Nivel 3: [...,4,5,6,7]
Mi código Prolog es el siguiente:
escribe_arbol(N,ABN,L):- explora_hijos(N,ABN,L).
explora_hijos(R,[],[]).
explora_hijos(R,[HI,R,HD],[R|Rs]).
explora_hijos(_,[HI,R,HD],[R|Rs]) :-
explora_hijos(R,HI,HIs),
explora_hijos(R,HD,HDs),
append(HIs,HDs,R).
El resultado es L = [6|_5626].
por lo que no está funcionando del todo bien.