mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-11-14 11:16:33 +03:00
9 lines
199 B
Plaintext
9 lines
199 B
Plaintext
keyWS seed = xs
|
|
where
|
|
xs = seed # [ i | i <- [ 0xff ... ]
|
|
| prev <- drop `{4 - 1} xs
|
|
| old <- xs
|
|
]
|
|
|
|
tester = take`{10} (keyWS [1,2,3,4])
|