Algoritmia - enhebrar un arbol......

PROCEDURE EnhebrarInorderDerecha(raiz):

    Stack pila

    Node actual = raiz

    Node previo = NULL

    WHILE (actual NO ES NULL O pila NO ESTÁ VACÍA):

        WHILE (actual NO ES NULL):

            Push(pila, actual)

            actual = actual.IZQ

        actual = Pop(pila)

        IF (previo NO ES NULL Y actual.DTAG == 1):

            // Enhebrar con el nodo anterior en INORDER por la derecha

            previo.DER = actual.DER

            actual.DTAG = 0  // Actualizar DTAG para indicar hijo derecho

        previo = actual

        actual = actual.DER

    // Fin del recorrido

END PROCEDURE