#!/usr/local/bin/perl6

# Solution to Advanced Event 2, 2008 scripting games, http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/aevent2.mspx

use v6;
my %players;
my $scores = open('./skaters.txt', :r) or die $!;

for =$scores {
    my ($name,@list) = .split: /\,/;
    %players{$name} = ([+] @list.sort[2..6]) / 5
}

my @ranking = %players.sort: { .value };
for <Gold Silver Bronze> -> $m {
    say @ranking.pop.fmt("$m Medal: %s, %s")
}
# 11 lines