#! perl -slw
use strict;

open RANGES, '<', '1032018-t.dat' or die $!;
open BITS,   '<', '1032018-i.dat' or die $!;

my $bitsIn = <BITS>;
until( eof BITS ) {
    my( $id ) = $bitsIn =~ m[^#(.)\s*$]
        or die 'Bits ID missing';

    my $bits = chr(0); $bits x= 75e6;
    $bitsIn =~ m[(\d+)\s+(\d+)] and vec( $bits, $1, 1 ) = $2
        until eof( BITS ) or ( $bitsIn = <BITS> ) =~ m[^#];

    warn 'Bitvector built; processing ranges : ' . localtime;

    my $range = <RANGES>;
    until( eof( RANGES ) ) {
        my( $start, $end ) = $range =~ m[^$id\t(\d+)\t(\d+)]
            or last;
        my $count = 0;
        vec( $bits, $_, 1 ) and ++$count for $start .. $end;
        print "$id ($1 .. $2) : $count";
        $range = <RANGES>
    }
}
close BITS;
close RAANGES