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