function radixSort(array)
    maxNumber = findMax(array)
    numberOfDigits = countDigits(maxNumber)
    
    for digit in 1 to numberOfDigits do
        applyCountingSort(array, digit)
    end for
end function

function applyCountingSort(array, digitPosition)
    create 10 buckets to represent each digit (0 to 9)
    
    for each element in array do
        digit = getDigit(element, digitPosition)
        place element into corresponding bucket based on digit
    end for
    
    merge all buckets in order to form the sorted array for this digit position
end function

function getDigit(number, position)
    return (number / 10^(position - 1)) % 10
end function

function findMax(array)
    maxNumber = array[0]
    for i = 1 to array.length - 1 do
        if array[i] > maxNumber then
            maxNumber = array[i]
        end if
    end for
    return maxNumber
end function

function countDigits(number)
    count = 0
    while number > 0 do
        number = number / 10
        count = count + 1
    end while
    return count
end function