Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
formatting changes
  • Loading branch information
moritz committed Feb 12, 2012
1 parent f27eab1 commit 7dcb9e2
Showing 1 changed file with 7 additions and 9 deletions.
16 changes: 7 additions & 9 deletions src/core/Rat.pm
Expand Up @@ -122,21 +122,19 @@ multi sub infix:<+>(Int \$a, Rational \$b) {

multi sub infix:<->(Rational \$a, Rational \$b) {
my Int $gcd = $a.denominator gcd $b.denominator;
DIVIDE_NUMBERS(
($a.numerator * ($b.denominator div $gcd) - $b.numerator * ($a.denominator div $gcd)),
(($a.denominator div $gcd) * $b.denominator),
DIVIDE_NUMBERS
$a.numerator * ($b.denominator div $gcd) - $b.numerator * ($a.denominator div $gcd),
($a.denominator div $gcd) * $b.denominator,
$a,
$b,
);
$b;
}

multi sub infix:<->(Rational \$a, Int \$b) {
DIVIDE_NUMBERS(
($a.numerator - $b * $a.denominator),
DIVIDE_NUMBERS
$a.numerator - $b * $a.denominator,
$a.denominator,
$a,
$b,
);
$b;
}

multi sub infix:<->(Int \$a, Rational \$b) {
Expand Down

0 comments on commit 7dcb9e2

Please sign in to comment.