June 2018 Update

Task/Sorting-algorithms-Counting-sort/Elena/sorting-algorithms-counting-sort.elena

@@ -0,0 +1,37 @@
+import extensions.
+import system'routines.
+
+extension $op
+{
+    countingSort
+        = self clone; countingSort(self minimalMember, self maximalMember).
+
+    countingSort int:min int:max
+    [
+        array<int> count := int<>(max - min + 1).
+        int z := 0.
+
+        count populate(:i)<int>(0).
+
+        0 till(self length) do(:i) [ count[self[i] - min] += 1 ].
+
+        min to:max do(:i)
+        [
+            while (count[i - min] > 0)
+            [
+                self[z] := i.
+                z += 1.
+
+                count[i - min] -= 1.
+            ]
+        ]
+    ]
+}
+
+program =
+[
+    var list := 0 to:10 repeat(:i)(randomGenerator eval(10)); toArray.
+
+    console printLine("before:", list).
+    console printLine("after :", list countingSort).
+].