Largest int from concatenated ints: Difference between revisions

m
→‎simple integers: simplified the NORM function.
m (→‎{{header|REXX}}: changed for format of the first two REXXes lists, added verbiage to the output.)
m (→‎simple integers: simplified the NORM function.)
Line 1,973:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
norm: arg i; #=word(z, i); er=' ***error*** '; numericif digitsleft(#, 3001)=="-" /*getthen #=substr(#, from Z. */2)
if \datatype(#,'W') then do; say er 'number' # "isn't an integer."; exit 13; end
return # /1 1 /*it's an integer, then normalize it. */</lang>
{{out|output|text=&nbsp; when using the default (internal) integer lists:}}
<pre>