mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-24 06:52:44 +03:00
8 lines
120 B
Plaintext
8 lines
120 B
Plaintext
f : {n} (fin n) => [n] -> [n]
|
|
f x = g x
|
|
where
|
|
m1 = zero # x
|
|
|
|
g : {k} (fin k) => [k] -> [k]
|
|
g m0 = m0 ^ m1
|