🥃

nqou.net

Whisky, Perl, Kansai.pm

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;