8 lines
160 B
Text
8 lines
160 B
Text
Rot13[s_] := StringReplace[
|
|
s,
|
|
# -> RotateLeft[#, 13] & @* CharacterRange @@ # &[
|
|
{"a", "z"}, {"A", "Z"}
|
|
] // Thread
|
|
]
|
|
Rot13["Hello World!"]
|
|
Rot13[%]
|