総積を求めるプログラム

質問

@dat = (2, 4, 7, 9, 10)

とあるデータの積和,すなわち,

2 * 4 * 7 * 9 * 10 = 5040

という計算を行いたいのですが,「総積　プログラム」とか「総積　Perl」というキーワードで検索してもなかなか見つかりません。実際に見本となるコードを示していただければ一番良いのですが,総積を求めるために参考になるwebページの紹介や,やり方（考え方）を教えてくださるだけでも結構です。どうぞよろしくお願いします。

回答No.1

Werner · ベストアンサー

説明するよりコード書いた方が楽そうなのでコードだけ。

my @dat = (2, 4, 7, 9, 10);
my $product = 1;
foreach my $a ( @dat ) { $product *= $a; }
print join("*",@dat) . "=$product\n";

お礼

早速の回答ありがとうございました。

というか,コードを見せていただいて気づいたのですが,単に合計を求めるプログラムで使う"+="を"*="とすればよかっただけのことだったのですね。