Maximalniho prvku pole

[Honza Pazdziora]

On Fri, Dec 10, 1999 at 02:26:57PM +0100, Roztocil Bohuslav wrote:
> > 
> > je v perlu nejaka funkce, ktera mi vypise nejvetsi prvek 
> > pole, abych to
> > nemusel delat cyklem?
>
> Pocet prvku vrati funkce scalar():
> 
>   @x = qw(9 8 7 6 5 4);
>   print scalar(@x), "\n";	# vypise 6
> 
> BTW - jak byste to delal cyklem?

No, ja jsem z toho prvniho postu nabyl dojmu, ze cilem je dosahnout

sub maximalni_prvek {
	my $arrayref = shift;
	my $max = undef;
	for my $prvek (@$arrayref) {
		$max = $prvek if (not defined $max or $prvek > $max);
	}
	$max;
}

my @x = qw(9 8 7 6 5 4);
print maximalni_prvek(\@x), "\n";
__END__
9

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------