Hash.invert, List.end, tests

LHF.markdown

@@ -34,3 +34,7 @@ my Int $b = 3;  $b = Nil;
 Often builtins are only added as methods, even when the corresponding function
 should exist. Go through src/core/ and write functions that re-dispatch to the
 methods where necessary
+
+## Hash.push
+
+Implement Hash.push

src/core/Any.pm

@@ -9,6 +9,7 @@ my class Any {
 
     method eager() { nqp::p6list(nqp::list(self), List, Bool::True).eager }
     method elems() { self.list.elems }
+    method end()   { self.list.end }
     method infinite() { Mu }
     method flat() { nqp::p6list(nqp::list(self), List, Bool::True) }
     method hash() { my %h = self }
@@ -189,3 +190,8 @@ multi pairs($x) { $x.pairs }
 proto kv(|$) { * }
 multi kv($x) { $x.kv }
 
+proto elems(|$) { * }
+multi elems($a) { $a.elems }
+
+proto end(|$) { * }
+multi end($a) { $a.end }

src/core/EnumMap.pm

@@ -33,6 +33,17 @@ my class EnumMap does Associative {
             Nil
         }
     }
+    method invert() {
+        gather {
+            my Mu $iter := nqp::iterator($!storage);
+            my Mu $pair;
+            while $iter {
+                $pair := nqp::shift($iter);
+                take Pair.new(:key($pair.value), :value($pair.key));
+            }
+            Nil
+        }
+    }
 
     method at_key($key is copy) is rw {
         $key = $key.Str;

src/core/List.pm

@@ -16,6 +16,7 @@ class List does Positional {
     method Bool()       { self.gimme(1).Bool }
     method Int()        { self.elems }
     method Numeric()    { self.elems }
+    method end()        { self.elems - 1 }
     multi method Str(List:D:) { self.join(' ') }
     method fmt($format = '%s', $separator = ' ') {
         self.map({ .fmt($format) }).join($separator);

t/spectest.data

@@ -472,7 +472,7 @@ S32-array/create.t
 S32-array/exists.t
 # S32-array/keys_values.t # err: Method 'keys' not found for invocant of class 'Array'
 # S32-array/kv.t # err: Method 'kv' not found for invocant of class 'Array'
-# S32-array/pairs.t #err: Could not find sub &pairs
+# S23-array/pairs.t #err: Method 'pairs' not found for invocant of class 'Array'
 S32-array/pop.t
 # S32-array/push.t # err: No applicable candidates found to dispatch to for 'ACCEPTS'
 # S32-array/rotate.t # err: Method 'rotate' not found for invocant of class 'Array'
@@ -495,7 +495,7 @@ S32-hash/exists.t
 # S32-io/IO-Socket-INET.t # err:  ResizablePMCArray: Can't shift from an empty array!
 # S32-list/classify.t # err: Method 'classify' not found for invocant of class 'Array'
 S32-list/create.t
-# S32-list/end.t # err: Method 'end' not found for invocant of class 'Array'
+S32-list/end.t # err: Method 'end' not found for invocant of class 'Array'
 # S32-list/first.t # err: too many positional arguments: 3 passed, 1 expected
 S32-list/grep.t
 S32-list/join.t