implement List.classify; all tests pass except those depending on bin…

…ding

src/core/Any-list.pm

@@ -175,6 +175,16 @@ augment class Any {
         self.pick(Inf, :$replace);
     }
 
+    multi method classify($test) {
+        my %result;
+        for @.list {
+            my $k = $_ ~~ $test;
+            %result{$k} //= [];
+            %result{$k}.push: $_;
+        }
+        %result.pairs;
+    }
+
     multi method reduce(Code $expression is rw) {
         my $arity = $expression.?count || 2; # second half is a CHEAT
         fail('Cannot reduce() using a unary or nullary function.')
@@ -247,6 +257,7 @@ augment class Any {
     }
 }
 
+proto sub classify($matcher, *@values) { @values.classify($matcher) }
 proto sub join (Str $separator = '', *@values) { @values.join($separator); }
 proto sub reverse(@values) { @values.reverse; }
 multi sub reverse(*@v) { @v.reverse; }

t/spectest.data

@@ -471,6 +471,7 @@ S32-hash/push.t
 S32-io/file-tests.t
 S32-io/note.t
 # S32-io/IO-Socket-INET.t
+S32-list/classify.t
 ## S32-list/create.t
 S32-list/end.t
 S32-list/first.t