good chemistry is complicated, and a little bit messy LW 

PerlMonks 
Re: Efficient algorithm needed to split Set::IntSpan objectsby blokhead (Monsignor) 
on Sep 23, 2009 at 14:00 UTC ( #796975=note: print w/replies, xml )  Need Help?? 
I think the first step would be to split ranges which overlap other ranges into separate nonoverlapping ranges:Why do you need to split them into nonoverlapping segments before doing $hash{$item}++ ? Also, are you absolutely sure that iterating over the elements will really be a bottleneck? It seems likely that you won't be able to gain much efficiency since the obvious algorithm is so simple. Anyway, here is a sparser way to represent this problem: You can represent the set of ranges by just keeping track of places where the # of intervals changes, so that becomes In other words, if (i,j), (m,n) are adjacent in this list, then there are j ranges that cover element i to element m1. This list is sparse, and its size only depends on the number of ranges, not the number of their elements. To query this list on a number (to see how many ranges cover a point x), you can do a binary search to find the largest number < x in the list. That entry in the list will tell you how many ranges cover x. To construct the list, you can do $delta{$start}++, $delta{$end}, for every ($start,$end) interval (I chose a hash because it can stay sparse if the intervals are large). Then you can iterate through the sorted keys of %delta and make a running total.
Again, this is much more efficient in the theoretical sense (to generate the data structure takes O(n log n), where n is the # of intervals, compared to O(nt) where t is the average size of an interval), but maybe not much of a gain for you depending on the actual sizes of things involved (and depending on what kind of queries you want to make to the data structure). Querying the data structure is a tradeoff, it is now O(log n) instead of constant had you gone the route of iterating through all the elements of the intervals. blokhead
In Section
Seekers of Perl Wisdom

