File Coverage

blib/lib/Number/Rangify.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	7	8	87.5
condition	2	3	66.6
subroutine	6	6	100.0
pod	1	1	100.0
total	43	47	91.4

use 5.008;
use strict;
use warnings;

package Number::Rangify;
our $VERSION = '1.100860';
# ABSTRACT: Optimize a list of values into ranges
use Set::IntRange;
use Exporter qw(import);
our %EXPORT_TAGS = (util => [qw(rangify)],);
our @EXPORT_OK = @{ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ] };

sub rangify {

    # each @range element is a [ $lower, $upper ] array ref.
    my @ranges;
  VAL: for my $val (sort { $a <=> $b } @_) {
        for my $range (@ranges) {

            # is the value already in the range?
            next VAL if $val >= $range->[0] && $val <= $range->[1];

            # extend the range downwards or upwards?
            if ($val == $range->[0] - 1) {
                $range->[0]--;
                next VAL;
            } elsif ($val == $range->[1] + 1) {
                $range->[1]++;
                next VAL;
            }
        }

        # still here? make a new range
        push @ranges, [ $val, $val ];
    }
    my @range_obj = map { Set::IntRange->new(@$_) } @ranges;
    wantarray ? @range_obj : \@range_obj;
}
1;


__END__