如何统计多个数的各个位上出现的数字次数

chenjiali1

大家好，我这里有一组数：
12341
23411
23222
12321
21342

我想统计这五个数的万位一直到个位上每一位上1,2,3,4的数量之和。
结果想要这样的格式
1： 2 1 0 1 3
2： 3 2 1 2 2
3： 0 2 3 0 0
4： 0 0 1 2 0
即统计之后，万位上1出现了2次，2出现了3次，3,4没有出现补0，其他位上以此类推，请问大家如何实现。

iamlimeng

楼主这是要买彩票吗？

huang6894

回复 1# chenjiali1

1. 
   
2. #/usr/bin/perl -w
   
3. my %h;
   
4. my $u;
   
5. open FILE,$ARGV[0];
   
6. while(<FILE>){
   
7. chomp;
   
8. my @all =split //,$_;
   
9. my $n;
   
10. map{$n++;$h{$_}{$n}++;}@all;
    
11. $u = $#all + 1;
    
12. }
    
13. for my $i (1..4){
    
14. print "$i: ";
    
15. foreach my $k (1..$u) {
    
16. $h{$i}{$k}||=0;
    
17. print "$h{$i}{$k} ";
    
18. }
    
19. print "\n";
    
20. }

复制代码

写的很烂。。。我是故意的~

pitonas

我学习到了非常实用的知识和技巧，强力推荐！{:2_172:}

回复 3# huang6894


   

yestreenstars

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my %hash;
   
5. while(<DATA>){
   
6.         my @field = split //;
   
7.         $hash{$_}{$field[$_]}++ for 0..$#field;
   
8. }
   
9. for my $i (1..4){
   
10.         print "$i:";
    
11.         for my $j (0..4){
    
12.                 print " ", $hash{$j}{$i} // 0;
    
13.         }
    
14.         print $/;
    
15. }
    
16. __DATA__
    
17. 12341
    
18. 23411
    
19. 23222
    
20. 12321
    
21. 21342

复制代码

pitonas

楼主这实际 文件

1: 只有五个位数 ? ~ 万位
2: 只有 1, 2, 3, 4 ( 4 个数 ? )       
       
回复 1# chenjiali1


   

huang6894

回复 6# pitonas


    老大又换头像了?