code.jobs - Imprimir árbol - Prolog

arbol.pl

imprime_arbol :-
    imprime_arbol(raiz,0).

imprime_arbol(Padre,_) :- 
    nodo(hoja,Class,Padre), !,
    write(' => '),write(Class).
imprime_arbol(Padre,Pos) :-
    findall(Son,nodo(Son,_,Padre),L),
    Pos1 is Pos+2,
    imprime_lista(L,Pos1).

imprime_lista([],_) :- !.

imprime_lista([N|T],Pos) :-
    nodo(N,Test,_),
    nl, tab(Pos), write(Test),
    imprime_arbol(N,Pos),
    imprime_lista(T,Pos).