Algoritmia - Ordenacion de vectores por Radix y por cubetas

Procedimiento ordenacionRadix(vector A):

    máximo := encontrarMaximo(A)

    exp := 1

    Mientras (máximo / exp) > 0

        contarSort(A, exp)

        exp *= 10

    Fin Mientras

Fin Procedimiento

Procedimiento contarSort(vector A, exp):

    n := longitud(A)

    salida := vector de tamaño n

    contar := vector de tamaño 10 con todos los elementos inicializados a 0

    Para i desde 0 hasta n-1

        contar[(A / exp) % 10]++

    Fin Para

    Para i desde 1 hasta 9

        contar[i] += contar[i-1]

    Fin Para

    Para i desde n-1 hasta 0

        salida[contar[(A[i] / exp) % 10] - 1] = A[i]

        contar[(A[i] / exp) % 10]--

    Fin Para

    Para i desde 0 hasta n-1

        A[i] = salida[i]

    Fin Para

Fin Procedimiento

Procedimiento ordenacionPorCubetas(vector A):

    n := longitud(A)

    cubetas := inicializarCubetas()

    salida := []

    Para i desde 0 hasta n-1

        índice := calcularIndice(A[i])

        insertarEnCubeta(cubetas, índice, A[i])

    Fin Para

    Para cada cubeta en cubetas

        ordenarCubeta(cubeta)

        agregarCubetaASalida(cubeta, salida)

    Fin Para

    A := salida

Fin Procedimiento

Función calcularIndice(valor):

    // Calcular el índice de la cubeta basado en el valor del elemento

    // Puede ser una función simple, como dividir por el tamaño de cada cubeta

    Devolver índice

Fin Función

Procedimiento insertarEnCubeta(cubetas, índice, valor):

    // Insertar el valor en la cubeta correspondiente

Fin Procedimiento

Procedimiento ordenarCubeta(cubeta):

    // Aplicar un algoritmo de ordenación a la cubeta (puede ser cualquier otro algoritmo)

Fin Procedimiento

Procedimiento agregarCubetaASalida(cubeta, salida):

    // Agregar los elementos de la cubeta a la salida

Fin Procedimiento