#求Mr_A中每一列1,2,3,4,的個數，我編了一個小程序，有錯誤，但是不知道哪里錯# N為 Mr_A的行數；$count=0;for (my $i=0; $i<=$N-1;$i++){while ($Mr_A[$i][0]==1){$count++;}}print “$count\n”;#以上程序是求數組Mr_A第一列中1的個數，不知道哪里錯了 求大神、、我的意思就是統計每一列的1,2,3,4 的個數，上面這個程序是統計第一列1的個數，但是打印不出來，不知道有沒有辦法解決啊
4 回答
婷婷同學_
TA貢獻1844條經驗 獲得超8個贊
錯在:
while ($Mr_A[$i][0]==1){
$count++;
}
因為 $Mr_A[$i][0] 如果是 = 1 的話, 那永遠也是等於 1, 因為你在回路中沒有改變過$Mr_A[$i][0] 的值, 所以就不可能跳出來了.
你可以這麼做的
foreach my $row ( 0.. $#Mr_A ) {
my %item;
foreach my $col ( @{$Mr_A{$row}} ) {
++$item{$col}
}
print "In Row $row: $/";
print "\tThere are $item{$_} of $_$/" foreach sort {$a<=>$b} keys %item;
print $/;
}
- 4 回答
- 0 關注
- 1249 瀏覽
添加回答
舉報
0/150
提交
取消