Re: Print series of numbers


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re: Print series of numbers

by liverpole (Monsignor)

on Oct 21, 2009 at 05:24 UTC ( [id://802377]=note: print w/replies, xml )

Need Help??

in reply to Print series of numbers

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
[download]

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/