Help for this page

Select Code to Download


  1. or download this
    sub same_sign{
  my($left, $right) =@_;
  (0 <=> $left) == (0<=> $right);

}