good chemistry is complicated,and a little bit messy -LW PerlMonks

### Get ranges from a list of numbers (like 1,2,3 => 1-3)

 on Apr 09, 2013 at 16:26 UTC ( #1027777=perlquestion: print w/ replies, xml ) Need Help??
Doctrin has asked for the wisdom of the Perl Monks concerning the following question:

Hello dear Monks. Say, I have a sorted list like this: 1,2,3,4,9,16,22,23,24,30,35 I want to transform it to: 1-4,9,16,22-24,30,35 So that ranges of numbers are spelled as ranges, not as lists. I know how to solve the inverse problem:
```use Set::IntSpan;
my \$span = Set::IntSpan->new('1-4,9,16,22-24,30,35');
print join "," => \$span->elements();
would give me 1,2,3,4,9,16,22,23,24,30,35 . Is there a way to make ranges from a list? Maybe, modules similar to Set::IntSpan, or some algorithm?.. Thanks in advance.

Comment on Get ranges from a list of numbers (like 1,2,3 => 1-3)
Replies are listed 'Best First'.
Re: Get ranges from a list of numbers (like 1,2,3 => 1-3)
by aitap (Deacon) on Apr 09, 2013 at 16:46 UTC
Thank you! That is exactly what I need!
Re: Get ranges from a list of numbers (like 1,2,3 => 1-3)
by SuicideJunkie (Vicar) on Apr 09, 2013 at 16:52 UTC

Quoth the CPAN:

print \$set->as_string(), "\n"; # prints 1,3,5,7,9,100-1000000

It sounds like Set:IntSpan already does what you want. Just keep reading down the page a little further to Getting Set Contents

Re: Get ranges from a list of numbers (like 1,2,3 => 1-3)
by LanX (Chancellor) on Apr 09, 2013 at 16:45 UTC
Same question again in such short interval?

Smells like homework spirit.

Cheers Rolf

( addicted to the Perl Programming Language)

Haha, no, that is coincidence... It looks like I should use perlmonks' local search engine... I just googled "perl module to make a range from a list site:perlmonks.org" and did not find that question :( Maybe, searchphrase was not so good. Anyways, thank you very much!
Re: Get ranges from a list of numbers (like 1,2,3 => 1-3)
by daxim (Chaplain) on Apr 09, 2013 at 16:47 UTC
Call the method run_list, or use the object in string context.

Create A New User
Node Status?
node history
Node Type: perlquestion [id://1027777]
Approved by davido
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (11)
As of 2016-05-04 12:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What font do you use for programming?

Results (76 votes). Check out past polls.