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

概述例如,我有一个数组 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);

如何获得以下组合：

00101201230123411212312342232343344

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

永远感谢！

解决方法 使用数组切片：

#! /usr/bin/perluse 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;

输出：

00101201230123411212312342232343344

总结

以上是内存溢出为你收集整理的如何使用Perl在后续订单中获取所有可能的相邻项组合？全部内容，希望文章能够帮你解决如何使用Perl在后续订单中获取所有可能的相邻项组合？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。