RosettaCodeData/Task/Rot-13/Min/rot-13.min

6 lines
93 B
Plaintext

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