Nimber arithmetic: Difference between revisions

Content added Content deleted

Inline

@@ Line 715: / Line 715: @@
 sub infix:<⊗> (Int $x, Int $y) {
-    return $x * $y if so $x|$y < 2;
+    return $x × $y if so $x|$y < 2;
     my $h = exp $x.lsb, 2;
     return ($h ⊗ $y) ⊕ (($x ⊕ $h) ⊗ $y) if $x > $h;
-    return ($y ⊗ $x) if (exp $y.lsb, 2) < $y;
+    return ($y ⊗ $x) if $y.lsb < $y.msb;
-    return $x * $y unless my $comp = $x.lsb +& $y.lsb;
+    return $x × $y unless my $comp = $x.lsb +& $y.lsb;
     $h = exp $comp.lsb, 2;
     (($x +> $h) ⊗ ($y +> $h)) ⊗ (3 +< ($h - 1))