int :sgn ( float $NUMBER )
int :sgn ( int $NUMBER )

Returns an integer representing sign of passed value - +1 if number is greater than 0, -1 if it's lesser than zero, and 0 if it equals zero.

# :sgn example
:writeln :sgn f+1.1   # should be 1
:writeln :sgn f+0.0   # should be 0
:writeln :sgn f-0.0   # should be 0
:writeln :sgn f-2.2   # should be -1