3 lines
78 B
Haskell
3 lines
78 B
Haskell
signum x | x > 0 = 1
|
|
| x < 0 = -1
|
|
| otherwise = 0
|