Help for this page

Select Code to Download


  1. or download this
    my ($min, $max, $sum) = calculate [qw/min max sum/], @list;
  2. or download this
    my $stats=List::Util->calculate([qw/min max sum/])->of(@list);
print $stats->min, "\n";
  3. or download this
    calculate [qw/min max sum/], @list;
print List::Util::lastrun->max, "\n";