Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>I think that this is what you want. You have a series of ranges of the form [start,stop], and you'd like to merge the overlapping ranges. The approach below is fairly simple. </p> <ol> <li>There are two sets of ranges, the original set and the merged set. </li> <li>You add the first range to the set of merged (non-overlapping) ranges. For each candidate range left from the original set, you make a choice: <ul> <li>If that candidate overlaps with one already in the merged set, you extend the boundaries of the range in the merged set appropriately. </li> <li>If there is no overlap between the candidate range and any range in the merged set, you add the candidate to the merged set.</li> </ul></li> </ol> <p>Hopefully this makes sense. It's not too obvious from your question that this is what you wanted, so let me know if this isn't right. </p> <pre><code>#!/usr/bin/perl use strict; use warnings; my @starts = qw/ 5 5 44 44 44 64 104 580 632 /; my @ends = qw/ 108 187 187 229 236 236 236 644 770 /; my @ranges; while ( @starts &amp;&amp; @ends ) { my $s = shift @starts; my $e = shift @ends; push @ranges, [ $s, $e ]; } my @merged_ranges; push @merged_ranges, shift @ranges; foreach my $range (@ranges) { my $overlap = 0; foreach my $m_range (@merged_ranges) { if ( ranges_overlap($range,$m_range) ) { $overlap = 1; $m_range = merge_range($range,$m_range); } } if ( !$overlap ) { push @merged_ranges, $range; } } print join ' ', qw/ start end /; print "\n"; foreach my $range (@merged_ranges) { print join ' ', ( $range-&gt;[0], $range-&gt;[1] ); print "\n"; } sub ranges_overlap { my $r1 = shift; my $r2 = shift; return ( $r1-&gt;[0] &lt;= $r2-&gt;[1] &amp;&amp; $r2-&gt;[0] &lt;= $r1-&gt;[1] ); } sub merge_range { my $r1 = shift; my $r2 = shift; use List::Util qw/ min max/; my $merged = [ min($r1-&gt;[0],$r2-&gt;[0]), max($r1-&gt;[1],$r2-&gt;[1]) ]; return $merged; } </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POLoop through two arrays deleting overlaps in perl
      singulars
      1. PTQuestion
    1. PTAnswer
    1. USJames Thompson
    1. USJames Thompson
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COhow would i get my data into an array like that it is currently in two arrays one with the starts and one with the ends
      singulars
      1. PO
      1. USOrion
    2. COI just added some code to do that. The brackets represent an array reference in Perl, so that a range is represented as a pair of [ $start, $end ] values. You can index into array references using the $ref->[0] and $ref->[1] syntax. Search for array reference or multidimensional array in Perl if that doesn't make any sense.
      singulars
      1. PO
      1. USJames Thompson
    3. COranges_overlap should be just: `$r1->[0] <= $r2->[1] && $r2->[0] <= $r1->[1]`. what you have incorrectly returns false for e.g. ([1,5],[3,4])
      singulars
      1. PO
      1. USysth
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload