Change infix:<div> to return floor($a / $b) as in the spec. (Same as …

…before for positive, different rounding direction for negative.)
rakudo · Jun 7, 2010 · b497776 · b497776
1 parent b258f5c
commit b497776
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -51,7 +51,11 @@ our multi sub infix:<*>(Int $a, Int $b) {
 }
 
 our multi sub infix:<div>(Int $a, Int $b) {
-    pir::box__PI(pir::div__III($a, $b))
+    my $result = pir::box__PI(pir::div__III($a, $b));
+    if $a.sign * $b.sign < 0 && $result * $b != $a {
+        $result--;
+    }
+    $result;
 }
 
 our multi sub infix:<%>(Int $a, Int $b) {