如何從Perl中的整數列表中獲取範圍？

Question

我有一個數字數組：

@numbers = 1,2,3,6,8,9,11,12,13,14,15,20 

，我想打印這樣說：

1-3,6,8-9,11-15,20 

有什麼想法？當然，我嘗試使用最常見的「循環」，但仍然沒有得到它。

Answer 1

這裏是一個可能的方式：

@numbers = (1,2,3,6,8,9,11,12,13,14,15,20); 
@list =(); 
$first = $last = shift @numbers; 
foreach (@numbers,inf) { 
    if ($_ > $last+1) { 
    if ($first == $last) { 
     push @list, $first; 
    } elsif ($first+1 == $last) { 
     push @list, $first, $last; 
    } else { 
     push @list, "$first-$last"; 
    } 
    $first = $_; 
    } 
    $last = $_; 
} 

print join ',', @list; 

Answer 2

您可以使用Set::IntSpan::Fast：

use Set::IntSpan::Fast; 

my @numbers = (1,2,3,6,8,9,11,12,13,14,15,20); 

my $set = Set::IntSpan::Fast->new; 
$set->add(@numbers); 
print $set->as_string, "\n"; 

Answer 3

@numbers=sort { $a <=> $b } @numbers; 
push @numbers, inf; 

@p=(); 
$ra = shift @numbers; 
$rb = $ra; 
for $n (@numbers) { 
    if ($n > $rb +1) { 
     push @p, ($ra == $rb ? "$ra" : "$ra-$rb"); 

     $ra = $n; 
    } 

    $rb = $n; 
} 

print join(',', @p);