Implement infix:<%%>, run tests

rakudo · Jul 10, 2011 · f83f8ce · f83f8ce
1 parent e42b089
commit f83f8ce
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 4 deletions.
diff --git a/LHF.markdown b/LHF.markdown
@@ -11,9 +11,6 @@ new possible performance.
 ## chomp
 Fix Str.chomp to work with strings of less than 2 characters.
 
-## Implement %% operator
-Make S03-operators/is-divisible-by.t pass
-
 ## Implement minmax operator
 Make S03-operators/minmax.t pass
 

diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -93,6 +93,11 @@ multi infix:<%>()            { fail "No zero-arg meaning for infix:<%>" }
 multi infix:<%>($x)          { $x }
 multi infix:<%>(\$a, \$b)    { $a.Numeric % $b.Numeric }
 
+proto infix:<%%>(|$)         { * }
+multi infix:<%%>()           { fail "No zero-arg meaning for infix:<%%>" }
+multi infix:<%%>($x)         { Bool::True }
+multi infix:<%%>(\$a, \$b)   { $a.Numeric % $b.Numeric == 0 }
+
 proto infix:<lcm>(|$)         { * }
 multi infix:<lcm>(Int $x = 1) { $x }
 multi infix:<lcm>(\$a, \$b)   { $a.Numeric lcm $b.Numeric }

diff --git a/t/spectest.data b/t/spectest.data
@@ -134,7 +134,7 @@ S03-operators/eqv.t
 # S03-operators/identity.t                  # need array element binding
 S03-operators/increment.t
 # S03-operators/inplace.t # err: too many positional arguments: 3 passed, 1 expected
-# S03-operators/is-divisible-by.t # err: Could not find sub &infix:<%%>
+S03-operators/is-divisible-by.t
 S03-operators/list-quote-junction.t
 # S03-operators/minmax.t # err: Could not find sub &infix:<minmax>
 # S03-operators/misc.t                      # need regexes