June 2018 Update

Task/Averages-Mode/Perl-6/averages-mode-1.pl6

@@ -3,3 +3,7 @@ sub mode (*@a) {
     my $max = %counts.values.max;
     return |%counts.grep(*.value == $max).map(*.key);
 }
+
+# Testing with arrays:
+say mode [1, 3, 6, 6, 6, 6, 7, 7, 12, 12, 17];
+say mode [1, 1, 2, 4, 4];

Task/Averages-Mode/Perl-6/averages-mode-2.pl6

@@ -1,2 +1,11 @@
+sub mode (*@a) {
+    return |(@a
+        .Bag                # count elements
+        .classify(*.value)  # group elements with the same count
+        .max(*.key)         # get group with the highest count
+        .value.map(*.key);  # get elements in the group
+    );
+}
+
 say mode [1, 3, 6, 6, 6, 6, 7, 7, 12, 12, 17];
 say mode [1, 1, 2, 4, 4];