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


in reply to "Junkyard" Puzzle: Average of Numbers

eval(join "+", @{$_[0]}) / @{$_[0]}

Update: Oh, are we golfing? That's 31 characters without the spaces.

Replies are listed 'Best First'.
Re: Re: "Junkyard" Puzzle: Average of Numbers
by mr.nick (Chaplain) on May 13, 2001 at 08:15 UTC
    Damn! I did this one without reading a single other post and came out with a sloppier version that yours, but along the same lines (I'm new at this :)
    sub find_avg { (eval join"+",@{$_[0]})/(($#{$_[0]})+1); }
    I had a hell of a time getting $#array working with $_[0]. I see I over complicated it :)
    I'd like to add that these "Junkyard" puzzles, Golf and such are extremely good practice for those of us lower on the curve. Just in the past week or so, I've added quite a bit of knowledge to my base. These remind me much of doing geometric proofs back in middle school. Entertaining as well as educational.

    Thank you.

Re: Re: "Junkyard" Puzzle: Average of Numbers
by Masem (Monsignor) on May 13, 2001 at 06:04 UTC
    I wouldn't suggest golfing with these. Sure, you could, but that's not the challenge; it's probably more interesting to see how many TIMTOWTDI approaches can be taken.
    Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain