mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-18 13:31:50 +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
|