HaskellCourse/cm/guard.hs

-- Slide 10/78

sign n
    | n < 0 = -1
    | n > 0 = 1
    | otherwise = 0