Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Rook question

by blue_cowdawg (Monsignor)
on Oct 18, 2012 at 13:35 UTC ( [id://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

Replies are listed 'Best First'.
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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://999737]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2024-04-26 00:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found