Largest int from concatenated ints: Difference between revisions
Largest int from concatenated ints (view source)
Revision as of 14:38, 13 September 2013
, 10 years agono edit summary
(Go solution) |
No edit summary |
||
Line 83:
}
</lang>
{{out}}
<pre>998764543431
6054854654</pre>
=={{header|BBC BASIC}}==
<lang bbcbasic> DIM Nums%(10)
Nums%()=1,34,3,98,9,76,45,4
PRINT FNlargestint(8)
Nums%()=54,546,548,60
PRINT FNlargestint(4)
END
DEF FNlargestint(len%)
LOCAL i%,l$,a$,b$,sorted%
REPEAT
sorted%=TRUE
FOR i%=0 TO len%-2
a$=STR$Nums%(i%)
b$=STR$Nums%(i%+1)
IF a$+b$<b$+a$ SWAP Nums%(i%),Nums%(i%+1):sorted%=FALSE
NEXT
UNTIL sorted%
FOR i%=0 TO len%-1
l$+=STR$Nums%(i%)
NEXT
=l$</lang>
{{out}}
<pre>998764543431
| |||