mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-15 18:52:13 +03:00
5 lines
123 B
Plaintext
5 lines
123 B
Plaintext
unflatten : {r, w}
|
|
(fin r, 5 * w >= r, fin w)
|
|
=> [r] -> [w][5]
|
|
unflatten p = groupBy`{5}(p # zero)
|