http://www.perlmonks.org?node_id=80015


in reply to "Junkyard" Puzzle: Average of Numbers

Here is my attempt: 

sub avg {
    return eval '(' . join('+', @{$_[0]}) . ')/' . scalar(@{$_[0]});
}

[download]

Works pretty good over all :)

In Section Meditations