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