add infix mod

rakudo · Jul 4, 2011 · ce2882f · ce2882f
1 parent d9d8c49
commit ce2882f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -54,3 +54,8 @@ multi infix:«>=»(Real \$a, Real \$b)  { $a.Bridge >= $b.Bridge }
 
 multi infix:<cmp>(Real \$a, Real \$b) { $a.Bridge cmp $b.Bridge }
 
+proto sub infix:<mod>(|$) {*}
+multi sub infix:<mod>(Real $a, Real $b) {
+    $a - ($a div $b) * $b;
+}
+