Modify the Numeric version of infix:«<=>» to extend values with zeros…

…, so that (for Real $x) $x == $x + 0i.
rakudo · Jun 20, 2010 · ee7620d · ee7620d
1 parent 8e95548
commit ee7620d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -257,7 +257,10 @@ multi sub infix:«cmp»(Numeric $a, Numeric $b) { $a <=> $b; }
 multi sub infix:«<=>»(Numeric $a, Numeric $b) {
     my @a = $a.reals;
     my @b = $b.reals;
-    [||] (@a Z<=> @b), (+@a <=> +@b);
+    @a.push(0 xx +@b - +@a) if (+@a < +@b);
+    @b.push(0 xx +@a - +@b) if (+@b < +@a);
+
+    [||] (@a Z<=> @b);
 }
 
 multi sub infix:«==»(Numeric $a, Numeric $b) {