Arithmetic evaluation: Difference between revisions

m
→‎{{header|REXX}}: elided replicated IF statement.
m (→‎{{header|REXX}}: added whitespace, elided an erroneous DO-END comment.)
m (→‎{{header|REXX}}: elided replicated IF statement.)
Line 3,958:
/*──────────────────────────────────GETX subroutine─────────────────────*/
getX: do Nj=j+1 to length(x); _n=substr(x,Nj,1); if _n==$ then iterate
if _n==$ then iterate; return substr(x,Nj,1) /* [↑] ignore any blanks in exp.*/
end /*Nj*/
return $ /*reached end-of-tokens, return $*/</lang>