Anonymous user
Largest int from concatenated ints: Difference between revisions
m
→{{header|Aime}}
mNo edit summary |
|||
Line 66:
=={{header|Aime}}==
<lang aime>
largest(...)
{
integer i;
index x;
i = count();
while (i) {
data b;
call_n(9, b_, b, $(i -= 1));
b_size(b, 9);
x[999999999 - atoi(b_string(b))] = $i;
}
i_wcall(x, o_form, 1, 1, "~");
o_newline();
}
integer
main(void)
{
largest(1, 34, 3, 98, 9, 76, 45, 4);
largest(54, 546, 548, 60);
return 0;
}</lang>
works for input up to 999999999.
{{Out}}
<pre>
6054854654</pre>
=={{header|ALGOL 68}}==
| |||