Задача: Поразрядная сортировка массива подсчетом
Псевдокод: поразрядная сортировка подсчетом, оптимизация 
  1. // Наш исходный сортируемый массив
  2. x = {..<int> elements to be sorted...}
  3.  
  4. // Вспомогательный массив, 
  5. // копирующий исходный X
  6. source = array<int>[n] filled 0
  7.  
  8. // инициируем count пока нулями
  9. // и кстати - теперь он двухмерный!
  10. count = array<int>[width][n] filled 0
  11.  
  12. // рассчитываем количество чисел с 
  13. // одинаковыми разрядами для всех значений
  14. // разрядов
  15. for i = 0 to n-1
  16.     rangepow = 1
  17.     for step = 0 to width-1
  18.         d = (x[i] / rangepow) % range
  19.         count[step][ d ]++;
  20.  
  21. // Вспомогательная переменная
  22. rangepow = 1
  23.  
  24. for step = 0 to width-1
  25.  
  26.     // Копируем в source содержимое X
  27.     // на текущей итерации
  28.     source[] = copy of x[]
  29.  
  30.     // Завершаем формирование count, т.е. получаем
  31.     // количество элементов менших индекса
  32.     summNum = 0  // вспомогательная переменная
  33.     for i = 0 to range-1
  34.         tmp       = count[step][i]
  35.         count[step][i]  = summNum
  36.         summNum  += tmp
  37.  
  38.  
  39.     // Завершающий этап "вставка"
  40.     for i = 0 to n-1
  41.         d = (source[i] / rangepow) % range
  42.         x[ count[step][d] ] = source[i]
  43.         count[step][d]++  // Очень важная конструкция:
  44.                           // для случая посторяющихся чисел.
  45.     }
  46.     rangepow *= range
  47.