Largest int from concatenated ints: Difference between revisions

This REXX version works with any integer   (negative, zero, positive),   and does some basic error checking to

<br>verify that the numbers are indeed integers &nbsp; (and it also normalizes the integers).

@.=.; @.1 = '{1, 34, 3, 98, 9, 76, 45, 4}' /*the 1st integer list to be used. */

@.2 = '{54, 546, 548, 60}' /* " 2nd " " " " " */

/* [↓] process all the integer lists.*/

do j=1 while @.j\==.; $= /*keep truckin' until lists exhausted. */

if _>digits() then numeric digits _ /*use enough decimal digits for maximum*/

/* [↓] examine each number in the list*/

do while z\==''; index=1 /*keep examining the list until done.*/

/* [↓] check the rest of the integers.*/

do k=2 to words(z); #=isOK(word(z,k)) /*obtain an an integer from the list. */

L=max(length(big), length(#)) /*get the maximum length of the integer*/

big=#; index=k /*we found a new biggie (and the index)*/

end /*k*/ /* [↑] find max concatenated integer. */

 

end /*while z*/ /* [↑] process all integers in a list.*/

 

end /*j*/ /* [↑] process each list of integers. */

exit /*stick a fork in it, we're all done. */