Tropical algebra overloading: Difference between revisions
Content added Content deleted
m (→{{header|R}}: typo) |
m (→{{header|R}}: document) |
||
Line 125: | Line 125: | ||
=={{header|R}}== |
=={{header|R}}== |
||
R's overloaded operators, denoted by %_%, have different precedence order than + and *, so parentheses are needed for the distributive example. |
|||
<lang r>"%+%"<- function(x, y) max(x, y) |
<lang r>"%+%"<- function(x, y) max(x, y) |
||
Line 142: | Line 143: | ||
cat("5 %*% (8 %+% 7)) ==", 5 %*% (8 %+% 7), "\n") |
cat("5 %*% (8 %+% 7)) ==", 5 %*% (8 %+% 7), "\n") |
||
cat("5 %*% 8 %+% 5 %*% 7 ==", (5 %*% 8) %+% (5 %*% 7), "\n") |
cat("5 %*% 8 %+% 5 %*% 7 ==", (5 %*% 8) %+% (5 %*% 7), "\n") |
||
cat("5 %*% 8 %+% 5 %*% 7 == 5 %*% (8 %+% 7))", 5 %*% (8 %+% 7) == (5 %*% 8) %+% (5 %*% 7), "\n") |
|||
</lang>{{out}} |
</lang>{{out}} |
||
<pre> |
<pre> |
||
Line 152: | Line 154: | ||
5 %*% (8 %+% 7)) == 13 |
5 %*% (8 %+% 7)) == 13 |
||
5 %*% 8 %+% 5 %*% 7 == 13 |
5 %*% 8 %+% 5 %*% 7 == 13 |
||
5 %*% 8 %+% 5 %*% 7 == 5 %*% (8 %+% 7)) TRUE |
|||
</pre> |
</pre> |