1
1
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-22 07:21:54 +03:00
cryptol/tests/regression/check24.cry
2014-04-17 15:34:25 -07:00

5 lines
157 B
Plaintext

xor : {a} ([a], [a]) -> [a]
xor (xs, ys) = [ x != y | x <- xs | y <- ys ]
check24 = [ xor (x, y) == (x ^ y) | x <- [ 0 .. 15 ], y <- [ 0 .. 15 ] ] == ~zero