Switch calls to pir::gcd_iii to just gcd.

rakudo · Feb 16, 2011 · b076174 · b076174
1 parent 67dfab4
commit b076174
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -13,7 +13,7 @@ class Rat is Cool does Real {
             $numerator = -$numerator;
             $denominator = -$denominator;
         }
-        my $gcd = pir::gcd__iii($numerator, $denominator);
+        my $gcd = gcd($numerator, $denominator);
         $numerator = $numerator div $gcd;
         $denominator = $denominator div $gcd;
         self.bless(*, :numerator($numerator), :denominator($denominator));
@@ -51,7 +51,7 @@ multi sub prefix:<->(Rat $a) {
 }
 
 multi sub infix:<+>(Rat $a, Rat $b) {
-    my $gcd = pir::gcd__iii($a.denominator, $b.denominator);
+    my $gcd = gcd($a.denominator, $b.denominator);
     ($a.numerator * ($b.denominator div $gcd) + $b.numerator * ($a.denominator div $gcd))
         / (($a.denominator div $gcd) * $b.denominator);
 }
@@ -65,7 +65,7 @@ multi sub infix:<+>(Int $a, Rat $b) {
 }
 
 multi sub infix:<->(Rat $a, Rat $b) {
-    my $gcd = pir::gcd__iii($a.denominator, $b.denominator);
+    my $gcd = gcd($a.denominator, $b.denominator);
     ($a.numerator * ($b.denominator div $gcd) - $b.numerator * ($a.denominator div $gcd))
         / (($a.denominator div $gcd) * $b.denominator);
 }