请教，统计各学院的人数（初试perl6）

w123456_cu

newstudents.txt
---------------------------------------------------------
文学院                广告学                        51
文学院                汉语文学                        261
外国语学院                俄语                                30
外国语学院                法语                                30
生命科学学院        园艺                                60
--------------------------------------------------------

1. use v6;
   
2. 
   
3. my %hash;
   
4. my int $total;
   
5. 
   
6. 
   
7. for 'newstudents.txt'.IO.lines -> $line {
   
8.       my ($college,$dep,$num) = $line.words;
   
9.          %hash{$college}{$dep} = $num;
   
10.          $total += $num;
    
11. }
    
12. 
    
13. 
    
14.   for %hash.kv -> $k , $v {
    
15.         my $sum;
    
16.         for %hash{$k}.kv -> $kk, $vv {
    
17.          $sum  += $vv;
    
18.         }
    
19.           say "-" x 50;
    
20.           say "$k \t $sum "
    
21. }
    

复制代码

统计各学院的合计人数，最终希望是：
--------------------------------
              文学院                        312
        外国语学院                        60
      生命科学学院                        60
---------------------------------


问题：
1，代码好像很臃肿
2，第一行总是要空格，而且多出一行。

104359176

数据结构，算法都有问题，hash 的键只能有一个，多余的会被合并。

记录最好用 array

1. for 'file'.IO.lines -> $line {
   
2.      my ($a, $b, $c) = $line.words;
   
3.      push @array, [$a, $b, $c];
   
4. }

复制代码

你先用 Perl5 实现，就知道问题了。

另外 Perl6 对中文的支持不太好，你先用字母代替中文名称。

遍历 Hash 通常是这样：

1. for %hask -> $pair {
   
2.     my ($key, $value) = $pair;
   
3.     ...
   
4. }

复制代码

104359176

另外，分隔符最好不要用 tab, 在显示中可能会长度不同，最好用 空格。

w123456_cu

谢谢104359176 受教  受教

不过，不用hash 怎么进行分类统计？

ba_du_co

1. my $student = open 'student.txt';
   
2. my %h;
   
3. for $student.lines {
   
4.     my ($k, $v) = .words[0,2];
   
5.     %h{$k} += $v;
   
6. }
   
7. 
   
8. say %h.fmt;
   
9. 
   
10. # 文学院        312
    
11. # 生命科学学院        60
    
12. # 外国语学院        60
    
13. # ----------------------------------
    
14. 
    
15. 
    
16. # OR
    
17. #      文学院        312
    
18. # 生命科学学院        60
    
19. #   外国语学院        60
    
20. 
    
21. my $max = %h.keys.map(*.chars).max;
    
22. 
    
23. for %h.kv -> $k, $v {
    
24.     my $len = $max - $k.chars;
    
25.     say '  ' x $len, $k, "\t", $v;
    
26. }
    
27. 
    

复制代码

MMMIX

w123456_cu 发表于 2015-09-01 09:50
谢谢104359176 受教  受教

不过，不用hash 怎么进行分类统计？

Why?

w123456_cu

学习不到位，还请@MMMIX 给指导指导。