Sorting algorithms/Radix sort: Difference between revisions
Content added Content deleted
m (→{{header|Tailspin}}: syntax update) |
|||
Line 492: | Line 492: | ||
=={{header|EasyLang}}== |
=={{header|EasyLang}}== |
||
<lang># |
<lang># Radix sort - sorts positive integers |
||
# |
# |
||
subr sort |
subr sort |
||
Line 506: | Line 506: | ||
while pos <= max |
while pos <= max |
||
for i range radix |
for i range radix |
||
len buck[ |
len buck[][i] 0 |
||
. |
. |
||
for di range len data[] |
for di range len data[] |
||
h = data[di] / pos mod radix |
h = data[di] / pos mod radix |
||
buck[ |
buck[][h] &= data[di] |
||
. |
. |
||
di = 0 |
di = 0 |
||
for i range radix |
for i range radix |
||
for j range len buck[ |
for j range len buck[][i] |
||
data[di] = buck[ |
data[di] = buck[j][i] |
||
di += 1 |
di += 1 |
||
. |
. |