mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-23 03:48:46 +03:00
6 lines
181 B
Plaintext
6 lines
181 B
Plaintext
onetwos = [1] # twoones
|
|
twoones = [2] # onetwos
|
|
onesytwosy = [ [one, two] | one <- onetwos | two <- twoones ]
|
|
|
|
check6 = onesytwosy @@ [0 .. 3] == [ [1, 2], [2, 1], [1, 2], [2, 1] ]
|