Implement (generic) Numeric.succ and Numeric.pred. Remove the multi f…

…rom Rat's .succ and .pred.
rakudo · May 18, 2010 · 980e03c · 980e03c
1 parent 1bf6eab
commit 980e03c
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -3,6 +3,14 @@ role Numeric {
         self;
     }
 
+    method succ(Numeric $x:) {
+        $x + 1;
+    }
+
+    method pred(Numeric $x:) {
+        $x - 1;
+    }
+
     method abs(Numeric $x:) {
         note "$.WHAT() needs a version of .abs";
         fail "$.WHAT() needs a version of .abs";

diff --git a/src/core/Rat.pm b/src/core/Rat.pm
@@ -54,10 +54,11 @@ class Rat is Cool does Real {
 
     multi method nude() { $.numerator, $.denominator; }
 
-    multi method succ {
+    method succ {
         Rat.new($!numerator + $!denominator, $!denominator);
     }
-    multi method pred {
+
+    method pred {
         Rat.new($!numerator - $!denominator, $!denominator);
     }
 }