mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-21 02:48:14 +03:00
17 lines
90 B
Plaintext
17 lines
90 B
Plaintext
enum M a = N | J a
|
|
|
|
f x = case x of
|
|
J (a#b) -> a + b
|
|
N -> zero
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|