mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-24 06:52:44 +03:00
5 lines
157 B
Plaintext
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
|