Implement invert/antipairs

rakudo · Aug 20, 2015 · 7d238fe · 7d238fe
1 parent 5679420
commit 7d238fe
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 7 deletions.
diff --git a/src/core/EnumMap.pm b/src/core/EnumMap.pm
@@ -149,12 +149,11 @@ my class EnumMap does Iterable does Associative { # declared in BOOTSTRAP
             }
         }.new(self))
     }
-    # XXX GLR implement these iterators
     multi method antipairs(EnumMap:D:) {
-        nqp::die('Hash antipairs iterator NYI in GLR')
+        self.map: { .value => .key }
     }
     multi method invert(EnumMap:D:) {
-        nqp::die('Hash invert iterator NYI in GLR')
+        self.map: { (.value »=>» .key).list.Slip }
     }
 
     multi method AT-KEY(EnumMap:D: \key) is rw {

diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -452,12 +452,10 @@ my class Hash { # declared in BOOTSTRAP
             }.new(self, $?CLASS, nqp::getattr(self, EnumMap, '$!storage')))
         }
         method antipairs(EnumMap:) {
-            return ().list unless self.DEFINITE && nqp::defined($!keys);
-            nqp::die('Typed hash antipairs iterator NYI in GLR')
+            self.map: { .value => .key }
         }
         method invert(EnumMap:) {
-            return ().list unless self.DEFINITE && nqp::defined($!keys);
-            nqp::die('Typed hash invert iterator NYI in GLR')
+            self.map: { .value »=>» .key }
         }
         multi method perl(::?CLASS:D \SELF:) {
             my $TKey-perl   := TKey.perl;