首頁猿問 perl 怎么計算數(shù)組中相同數(shù)字的個數(shù)

perl 怎么計算數(shù)組中相同數(shù)字的個數(shù)

深度學(xué)習(xí)

慕容森 2019-04-12 11:06:06

#求Mr_A中每一列1,2,3,4,的個數(shù)，我編了一個小程序，有錯誤，但是不知道哪里錯# N為 Mr_A的行數(shù)；$count=0;for (my $i=0; $i<=$N-1;$i++){while ($Mr_A[$i][0]==1){$count++;}}print “$count\n”;#以上程序是求數(shù)組Mr_A第一列中1的個數(shù)，不知道哪里錯了求大神、、我的意思就是統(tǒng)計每一列的1,2,3,4 的個數(shù)，上面這個程序是統(tǒng)計第一列1的個數(shù)，但是打印不出來，不知道有沒有辦法解決啊

查看完整描述

4 回答

婷婷同學(xué)_

TA貢獻1844條經(jīng)驗獲得超8個贊

錯在:
while ($Mr_A[$i][0]==1){
$count++;
}
因為 $Mr_A[$i][0] 如果是 = 1 的話, 那永遠(yuǎn)也是等於 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 $/;

}