Re^2: Convert an array of numbers into a range

Replies are listed 'Best First'.
Re^3: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 00:49 UTC
For older perls without the /r `#!/usr/bin/perl -l # http://perlmonks.org/?node_id=1168288 use strict; use warnings; my @ra = qw(0001 0002 0003 011 012 013 015 16 17 18 20); $_ = join ',', @ra; s/\b(\d+)(?{$1})\K(?:,(\d+)\b(??{++$^R!=$2}))+/-$2/g; print;` [download]	[reply] [d/l]
Re^4: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 00:57 UTC
this sort of works. result: 0001-0003,011-013,015-18,20 should be: 0001-0003,011-013,015,16-18,20	[reply]
Re^5: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 01:01 UTC
Changing the rules in the middle of the game? Next time give exact desired output when you pose a problem.	[reply]
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 01:04 UTC
Re^5: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 01:07 UTC
`#!/usr/bin/perl -l # http://perlmonks.org/?node_id=1168288 use strict; use warnings; my @ra = qw(0001 0002 0003 011 012 013 015 16 17 18 20); $_ = join ',', @ra; s/\b(\d+)(?{$1})\K(?:,(\d+)\b(??{++$^R!=$2\|\|length$1!=length$2}))+/-$2 +/g; print;` [download]	[reply] [d/l]
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Jul 22, 2016 at 01:18 UTC
Re^7: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 01:43 UTC
Re^6: Convert an array of numbers into a range by rmocster (Novice) on Aug 27, 2016 at 07:29 UTC
Re^7: Convert an array of numbers into a range by Anonymous Monk on Aug 27, 2016 at 09:39 UTC
Some notes below your chosen depth have not been shown here
Re^3: Convert an array of numbers into a range by Anonymous Monk on Jul 22, 2016 at 00:37 UTC
`#!/usr/bin/perl -l # http://perlmonks.org/?node_id=1168288 use strict; use warnings; my @ra = qw(0001 0002 0003 011 012 013 015 16 17 18 20); print join(',', @ra) =~ s/\b(\d+)(?{$1})\K(?:,(\d+)\b(??{++$^R!=$2}))+ +/-$2/gr;` [download]	[reply] [d/l]