From fdae00f1049d5fd5b88bfc3fdc0b4c853968add1 Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Sat, 11 Sep 2010 22:48:14 -0400
Subject: [PATCH] Add infix:<**>(Rat $a, Int $b).

---
 src/core/Rat.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/core/Rat.pm b/src/core/Rat.pm
index f0ec2db04f9..94d2fb63a53 100644
--- 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