Anonymous user
Arithmetic evaluation: Difference between revisions
→{{header|REXX}}: added support for unary operators (±). -- ~~~~
m (→{{header|REXX}}: added a unary plus sign to the example. -- ~~~~) |
(→{{header|REXX}}: added support for unary operators (±). -- ~~~~) |
||
Line 3,269:
z=z _ $; iterate
end
if _=='+' | _=="-" then do;
if p_=='(' then z=z 0 /handle unary ±*/
z=z _ $; iterate
end
lets=0; sigs=0; #=_
| |||