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.

Jeroen
"We are not alone"(FZ)

Create A New User
Node Status?
node history
Node Type: note [id://70284]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
As of 2017-08-19 04:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Who is your favorite scientist and why?

Results (310 votes). Check out past polls.

Notices?