A slightly more perl6 ish version.

#!/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";

[download]

___________
Eric Hodges

In reply to Re^2: Bowling Handicaps by eric256
in thread Bowling Handicaps by Andrew_Levenson

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.