mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 11:22: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])
|