Hi
mickep76,
Here's my solution; a golfed, obfuscated subroutine that works even if the input is unsorted or contains duplicates (unlike the apparent input from http://codegolf.com/home-on-the-range, if I'm reading it correctly):
my @numbers = qw( 22 19 8 22 4 2 8 12 5 6 21 23 1 );
print "Input(@numbers)\n";
printf "Output(%s)\n", numbers_to_ranges(@numbers);
sub numbers_to_ranges {
map$x[$_]=$_,@_;$_="@x";s@^ +@@;s*(\d+)( (\d+))+*\1-\3*g;s- +-, -g;$_
}
__END__
[Results]
Input(22 19 8 22 4 2 8 12 5 6 21 23 1)
Output(1-2, 4-6, 8, 12, 19, 21-23
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/