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