in reply to Seeing if two numbers have the same sign

Don't code “clever!” The simplest and most expressive code is always best: 

  sub same_sign {
    my ($x,$y) = @_;
    if ( undef($x) or undef($y)) {
       return 0;           # "undef" is never same-sign
    }
    if (   ( ($x >= 0) and ($y >= 0) )
        or ( ($x <  0) and ($y <  0) ) )
    {
       return 1;
    }
    else 
    {
       return 0;
    }
  }

[download]

Is this (caution: extemporaneous Perl...) module terse? No. Could it have been written with fewer characters? Yes. But neither of those considerations are “the point.” What matters to me is that it is obvious what this code is actually supposed to do. Everything about it, including the white space, is designed to encourage readability among humans. The Perl compiler can take care of itself.

Replies are listed 'Best First'.
Re^2: Seeing if two numbers have the same sign
by Corion (Patriarch) on Jan 11, 2008 at 17:02 UTC

    I suggest you test your code before posting:

    use strict;
sub same_sign {
    my ($x,$y) = @_;
    if ( undef($x) or undef($y)) {
       return 0;           # "undef" is never same-sign
    }
    if (   ( ($x >= 0) and ($y >= 0) )
        or ( ($x <  0) and ($y <  0) ) )
    {
       return 1;
    }
    else 
    {
       return 0;
    }
  } 

$\ = "\n";
print same_sign(1,1);
print same_sign(0,0);
print same_sign(undef,undef);
print same_sign(-1,-1);
print same_sign(-2,-2);
print same_sign(2,-2);
__END__
1
1
1
1
1
1

    [download]

    Your subroutine seems to suggest that all values passed in always have the same value sign...

    Update: Correction thanks to lodin
[reply]
[d/l]
Re^2: Seeing if two numbers have the same sign
by demerphq (Chancellor) on Jan 11, 2008 at 19:34 UTC

    You probably meant !defined() where you put undef().

    And personally i think your code is much harder to understand than what i posted. Longer is very often less comprehensible than shorter for the simple fact that most people can only operate on a small number of items at a time. (8 or so).

    ---
    $world=~s/war/peace/g

[reply]
      You probably meant 5..9 where you put (8 or so). :-)
[reply]

        Yes. I probably did. :-) Good link BTW.

        ---
        $world=~s/war/peace/g

[reply]

In Section Seekers of Perl Wisdom