fix for .combinations timeout

rakudo · Jan 30, 2014 · d6a93b0 · d6a93b0
1 parent 04c4fba
commit d6a93b0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -4,8 +4,10 @@ my class X::TypeCheck { ... }
 my sub combinations($n, $k) {
     my @result;
     my @stack;
-    @stack.push(0);
 
+    return () unless $k;
+
+    @stack.push(0);
     gather while @stack {
 	my $index = @stack - 1;
 	my $value = @stack.pop;