Next You can't get there from here 9

Trading

        sub total {
          my ($sizes, $values, @items) = @_;
          my $total_size = 0;
          my $total_value = 0;
          for my $item (@items) {
            $total_size  += $sizes->{$item};
            $total_value += $values->{$item};
          }
          return ($total_size, $total_value);
        }

Next Copyright © 2005 M. J. Dominus