For kicks I converted this into Perl6. Below is a fairly direct transaltion, though I think i'm going to try a rewrite without looking at the p5 version to see what i end up with. 

#!/usr/bin/pugs

my @bowlers;
my $team_handicap;

for (1..2) -> my $bowler {
  say "Please enter Bowler $bowler's scores:";
  for (0..2) {
      print "Score $_:";
      my $score = =$*IN;
      @bowlers[$bowler].<average> += $score;
  }
  @bowlers[$bowler].<average> = int(@bowlers[$bowler].<average> / 3);
  @bowlers[$bowler].<handicap> = int( (200 - @bowlers[$bowler].<averag
+e> ) * .85);
  $team_handicap += @bowlers[$bowler].<handicap>;
}
say;
for (1..2) -> $bowler {
  say "Bowler $bowler's Average Score:", @bowlers[$bowler].<average>,
      "\t Handicap: ", @bowlers[$bowler].<handicap>;
}
      
say;

say "The team's handicap $team_handicap";

[download]

You can see it is very similar to Perl5 though definitly not the same, comment, improvments are welcome. Or get a committer bit and update it yourself. Link to the live version: http://svn.perl.org/perl6/pugs/trunk/examples/games/bowling.p6


___________
Eric Hodges

In reply to Re: 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.