mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-11 08:37:35 +03:00
15 lines
578 B
Plaintext
15 lines
578 B
Plaintext
shiftls1 = [ 0x12345678 << i | i <- [ 0 .. 32 ] ]
|
|
shiftls2 = [ 0x12345678 << i | i <- [ 32 .. 64 ] ]
|
|
shiftls3 = [ 0x12345678 << i | i <- [ 0x80000000 .. 0x8000000f ] ]
|
|
shiftrs1 = [ 0x12345678 >> i | i <- [ 0 .. 32 ] ]
|
|
shiftrs2 = [ 0x12345678 >> i | i <- [ 32 .. 64 ] ]
|
|
shiftlbig1 : [48][48]
|
|
shiftlbig1 = [ 0x12345678abcd << i | i <- [ 0 .. 47 ] ]
|
|
shiftlbig1' : [48][48]
|
|
shiftlbig1' = [ 0x12345678abcd * 2^^i | i <- [ 0 .. 47 ] ]
|
|
|
|
check7a = shiftls3 == [ 0, 0 ... ] @@ [ 0 .. 0xf ]
|
|
check7b = shiftlbig1 == shiftlbig1'
|
|
check7c = 1 << 1 == 0
|
|
check7 = check7a && check7b && check7c
|