Sorting algorithms/Counting sort: Difference between revisions

Content added Content deleted
(Modula-3)
mNo edit summary
Line 161: Line 161:
IMPORT IO, Fmt;
IMPORT IO, Fmt;


VAR test := ARRAY [0..7] OF INTEGER {80, 10, 40, 60, 50, 30, 20, 70};
VAR test := ARRAY [1..8] OF INTEGER {80, 10, 40, 60, 50, 30, 20, 70};


PROCEDURE Sort(VAR a: ARRAY OF INTEGER; min, max: INTEGER) =
PROCEDURE Sort(VAR a: ARRAY OF INTEGER; min, max: INTEGER) =
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Counting_sort"