Make xx about 1.8 times faster (for xx 1024)

rakudo · Apr 17, 2015 · 4e8a163 · 4e8a163
1 parent 420a9b5
commit 4e8a163
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -685,14 +685,16 @@ multi sub infix:<xx>(Mu \x, Whatever) {
     GatherIter.new({ loop { take x } }, :infinite(True)).list
 }
 multi sub infix:<xx>(Mu \x, Int() $n) {
-    my int $size = $n + 1;
+    my int $size = $n;
 
     my Mu $rpa := nqp::list();
-    if $size > 1 {
+    if $size > 0 {
         nqp::setelems($rpa, $size);
-        nqp::setelems($rpa, 0);
-
-        nqp::push($rpa,x) while $size = $size - 1;
+        my int $i;
+        while $i < $size {
+            nqp::bindpos($rpa,$i,x);
+            $i = $i + 1;
+        }
     }
 
     nqp::p6parcel($rpa, Any);