Help for this page

Select Code to Download


  1. or download this
    sub same_sign {
    $_[0]*$_[1] > 0
};
  2. or download this
    sub same_sign {
    $_[0]*$_[1] >= 0
};
  3. or download this
    sub same_sign {
   ($_[0] <=> 0) == ($_[1] <=> 0)
};