Help for this page

Select Code to Download


  1. or download this
    use List::Util qw/sum/;

while( <INPUT> )
...

  push @averages, $avg_grade;
}
  2. or download this
    my $i = sprintf("%d", scalar(@averages) / 2 );
  3. or download this
    my $i = int( scalar(@averages)/2 );