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