6 lines
93 B
Text
6 lines
93 B
Text
|
(
|
||
|
|
"(?i)[A-M]|([N-Z])"
|
||
|
|
(-> '== (-13) (13) if nip swap ord + chr)
|
||
|
|
replace-apply
|
||
|
|
) ^rot13
|