Add Int.gcd and a proto for a sub version.

rakudo · Feb 16, 2011 · 67dfab4 · 67dfab4
1 parent cea2411
commit 67dfab4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -29,6 +29,10 @@ augment class Int does Real {
     method sign(Int $x:) {
         $x.notdef ?? Mu !! $x <=> 0;
     }
+
+    method gcd(Int $x: Int $y) {
+        pir::gcd__iii($x, $y);
+    }
 }
 
 multi sub infix:<cmp>(Int $a, Int $b) {
@@ -97,3 +101,5 @@ our multi sub infix:<**>(Int $a, Int $b) {
         pir::pow__NNN($a, $b)
     }
 }
+
+proto sub gcd($x, $y) { $x.gcd($y); }