如何使用Perl在后续订单中获取所有可能的相邻项组合？
发布时间：2020-12-16 06:10:13 所属栏目：大数据 来源：网络整理
导读：例如,我有一个数组 my @arr = qw(0 1 2 3 4); 如何获得以下组合： 00101201230123411212312342232343344 如果有的话,这种组合(或排列)的名称是什么？ 永远感谢！ 解决方法 使用数组切片： #! /usr/bin/perluse warnings;use strict;my @arr = qw(0 1 2 3 4);
|
例如,我有一个数组
my @arr = qw(0 1 2 3 4); 如何获得以下组合： 0 01 012 0123 01234 1 12 123 1234 2 23 234 3 34 4 如果有的话,这种组合(或排列)的名称是什么？ 永远感谢！ 解决方法
使用数组切片：
#! /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 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |