Matt Owen

source code for "files/pe/necessary.pm"

return to portfolio
  1.  package necessary;
  2.  
  3.  sub sum {
  4.   my $sum = 0;
  5.  
  6.   for (@_) {
  7.   $sum += $_;
  8.   }
  9.  
  10.   return $sum;
  11.  }
  12.  
  13.  sub max {
  14.   my $largest = shift;
  15.  
  16.   for (@_) {
  17.   $largest = $_ if $largest < $_;
  18.   }
  19.  
  20.   return $largest;
  21.  }
  22.  
  23.  sub min {
  24.   my $smallest = shift;
  25.  
  26.   for (@_) {
  27.   $smallest = $_ if $smallest > $_;
  28.   }
  29.  
  30.   return $smallest;
  31.  }
  32.  
  33.  
  34.  1;