Here you go:
This is how one can find a maximum number in an array iteratively and recursively in Perl
#!/usr/bin/perl
my (@setOfnumbers);
@setOfnumbers = ( 9, 7, 90, 3, 8, 412, 67, 2, 45, 53, 1, 3,89 );
print "Finding maximum number iteratively ",
getMaximumNumber(@setOfnumbers) , "\n";
print "Finding maximum number recursively ",
findMaximumNumber(@setOfnumbers) , "\n";
#Finding maximum number iteratively
sub getMaximumNumber{
my ($maximumNumber);
$maximumNumber = @_[0];
foreach(@_){
if ($_ > $maximumNumber){
$maximumNumber = $_;
}
}
return $maximumNumber;
}
#Finding maximum number recursively
sub findMaximumNumber{
my ($maximumNumber);
if (@_ == 1){
$maximumNumber = shift(@_);
return $maximumNumber;
}
else{
$maximumNumber = shift(@_);
return (findMaximumNumber(@_) > $maximumNumber)
? findMaximumNumber(@_) : $maximumNumber;
}
}