Re: "Junkyard" Puzzle: Average of Numbers

[$code or die]

in reply to "Junkyard" Puzzle: Average of Numbers

sub average {
  map{$_[1]+=$_}@{$_[0]};$_[1]/@{$_[0]}
}

Works under strict and warnings. Although I am probably breaking your second rule (creating $_[1]).
$code or die


$ perldoc perldoc