sgn

sgn : (real -> (union 1 #i1.0 0 #i0.0 -1 #i-1.0))

purpose:
to compute the sign of a real number


Intermediate Student with Lambda Language