#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use lib qw(../lib);

use Data::Range::Compare::Stream;
use Data::Range::Compare::Stream::Iterator::Array;
use Data::Range::Compare::Stream::Iterator::Consolidate;
use Data::Range::Compare::Stream::Iterator::Compare::Asc;

# create the iterator for column_a's Consolidation iterator
my $column_a=Data::Range::Compare::Stream::Iterator::Array->new();
$column_a->create_range(3,11);
$column_a->create_range(17,19);

# create the iterator for column_b's Consolidation iterator
my $column_b=Data::Range::Compare::Stream::Iterator::Array->new();
$column_b->create_range(0,0);
$column_b->create_range(1,3);
$column_b->create_range(5,7);
$column_b->create_range(6,9);
$column_b->create_range(11,15);
$column_b->create_range(17,33);

# sort columns a and be in consolidate order
$column_a->prepare_for_consolidate_asc;
$column_b->prepare_for_consolidate_asc;

# create the consolidator object for column_a our iterator to it
my $column_a_consolidator=Data::Range::Compare::Stream::Iterator::Consolidate->new($column_a);

# create the consolidator object for column_b our iterator to it
my $column_b_consolidator=Data::Range::Compare::Stream::Iterator::Consolidate->new($column_b);

# create the object that will compare columns a and b
my $compare=new Data::Range::Compare::Stream::Iterator::Compare::Asc;

# add column a for processing
$compare->add_consolidator($column_a_consolidator);

# add column b for processing
$compare->add_consolidator($column_b_consolidator);


# now we can compute the intersections of our objects

while($compare->has_next) {

  # fetch our current result object
  my $row=$compare->get_next;

  # if no ranges overlap with this row move on
  next if $row->is_empty;

  # now we can output the current range
  my $common_range=$row->get_common;
  my $overlap_count=$row->get_overlap_count;

  print "A total of: [$overlap_count] Ranges intersected with Common range: $common_range\n";

  my $overlap_ids=$row->get_overlap_ids;
  foreach my $consolidator_id (@{$overlap_ids}) {

    if($consolidator_id==0) {

      my $result=$row->get_consolidator_result_by_id($consolidator_id);
      print "  Column a contained the following overlaps $result\n";

    } elsif($consolidator_id==1) {

      my $result=$row->get_consolidator_result_by_id($consolidator_id);
      print "  Column b contained the following overlaps $result\n";

    }

  }

  print "\n";
  
}