Help for this page

Select Code to Download


  1. or download this
    $ave = do { $ave += $_ for @array; $ave } / @array;
  2. or download this
    $ave += $_/@array for @array;
  3. or download this
    push @{ $_ < $ave ? \@lower : \@higher }, $_ for @array;