cryptol/tests/issues/issue185.cry
2014-04-17 15:34:25 -07:00

4 lines
127 B
Plaintext

group : {perGroup, a, b, c} (fin perGroup, c == perGroup * a)
=> [c]b -> [a][perGroup]b
group xs = split`{each=perGroup}xs