Make my int @A = Range about 1000x faster

rakudo · Mar 16, 2015 · 051c602 · 051c602
1 parent 67156c1
commit 051c602
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/core/native_array.pm b/src/core/native_array.pm
@@ -46,6 +46,21 @@ class array is Iterable is repr('VMArray') {
             }
             self
         }
+        multi method STORE(array:D: Range:D $range) {
+            my int $val = $range.min;
+            $val = $val + 1 if $range.excludes-min;
+            my int $max = $range.max;
+            $max = $max - 1 if $range.excludes-max;
+            nqp::setelems(self, $max - $val + 1);
+
+            my int $i;
+            while $val <= $max {
+                nqp::bindpos_i(self, $i, $val);
+                $val = $val + 1;
+                $i   = $i   + 1;
+            }
+            self
+        }
 
         multi method push(array:D: int $value) {
             nqp::push_i(self, $value);