aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Tropical-algebra-overloading/Mathematica/tropical-algebra-overloading.math Normal file
View file

@ -0,0 +1,13 @@
CirclePlus[x_, y_] := Max[x, y];
CircleTimes[x_, y_] := x + y;
UpArrow[x_, y_Integer?Positive] := x * y;
Print["2 ⊗ -2 = ", 2 ⊗ -2];
Print["-0.001 ⊕ -∞ = ", -0.001 ⊕ -∞];
Print["0 ⊗ -∞ = ", 0 ⊗ -∞];
Print["1.5 ⊕ -1 = ", 1.5 ⊕ -1];
Print["-0.5 ⊗ 0 = ", -0.5 ⊗ 0];
Print["5 ↑ 7 = ", 5 ↑ 7];
Print["5 ⊗ (8 ⊕ 7) = ", 5 ⊗ (8 ⊕ 7)];
Print["5 ⊗ 8 ⊕ 5 ⊗ 7 = ", 5 ⊗ 8 ⊕ 5 ⊗ 7 ];
Print["5 ⊗ (8 ⊕ 7) == 5 ⊗ 8 ⊕ 5 ⊗ 7 : ", 5 ⊗(8 ⊕ 7) == 5 ⊗ 8 ⊕ 5 ⊗ 7 ];