Initial implementation of infix:<mod>. In the long run, should maybe …

…be in Integral (Integer?) instead of Real.
rakudo · Jun 7, 2010 · 6f0d81a · 6f0d81a
1 parent a1193fe
commit 6f0d81a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1669,6 +1669,7 @@ token infix:sym<*>    { <sym>  <O('%multiplicative')> }
 token infix:sym</>    { <sym>  <O('%multiplicative')> }
 token infix:sym<div>  { <sym>  <O('%multiplicative')> }
 token infix:sym<%>    { <sym>  <O('%multiplicative')> }
+token infix:sym<mod>  { <sym>  <O('%multiplicative')> }
 token infix:sym<+&>   { <sym>  <O('%multiplicative')> }
 token infix:sym<~&>   { <sym>  <O('%multiplicative')> }
 token infix:sym<?&>   { <sym>  <O('%multiplicative')> }

diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -298,3 +298,10 @@ multi sub infix:<**>(Real $a, Real $b) {
 multi sub infix:<**>(Num $a, Num $b) {
     pir::pow__NNN($a, $b)
 }
+
+# NOTE: mod is only actually defined for integer types!
+# But if you have an integer type that does Real, this
+# should automatically define an appropriate mod for you.
+multi sub infix:<mod>(Real $a, Real $b) {
+    $a - ($a div $b) * $b;
+}