#!/usr/bin/pugs

#http://svn.perl.org/perl6/pugs/trunk/examples/games/bowling2.p6
use v6;

print "How many bowlers are on your team?";
my $bowlers = =$*IN;
print "How many games would you like to average?";
my $games   = =$*IN;

my @bowlers;

for (1 .. $bowlers) {
    my $bowler;
    say "Enter scores for bowler $_:";
    for (1.. $games) {
      print "game $_ score:";
      my $score = =$*IN;
      $bowler<games>.push( $score );      
    }
    $bowler<id>       = $_;
    $bowler<total>    = [+] @{$bowler<games>};  
    $bowler<avg>      = $bowler<total> / $games;
    $bowler<handicap> = int ( (200 - $bowler<avg>) * .8);
    @bowlers.push($bowler);
}

for @bowlers -> $bowler {
  say "Bowler $bowler<id>'s average is $bowler<avg>\tHandicap: $bowler<handicap>"; 
}

my $team_handicap = [+] @bowlers.map:{ $_.<handicap> };
say "Team handicap is: $team_handicap";