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


in reply to "Junkyard" Puzzle: Average of Numbers

Here's the first thing that springs to mind if I read the problem correctly (30 characters): 
sub avg {
  (map{(1)x$_}@{$_[0]})/@{$_[0]}
}

[download]

Replies are listed 'Best First'.
Re: Re: "Junkyard" Puzzle: Average of Numbers
by no_slogan (Deacon) on May 13, 2001 at 05:53 UTC
    Clever, but the problem statement doesn't guarantee that we're dealing with non-negative integers.
[reply]

In Section Meditations