大神求帮忙，求出合作网络矩阵

w123456_cu

---------------合作关系列表--------------
       科技项目     合作省份
        项目1        湖北                        
        项目2        四川                        
        项目3        北京        上海        四川        
        项目4        四川        广州               
        项目5        广州        湖北               
        项目6        四川        广州        上海        湖北
        项目7        上海        广州               
        项目8        北京        四川        广州        湖北
        项目9        广州                        
        项目10               
        项目11        


希望求合作矩阵（其中，数值表示合作频次）       

                               

        湖北        四川        北京        广州        上海
湖北        0        2        1        3        1
四川        2        0        2        3        2
北京        1        2        0        1        1
广州        3        3        1        0        2
上海        1        2        1        2        0

w123456_cu

1. use v6;
   
2. 
   
3.     my %hash;
   
4. 
   
5.   for 'data_cooperation.txt'.IO.lines {
   
6.        my ($, @item) = .words;
   
7.        my @copy = @item;
   
8. 
   
9.                for @item ->$a {   #二重循环遍历每个单词
   
10.                        for @copy -> $b {
    
11.                              %hash{$a}{$b}++;
    
12.                               }
    
13.                        }
    
14. }
    
15. 
    
16.         my  @uu = %hash.keys.sort;
    
17.                 ##   
    
18.                print "item \t";      
    
19.                say join("\t", @uu);   #输出首行
    
20.                ##
    
21. 
    
22.           for @uu -> $i {
    
23.                  print "$i\t";     #输出首列
    
24.                  for @uu -> $j {
    
25.                       if defined(%hash{$i}{$j}) {  #对角元为0
    
26.                              print ($i eqv $j) ?? "0\t" !! "%hash{$i}{$j}\t" ;   
    
27.                                 }
    
28.                          }
    
29.                  print "\n";  
    
30.                }

复制代码

w123456_cu

感觉没有perl6的美感,
请大神指点

sunzhiguolu

Perl 6 - 只能像您学习了...

ba_du_co

回复 1# w123456_cu

1. #!perl6
   
2. 
   
3. my ( %item, @item );
   
4. 
   
5. for 'data'.IO.lines {
   
6.     ( *, @item ) = .words;
   
7.     for @item X @item {
   
8.         %item{.[0]}{.[1]} += [ne] $_;
   
9.     }
   
10. }
    
11. 
    
12. say join "\t", 'item', @item = %item.keys;
    
13. say join "\t", .key, .value{@item} «||» 0 for %item;
    
14. 
    
15. 
    

复制代码

w123456_cu

@ba_du_co  精炼

MMMIX

Perl 6 的语法怎么这么诡异呢？