mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-19 05:51:43 +03:00
8 lines
213 B
Plaintext
8 lines
213 B
Plaintext
irred : [8]
|
|
irred = 0x1b
|
|
// endianness difference from Cryptol-1 test
|
|
xtimes a = (if a ! (length a - 1) then a' ^ irred else a')
|
|
where a' = a << 1
|
|
|
|
check21 = [ xtimes y | y <- [ 1, 12, 192 ] ] == [ 2, 24, 155 ]
|