Code Golf August 2016

August 2016 - Rotate to the max.md

August 2016 - Rotate to the max

Task

Given a number, return the maximum value by rearranging it's digits.

Examples:

(123) => 321 (786) => 876 ("001") => 100 (999) => 999 (10543) => 54310

^Note the number may be given as a string

About Code Golf Scotland

Language: Perl 6
Length: 33
Solution:

sub r{$^a.comb.sort.reverse.join}

Demo:

perl6 -e 'say "$_ : {a($_)}" for 123, 786, "001", 999, 10543; sub a($a){$a.comb.sort.reverse.join}'
123 : 321
786 : 876
001 : 100
999 : 999
10543 : 54310