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># only works with positive integers
<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[i][] 0
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[h][] &= data[di]
buck[][h] &= data[di]
.
.
di = 0
di = 0
for i range radix
for i range radix
for j range len buck[i][]
for j range len buck[][i]
data[di] = buck[i][j]
data[di] = buck[j][i]
di += 1
di += 1
.
.