Help for this page
Select Code to Download
Select
or
download this
sub same_sign { $_[0] / abs $_[0] == $_[1] / abs $_[1] }