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


in reply to Re: "Junkyard" Puzzle: Average of Numbers
in thread "Junkyard" Puzzle: Average of Numbers

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.