Largest int from concatenated ints: Difference between revisions
→{{header|Factor}}: add translation of F#
No edit summary |
(→{{header|Factor}}: add translation of F#) |
||
Line 569:
6054854654
</pre>
Or alternatively, a translation of F#.
{{trans|F#}}
<lang factor>USING: kernel math.order qw sequences sorting ;
: fn ( seq -- str )
[ 2dup swap [ append ] 2bi@ after? +lt+ +gt+ ? ] sort concat ;</lang>
{{out}}
<pre>
qw{ 1 34 3 98 9 76 45 4 } qw{ 54 546 548 60 } [ fn ] bi@
--- Data stack:
"998764543431"
"6054854654"</pre>
=={{header|Fortran}}==
| |||