RadixSort

// elem - liczka możliwych wartości składowych elementu tablicy wejściowej (obiektu)

// elem_value(o,i) - wartość i-tej składowej obiektu o

1    void RadixSort(object E[], int d) {

// E - tablica obiektów

// d - liczba pozycji składowych obiektu

2    int i, j, k;

3    Qnetie Q[elem] ; // tablica kolejek pomocniczych rozmiaru elem

4

5    for (i:=d; i>0; i:=i —1) do {

6    for (j : =0; j<size(E) ; j:=j+l)    // wstawianie obiektów do kolejek wzgedem

// wartości i-tej składowej

7    IN(Q[elem_valne(E[j],i)],E[j]);

8

9    k:=0;

10    for (j : =0; j<elem; j:=j+l) do // przepisywanie obiektów do tablicy

// z zachowaniem właściwego porządku

11    while (EMPTY (Q [ j ]) =FALSE) do {

12    E[k]:=FIRST(Q[j]);

13    OUT(Q[j]);

14    k:=k+l;

15    }

16    }

17    }