Select Code to Download

sub diag {
  sqrt( $_[0]^^2 + $_[1]^^2 );
}

sub diag {
  sqrt( shift^^2 + shift^^2 ); # Not sure if this is more readable, or
+ not.
}