时间戳

首页 > 解决方案 > 循环遍历 perl 数组

perl - 循环遍历 perl 数组

问题描述

我正在尝试：用数字 1 到 10 填充数组的 10 个元素。通过遍历数组中包含的值来添加数组中包含的所有数字。

例如，它会从 1 开始，然后第二个数字是 3（1 加 2），然后下一个是 6（现有的 3 加上新的 3）这是我当前的代码

#!/usr/bin/perl
use warnings;
use strict;
my @b = (1..10);
for(@b){
    $_ = $_ *$_ ; 
}
print ("The total is: @b\n")

这就是结果

The total is: 1 4 9 16 25 36 49 64 81 100

我正在寻找的是：

The total is: 1 3 6 10 etc..

标签： perlsequence

解决方案

显示的序列对于每个元素都有：它的索引 + 1 + 前一个索引处的值

perl -wE'@b = 1..10; @r = 1; $r[$_] = $_+1 + $r[$_-1] for 1..$#b; say "@r"'

语法$#name适用于数组中的最后一个索引@name。

如果数组原地改变，如图，那么就不需要初始化

perl -wE'@b = 1..10; $b[$_] = $_+1 + $b[$_-1] for 1..$#b; say "@b"'

两者都打印

1 3 6 10 15 21 28 36 45 55

作为脚本

use warnings;
use strict;
use feature 'say';

my @seq = 1..10; 

for my $i (1..$#seq) {
    $seq[$i] = $i+1 + $seq[$i-1]; 
}

say "@seq";

推荐阅读