21 lines
498 B
Text
21 lines
498 B
Text
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$
|