Next highest int from digits: Difference between revisions

Content added Content deleted
(→‎{{header|Perl 6}}: Handle negative as well as positive integers.)
m (→‎{{header|Perl 6}}: Not really constrained by "number" magnitude)
Line 257: Line 257:
say "Next largest integer able to be made from these digits, or zero if no larger exists:";
say "Next largest integer able to be made from these digits, or zero if no larger exists:";
printf "%30s -> %s%s\n", .&comma, .&next-greatest-integer < 0 ?? '' !! ' ', .&next-greatest-integer.&comma for
printf "%30s -> %s%s\n", .&comma, .&next-greatest-integer < 0 ?? '' !! ' ', .&next-greatest-integer.&comma for
flat 0, (9, 12, 21, 12453, 738440, 45072010, 95322020, 9589776899767587796600, 3345333).map: { $_, -$_ };</lang>
flat 0, (9, 12, 21, 12453, 738440, 45072010, 95322020, 9589776899767587796600, 3345333,
95897768997675877966000000000000000000000000000000000000000000000000000000000000000000).map: { $_, -$_ };</lang>
{{out}}
{{out}}
<pre>Next largest integer able to be made from these digits, or zero if no larger exists:
<pre>Next largest integer able to be made from these digits, or zero if no larger exists:
Line 278: Line 279:
-9,589,776,899,767,587,796,600 -> -9,589,776,899,767,587,796,060
-9,589,776,899,767,587,796,600 -> -9,589,776,899,767,587,796,060
3,345,333 -> 3,353,334
3,345,333 -> 3,353,334
-3,345,333 -> -3,343,533</pre>
-3,345,333 -> -3,343,533
95,897,768,997,675,877,966,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 -> 95,897,768,997,675,879,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,667
-95,897,768,997,675,877,966,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000 -> -95,897,768,997,675,877,960,600,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000</pre>


=={{header|Python}}==
=={{header|Python}}==
Retrieved from "https://rosettacode.org/wiki/Next_highest_int_from_digits"