Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: "Junkyard" Puzzle: Average of Numbers

by no_slogan (Deacon)
on May 13, 2001 at 05:49 UTC ( #79983=note: print w/replies, xml ) Need Help??

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 - || "You've left the lens cap of your mind on again, Pinky" - The Brain

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://79983]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2019-05-19 22:45 GMT
Find Nodes?
    Voting Booth?
    Do you enjoy 3D movies?

    Results (122 votes). Check out past polls.