all_same_sign function

Determine whether a vector is all of the same sign