# Source: # http://cloud.github.com/downloads/perl6/book/book-2009-11.pdf # Chapter 2 The Basics, 4-8ページ use v6; my $file = open 'scores.txt'; 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({ %games{$_} }).sort({ %sets{$_} }).reverse; for @sorted -> $n { say "$n has won { %games{$n} } games and { %sets{$n} } sets"; }