Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: Re: Length of 2-dimensional array

by c-era (Curate)
on Apr 06, 2001 at 00:33 UTC ( #70284=note: print w/replies, xml ) Need Help??

in reply to Re: Length of 2-dimensional array
in thread Length of 2-dimensional array

This could also be written as:
my $a; # a 2d-array my $count=0; for (@$a){ $count += $#$_+1; } print "My 2D-array is $count long\n";

Replies are listed 'Best First'.
Re: Re: Re: Length of 2-dimensional array
by extremely (Priest) on Apr 06, 2001 at 00:40 UTC
    my $a = [[1,2,3],[4,5,6,7],[3]]; my $count = 0; $count += @$_ for @$a;

    $you = new YOU;
    honk() if $you->love(perl)

Re:{3} Length of 2-dimensional array
by jeroenes (Priest) on Apr 06, 2001 at 00:55 UTC
    Yes. And extremely's reply spares even more keystrokes. Alls that inspires me to give a somewhat more useful answer:
    $a = [ [ 0..2 ], [0..10],[0..100] ]; my ($min, $max,$sum) = (undef, 0, 0); for (@$a){ $sum += my $a_length = @$_; $min = $a_length if $a_length < $min or not defined $min; $max = $a_length if $a_length > $max; } my $avg = $sum/ @$a; print "Avg: $avg; Min: $min; Max: $max\n";
    Gives some useful array statistics.

    "We are not alone"(FZ)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://70284]
[stevieb]: ohhh, aaaand, I just learned that you can power an Arduino (Uno at least) by connecting any single analog pin to 5v on the Pi GPIO! That's bloody handy

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2017-06-22 23:03 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (531 votes). Check out past polls.