.pred and .succ for Rat

rakudo · Sep 22, 2009 · e52ed31 · e52ed31
1 parent 5d3d3a3
commit e52ed31
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/setting/Rat.pm b/src/setting/Rat.pm
@@ -36,6 +36,13 @@ class Rat {
     our Num multi method sec($base = 'radians') is export {
         self.Num.sec($base);
     }
+
+    multi method succ {
+        Rat.new($!numerator + $!denominator, $!denominator);
+    }
+    multi method pred {
+        Rat.new($!numerator - $!denominator, $!denominator);
+    }
 }
 
 multi sub infix:<+>(Rat $a, Rat $b) {