Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1, Tue Aug 8 19:20:16 2017 UTC | revision 1.2, Fri Aug 11 01:13:02 2017 UTC | |
|---|---|---|
| # | Line 168 | Line 168 |
| 168 | # Sort the couples and output them. | # Sort the couples and output them. |
| 169 | my @couples = sort { $couples{$b} <=> $couples{$a} } grep { $couples{$_} >= $minCount } keys %couples; | my @couples = sort { $couples{$b} <=> $couples{$a} } grep { $couples{$_} >= $minCount } keys %couples; |
| 170 | for my $couple (@couples) { | for my $couple (@couples) { |
| 171 | print "$couple\t$couples{$couple}\n"; | P3Utils::print_cols([$couple, $couples{$couple}]); |
| 172 | } | } |
|
||||||||
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |