Allow Int factors in geometric series if possible.

rakudo · Jul 22, 2010 · 82b1b78 · 82b1b78
1 parent c633afc
commit 82b1b78
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -396,7 +396,11 @@ our multi sub infix:<...>(@lhs is copy, $rhs) {
                 } elsif @lhs[*-2] / @lhs[*-3] == @lhs[*-1] / @lhs[*-2] {
                     $is-geometric-switching-sign = (@lhs[*-2] * @lhs[*-1] < 0);
                     return Nil if is-on-the-wrong-side(@lhs[0] , @lhs[*-2] , @lhs[*-1] , $rhs) && !$is-geometric-switching-sign;
-                    $next = { $_ * (@lhs[*-2] / @lhs[*-3]) };
+                    my $factor = @lhs[*-2] / @lhs[*-3];
+                    if $factor ~~ ::Rat && $factor.denominator == 1 {
+                        $factor = $factor.Int;
+                    }
+                    $next = { $_ * $factor };
                 } else {
                     fail "Unable to figure out pattern of series";
                 }