use v6;

my $file  = open 'scores';
my @names = $file.get.split(' ');

my %games;
my %sets;

for $file.lines -> $line {
    my ($pairing, $result) = $line.split(' | ');
    my ($p1, $p2)          = $pairing.split(' vs ');
    my ($r1, $r2)          = $result.split(':');

    %sets{$p1} += $r1;
    %sets{$p2} += $r2;

    if $r1 > $r2 {
        %games{$p1}++;
    } else {
        %games{$p2}++;
    }
}

my @sorted = @names.sort({ %sets{$_} }).sort({ %games{$_} }).reverse;

for @sorted -> $n {
    say "$n has won { %games{$n} } games and { %sets{$n} } sets";
}