1 2 3 4 5 6
my $n = 10; my $sum = 0; for (my $i = 1; $i <= $n; $i++) { $sum += $i; } print $sum;
<p>…ループは便利なのだが、先のプログラムでは$n回の足し算を行うことになる。</p>
1 2 3
my $n = 10; my $sum = ($n + 1) * $n / 2; print $sum;
Comments
comments powered by Disqus