mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-17 13:01:31 +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
|
||
|
|
]
|
||
|
|
|