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 :)

Replies are listed 'Best First'.
Re: Re: "Junkyard" Puzzle: Average of Numbers
by $code or die (Deacon) on May 13, 2001 at 22:32 UTC
    Hi,

    You could make it shorter by taking out the scalar(). @{$_[0]} is already interpretted in scalar context.

    $code or die
    $ perldoc perldoc
[reply]

In Section Meditations