数组 – 返回Perl中最后一个非零元素索引的优雅方法？

发布时间：2020-12-15 23:30:39 所属栏目：大数据来源：网络整理

导读：我发现自己想要找到数组中最后一个非零元素的索引.所以,给定： my @array = (0,5,9,7,3,0);my $indexLastNonZero = insertElegantMethodHere(@array);# expect $indexLastNonZero to be equal to 9; 我这样做了： for my $i (0 .. $#array) { $indexLastNonZ

我发现自己想要找到数组中最后一个非零元素的索引.所以,给定：

my @array = (0,5,9,7,3,0);
my $indexLastNonZero = insertElegantMethodHere(@array);
# expect $indexLastNonZero to be equal to 9;

我这样做了：

for my $i (0 .. $#array) {
    $indexLastNonZero = $i if $array[$i] != 0;
};

我工作,但不知怎的,我不禁觉得必须有一个超级优雅(更聪明？更好？更高效？)在perl中这样做的方式.我查看了List :: Utils,但没有找到一个很好的方法,并希望非核心模块独立的方法.

有什么想法吗？

干杯

解决方法

从数组的末尾开始并向后工作,直到找到非零元素：

my @array = (0,0);

my $i = $#array;
$i-- while $i >= 0 && $array[$i] == 0;

print "The last non-zero element is at index $in";

$i> = 0测试用于防止所有元素都为零的边缘情况.在这种情况下,$i的结果值为-1.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!