Tropical algebra overloading: Difference between revisions
→{{header|RPL}: add header + format
m (Added language identifier.) |
(→{{header|RPL}: add header + format) |
||
Line 1,011:
</pre>
=={{header|REXX}}==
RPL does not support operator overloading so we need to use functions instead. As all stack-driven languages, RPL requires the user to deal with operator precedence.
MAXR EVAL '
≪ 1 3 '''START''' ROT EVAL '''NEXT'''
'''IF''' DUP ABS
≫ ‘
≪ ≪ MAX ≫
≪ ≪ + ≫
≪ ≪ * ≫
2 -2
-0.001
0 -<span style="color:green>Inf</span> <span style="color:blue>TMULT</span>
1.5 -1
0.5 0
5 7 <span style="color:blue>TPOWR</span>
8 7 <span style="color:blue>TPLUS</span> 5 <span style="color:blue>TMULT</span>
5 8 <span style="color:blue>TMULT</span> 5 7 <span style="color:blue>TMULT</span> <span style="color:blue>TPLUS</span>
{{out}}
<pre>
3: 35
2: 13
1: 13
| |||