mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-12-16 11:22:33 +03:00
4 lines
140 B
Plaintext
4 lines
140 B
Plaintext
|
let mapping = ['A' .. 'Z'] <<< 13
|
||
|
|
let mapped c = if (('A' <= c) && (c <= 'Z')) then (mapping @ (c - 'A')) else c
|
||
|
|
:sat \x -> mapped x == 'N'
|