Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Statistic in Perl(Using Subroutines)

by jwkrahn (Monsignor)
on Jul 10, 2013 at 23:09 UTC ( #1043587=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub average {
    @_ == 1 or die ('Sub usage: $average = average(\@array);');
    ...
    foreach (@$array_ref) { $sum += $_; }
    return $sum / $count;
    }
    
  2. or download this
    sub average {
        ref( my $array_ref = $_[ 0 ] ) eq 'ARRAY'
    ...
        return $sum / @$array_ref;
        }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1043587]
help
Chatterbox?
[choroba]: I'm curious which part of your signature do they find offensive.
[LanX]: they?
[LanX]: click!
[choroba]: they
[LanX]: why do you think it's more than one person?
[Your Mother]: Because we are LEGION! Fix YOUR SIG SIG BLOCK!!!!
[Your Mother]: Forgot to sign in as my sockpuppet, how embarrassing!
[1nickt]: pryrt I am creating a Type to check valid user IDs, which must be a whole number greater than or equal to zero. I would like to disallow 1.0 but because of this behaviour, by the time it is checked by the constraint, it *is* an Int.
[LanX]: should this be considered? Re: Parsing .txt into arrays

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (14)
As of 2017-05-24 20:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?