+ my $tt = 0;
+ foreach my $merged (sort { $a <=> $b } keys %merged_pts) {
+ printf REP "Test %2s: %2d points", $merged, $merged_pts{$merged};
+ $tt += $merged_pts{$merged};
+ my @k = sort keys %{$split_comm{$merged}};
+ if (@k == 1) {
+ print REP " -- ", $split_comm{$merged}{$k[0]}, "\n";
+ } else {
+ print REP " -- ";
+ my $cc = 0;
+ foreach my $t (@k) {
+ $cc++ and print REP ", ";
+ print REP "$t: $split_comm{$merged}{$t}";
+ }
+ print REP "\n";
+ }
+ }