Re: Solution to Games #2

2009-01-11 Thread Larry Wall
On Sun, Jan 11, 2009 at 04:24:08PM +0300, Richard Hainsworth wrote: > my ($name,@list) = .split /\,/; That shouldn't parse, because .split should not be looking for an argument list. (And, in fact, STD rejects it.) You need one of: my ($name,@list) = .split: /\,/; my ($name,@list) = .

Re: Solution to Games #2

2009-01-11 Thread Carl Mäsak
Richard (>): > 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 -> $m { > given pop @ranking { > say "$m Me