mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-17 04:44:39 +03:00
6 lines
200 B
Plaintext
6 lines
200 B
Plaintext
example1 : {a} (a >= 1, 2 >= a) => [16*a][8] -> [16][8]
|
|
example1 k = drop`{16} ((zero : [16*(2 - a)][8]) #k)
|
|
|
|
example2 : {a} (a >= 1, 2 >= a) => [16*a][8] -> [16][8]
|
|
example2 k = drop`{16} (zero # k)
|