如何使用Perl在后续订单中获取所有可能的相邻项组合？

Question

例如,我有一个数组

my @arr = qw(0 1 2 3 4);

如何获得以下组合:

0
01
012
0123
01234
1
12
123
1234
2
23
234
3
34
4

如果有的话,这种组合(或排列)的名称是什么？

永远感谢!

Answer 1

就个人而言,我发现gbacon使用的循环"C风格"通常会不必要地使代码复杂化.而且通常可以用更容易理解的"范围式"循环替换它.

#!/usr/bin/perl

use strict;
use warnings;

my @arr = qw(0 1 2 3 4);

my @result;
for my $i (0 .. $#arr) {
  for my $j ($i .. $#arr) {
    push @result => [ @arr[$i .. $j] ];
  }
}

print @$_, "\n" for @result;

Answer 2

使用数组切片:

#! /usr/bin/perl

use warnings;
use strict;

my @arr = qw(0 1 2 3 4);

my @result;
for (my $i = 0; $i < @arr; $i++) {
  for (my $j = $i; $j < @arr; $j++) {
    push @result => [ @arr[$i .. $j] ];
  }
}

print @$_, "\n" for @result;

输出:

0
01
012
0123
01234
1
12
123
1234
2
23
234
3
34
4