make xx about 3 times faster on literals

rakudo · Aug 19, 2014 · f1a7c65 · f1a7c65
1 parent e7835e9
commit f1a7c65
Showing 1 changed file with 19 additions and 1 deletion.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -627,7 +627,25 @@ multi infix:<xx>()        { fail "No zero-arg meaning for infix:<xx>" }
 multi infix:<xx>(Mu \x)   {x }
 multi infix:<xx>(Mu \x, $n is copy, :$thunked) {
     $n = nqp::p6bool(nqp::istype($n, Whatever)) ?? Inf !! $n.Int;
-    GatherIter.new({ take ($thunked ?? x.() !! x) while --$n >= 0; }, :infinite($n == Inf)).list
+    if $thunked {
+        GatherIter.new({ take x.() while --$n >= 0; }, :infinite($n == Inf)).list
+    }
+    else {
+        GatherIter.new({
+            SEQ( $n -= 100; take x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+                                 x,x,x,x,x,x,x,x,x,x,
+            ) while $n >= 100;
+            take x while --$n >= 0;
+        }, :infinite($n == Inf)).flat
+    }
 }
 
 proto sub pop(@) {*}