Select Code to Download

sub diag {
my $x = shift @_;
my $y = shift @_;
...
my $result = sqrt($prod);
return $result;
}

sub diag {
my $x = shift @_;
my $y = shift @_;
return abs ($x * $y);
}

sub diag {
return abs ($_[0] * $_[1]);
}