我試圖： 用數字 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..
uj5u.com熱心網友回復：
顯示的序列對于每個元素具有：其索引 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";
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/329712.html