signum

signum :: Num a => a -> a
base Prelude