Implement Bag|Mix.grabpairs, oddly enough exactly the same as Setty.grab

rakudo · Oct 6, 2013 · c6b15dc · c6b15dc
1 parent 889892a
commit c6b15dc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm
@@ -108,6 +108,10 @@ my role Baggy does QuantHash {
         }, 1 .. $todo;
     }
 
+    method grabpairs($count = 1) {
+        (%!elems{ %!elems.keys.pick($count) }:delete).list;
+    }
+
     proto method classify-list(|) { * }
     multi method classify-list( &test, *@list ) {
         fail 'Cannot .classify an infinite list' if @list.infinite;

diff --git a/src/core/Setty.pm b/src/core/Setty.pm
@@ -64,7 +64,9 @@ my role Setty does QuantHash {
 
     method list() { %!elems.values }
     method pairs() { %!elems.values.map({ $_ => True }) } 
-    method grab($count = 1) { (%!elems{ %!elems.keys.pick($count) }:delete).list }
+    method grab($count = 1) {
+        (%!elems{ %!elems.keys.pick($count) }:delete).list;
+    }
     method pick($count = 1) { %!elems.values.pick($count) }
     method roll($count = 1) { %!elems.values.roll($count) }