Perl
1#!/usr/bin/perl 2#配列 = (購入する物の名前、値段、購入数) 3@A = ("Apple", 50, 8); 4@O = ("Orange", 30, 10); 5@B = ("Banana", 20, 12); 6@G = ("Grape", 100, 5); 7 8@max = @A; 9 10foreach @a (@O, @B, @G) { 11 if($max[1]*$max[2] < $a[1]*$a[2]){ 12 @max = @a; 13 } 14} 15 16$price = $max[1] * $max[2] 17print "名前: $max[0] 代金:$price" 18
上のプログラムは代金が一番高いものを見つけるプログラムをPerlで書いたつもりです。
しかし、@maxに@G(代金が一番高い)が代入できていません。
どうしてでしょうか?
foreachの@aは配列にとって変わることは出来ない仕様なのでしょうか?
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/06/15 12:20