Largest int from concatenated ints: Difference between revisions
m
Added Easylang
imported>Maxima enthusiast No edit summary |
m (Added Easylang) |
||
| (One intermediate revision by one other user not shown) | |||
Line 529:
=={{header|Delphi}}==
See [https://www.rosettacode.org/wiki/Largest_int_from_concatenated_ints#Pascal Pascal].
=={{header|EasyLang}}==
<syntaxhighlight>
func con a b .
t = 10
while b >= t
t *= 10
.
return a * t + b
.
func$ max a[] .
n = len a[]
for i to n - 1
for j = i + 1 to n
if con a[i] a[j] < con a[j] a[i]
swap a[i] a[j]
.
.
.
for v in a[]
r$ &= v
.
return r$
.
print max [ 1 34 3 98 9 76 45 4 ]
print max [ 54 546 548 60 ]
</syntaxhighlight>
{{out}}
<pre>
998764543431
6054854654
</pre>
=={{header|Elixir}}==
Line 2,802 ⟶ 2,834:
{{trans|Kotlin}}
{{libheader|Wren-sort}}
<syntaxhighlight lang="
var cmp = Fn.new { |x, y|
| |||