simplify List.kv

rakudo · Aug 9, 2009 · 75d2b7d · 75d2b7d
1 parent 7d06fad
commit 75d2b7d
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/src/setting/Any-list.pm b/src/setting/Any-list.pm
@@ -86,14 +86,7 @@ class Any is also {
     }
 
     our List multi method kv() {
-        my $i=0;
-        gather {
-            for @.list -> $value {
-                take 0+$i;
-                take $value;
-                ++$i
-            }
-        }
+        @.keys Z @.values
     }
 
     multi method reduce(Code $expression is rw) {