unison/unison-src/tests/r4negate.u
2018-09-24 13:36:13 -04:00

6 lines
68 B
Plaintext

r4 : Int -> Int
r4 x = case x of
+1 -> -1
_ -> Int.negate x
()