Perlで１～１０まで全部足す。簡単に書くには？

質問

題名のとおりなんですが。
Perlで１～１０まで全部足すのに、
1番簡単に書いたらどんな感じなるでしょうか？
(一回足すごとに結果は表示）
私は全然浮かばず、
$a = 1
print "$a\n"
$b = $a + 1
print "$b\n"
$c = $b +2 "
…続く

こんな感じのお粗末なものを書きました。
whileやforを使えばもっと簡単に書けると思いますが、
どなたかご存知でしたら教えてください。

回答No.3

bitsu · ベストアンサー

#変数の初期化
$a = 1;

#$aが１０以下の間繰り返し
while ($a <= 10) {

#&aの中身を表示
print "$a\n";

#$aに１足す
a ++;

}

こんな感じでどうですかね？

お礼

ありがとうございます。
解説が書いてありよくわかりました。

回答No.5

BLUEPIXY

print join "\n", map ( $a+=$_ , 1..10);

お礼

いつもの人回答ありがとうございます。
シンプルでこれが一番いいと思います。
強いて言えば、少し解説が欲しかったです。

回答No.4

bitsu

ごめんなさいNo1とNo3です。
間違えて２回送ってしまいました・・・orz

回答No.2

hara_peko

my $total;
for (1..10) {
$total += $_;
print "$total\n";
}

とか

my $total;
print +($total += $_), "\n" for (1..10);

でいいですか？

お礼

ありがとうございます。
OKなんですけど、解説が欲しかったです。

回答No.1

bitsu

#変数の初期化
$a = 1;

#$aが１０になるまで繰り返し
while ($a <= 10) {

#&aの中身を表示
print "$a\n";

#$aに１足す
a ++;

}

こんな感じでどうですかね？