all tasks

Task/Sorting-algorithms-Counting-sort/Perl/sorting-algorithms-counting-sort-1.pl

@@ -0,0 +1,13 @@
+#! /usr/bin/perl
+use strict;
+
+sub counting_sort
+{
+    my ($a, $min, $max) = @_;
+
+    my @cnt = (0) x ($max - $min + 1);
+    $cnt[$_ - $min]++ foreach @$a;
+
+    my $i = $min;
+    @$a = map {($i++) x $_} @cnt;
+}

Task/Sorting-algorithms-Counting-sort/Perl/sorting-algorithms-counting-sort-2.pl

@@ -0,0 +1,4 @@
+my @ages = map {int(rand(140))} 1 .. 100;
+
+counting_sort(\@ages, 0, 140);
+print join("\n", @ages), "\n";