perl - 如何从 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

您可以使用 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";