Help for this page

Select Code to Download


  1. or download this
    sub ediag {
  return abs($_[0]) * abs($_[1]);
}
  2. or download this
    sub ediag {
  abs(shift) * abs(shift);
}
  3. or download this
    sub one {
  sqrt( $_[0] * $_[0] * $_[1] * $_[1] )
}
  4. or download this
    sub another{
  sqrt( $_[0] * $_[0] + $_[1] * $_[1] )
}