unison/unison-src/tests/r4negate.u

6 lines
74 B
Plaintext

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