Sorting algorithms/Counting sort: Difference between revisions
→{{header|Phix}}
(→{{header|Elixir}}: used Enum.min_max, and Elixir style) |
|||
Line 1,592:
{{out}}
<pre>ok</pre>
=={{header|Phix}}==
<lang Phix>function countingSort(sequence array, integer mina, maxa)
sequence count = repeat(0,maxa-mina+1)
for i=1 to length(array) do
count[array[i]-mina+1] += 1
end for
integer z = 1
for i=mina to maxa do
for j=1 to count[i-mina+1] do
array[z] := i
z += 1
end for
end for
return array
end function
sequence s = {5, 3, 1, 7, 4, 1, 1, 20}
?countingSort(s,min(s),max(s))</lang>
{{out}}
<pre>
{1,1,1,3,4,5,7,20}
</pre>
=={{header|PHP}}==
| |||