Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Rook question

by blue_cowdawg (Prior)
on Oct 18, 2012 at 13:35 UTC ( #999737=note: print w/ replies, xml ) Need Help??


in reply to Rook question

another solution:

sub total { my $sum =0; map { $sum += $_ } @_; return $sum; }
Couldn't resist... :-)


Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg


Comment on Re: Rook question
Download Code
Re^2: Rook question
by Anonymous Monk on Oct 18, 2012 at 17:18 UTC

    Let's fold a list.

    use List::Util 'reduce'; sub total { return reduce { $a + $b } 0, @_; }
      The above code hardly even resembles Perl as I know it. Got a lot to learn... I've heard at work they use 'map' regularly (I wouldn't say 'frequently'--something about it not processing efficiently with mysql in some contexts). I'll need to read up on that.
            something about it not processing efficiently with mysql in some contexts

        eh? What does map have to do with mysql? O-o


        Peter L. Berghold -- Unix Professional
        Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

        I can't say I'd choose cowdawg's approach for this question, because map is a bit ill suited for this specific problem. Athanasius's is probably the most idiomatic while still being easy to understand.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2014-08-01 06:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (257 votes), past polls