Simplify and optimize the trivial case of Str.comb(). RT #85602

rakudo · May 1, 2011 · 6ca6140 · 6ca6140
1 parent 8533c3c
commit 6ca6140
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -54,7 +54,13 @@ augment class Cool {
         $result;
     }
 
-    multi method comb(Regex $matcher = /./, $limit = *, :$match) {
+    multi method comb() {
+        gather for 1..self.chars {
+            take self.substr($_ - 1, 1);
+        }
+    }
+
+    multi method comb(Regex $matcher, $limit = *, :$match) {
         my $self-string = ~self;
         my $c = 0;
         my $l = $limit ~~ ::Whatever ?? Inf !! $limit;