Add infix:<**>(Rat $a, Int $b).

rakudo · Sep 12, 2010 · fdae00f · fdae00f
1 parent 9734b29
commit fdae00f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -106,4 +106,8 @@ multi sub infix:</>(Int $a, Int $b) {
     Rat.new($a, $b);
 }
 
+multi sub infix:<**>(Rat $a, Int $b) {
+    ($a.numerator ** $b) / ($a.denominator ** $b);
+}
+
 # vim: ft=perl6 sw=4 ts=4 expandtab