Sorting algorithms/Counting sort: Difference between revisions

=={{header|BBC BASIC}}==

<lang bbcbasic> DIM test%(9)

test%() = 4, 65, 2, -31, 0, 99, 2, 83, 782, 1

PROCcountingsort(test%(), -31, 782)

FOR i% = 0 TO 9

PRINT test%(i%) ;

NEXT

PRINT

END

DEF PROCcountingsort(a%(), l%, h%)

LOCAL i%, z%, c%()

DIM c%(h% - l%)

FOR i% = 0 TO DIM(a%(),1)

c%(a%(i%) - l%) += 1

NEXT

FOR i% = l% TO h%

WHILE c%(i% - l%)

a%(z%) = i%

z% += 1

c%(i% - l%) -= 1

ENDWHILE

NEXT

ENDPROC</lang>

'''Output:'''

<pre>

-31 0 1 2 2 4 65 83 99 782

</pre>