Re: "Junkyard" Puzzle: Average of Numbers (Newbie approach)

[bambam]

in reply to "Junkyard" Puzzle: Average of Numbers

Here's a newbie approach w/o using  eval : ).

sub s{
push @{$_[0]},0;
${$_[0]}[$#{$_[0]}] += ${$_[0]}[$_] for 0..$#{$_[0]}-1;
${$_[0]}[$#{$_[0]}] /= $#{$_[0]};
pop @{$_[0]};
}