Sorting algorithms/Counting sort: Difference between revisions

<lang PureBasic>Procedure Counting_sort(Array data_array(1), min, max)

Dim Cc(max - min+1)

For i = 0 To ArraySize(data_array())

Cc(data_array(i) - min) + 1

For i =min To max0 To ArraySize(c())

While Cc(i)

data_array(j) = i + min

j + 1

Cc(i) - 1