perl - 循环遍历 perl 数组

Question

我正在尝试: 使用数字 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..

Answer 1

显示的序列对于每个元素都有:其索引 + 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

---

As a script

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";