view release on metacpan or  search on metacpan

benchmark/r1.yml  view on Meta::CPAN

--- 
1: 3760-3913,3996-4276,4486-4605,4706-5095,5174-5326,5439-5630,6915-7069,7157-7232,7315-7450,7564-7649,7762-7835,7942-7987,8236-8325,8417-8464,8571-8666,11864-12940,23519-24451,24542-24655,24752-24962,25041-25435,25524-25743,25825-25997,26081-26203,2...

benchmark/r2.yml  view on Meta::CPAN

--- 
1: 117338-118498,132440-133542,136805-138202,148332-149762,154585-156012,215619-217298,219744-220964,336438-337581,340386-341555,346065-347320,425717-426887,428189-431284,453858-455427,456441-458024,475175-476276,494934-497761,519058-520242,524282-52...

t/09.spans_op.t  view on Meta::CPAN

        [ "$neg-$pos", -2, "$neg-$pos" ],
        [ "$neg-$pos", 2,  "$neg-$pos" ],

        [ "$neg-0", -2, "$neg-2" ],
        [ "$neg-0", 2,  "$neg--2" ],

        [ "0-$pos", -2, "-2-$pos" ],
        [ "0-$pos", 2,  "2-$pos" ],

        [ '0,2-3,6-8,12-15,20-24,30-35', -2, '-2-26,28-37' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', -1, '-1-9,11-16,19-25,29-36' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', 0,  '0,2-3,6-8,12-15,20-24,30-35' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', 1,  '7,13-14,21-23,31-34' ],
        [ '0,2-3,6-8,12-15,20-24,30-35', 2,  '22,32-33' ],
    );

    my $count = 1;
    for my $t (@inset_tests) {
        my $set      = AlignDB::IntSpanXS->new( $t->[0] );
        my $n        = $t->[1];
        my $expected = AlignDB::IntSpanXS->new( $t->[2] );
        my $result   = $set->inset($n);

        printf "#%-12s %-12s %d -> %s\n", 'inset', $set->runlist, $n,