Largest int from concatenated ints: Difference between revisions

'''With a string of space separated sequences of digits:'''

'''With a nest of numbers:'''

<lang quackery> [ number$ dip number$ join $->n drop ] is conc ( n n --> n )

[ 2dup conc unrot swap conc < ] is conc> ( n n --> b )

[ sortwith conc>

$ "" swap

witheach [ number$ join ]

$->n drop ] is task ( [ --> n )

' [ [ 1 34 3 98 9 76 45 4 ]

[ 54 546 548 60 ] ]

witheach [ task echo cr ] </lang>

{{out}}

<pre>998764543431

6054854654</pre>