mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-09-23 11:58:47 +03:00
11 lines
325 B
Plaintext
11 lines
325 B
Plaintext
type Permutation = String 26
|
|
|
|
invSubst : (String 26, Char) -> Char
|
|
invSubst (key, c) = candidates ! 0
|
|
where candidates = [0] # [ if c == k then a else p
|
|
| k <- key
|
|
| a <- ['A' .. 'Z']
|
|
| p <- candidates
|
|
]
|
|
|