Largest int from concatenated ints: Difference between revisions

m (→‎{{header|AWK}}: {{works with|gawk|4.0}})
Line 1,401:
998764543431
6054854654
</pre>
 
=={{header|Scheme}}==
<lang Scheme>(define (cat . nums) (apply string-append (map number->string nums)))
 
(define (my-compare a b) (string>? (cat a b) (cat b a)))
 
(map (lambda (xs) (string->number (apply cat (sort xs my-compare))))
'((1 34 3 98 9 76 45 4) (54 546 548 60)))</lang>
{{output}}
<pre>
(998764543431 6054854654)
</pre>
 
Anonymous user