FlipLetterCharacter[str_] := StringReplace[
    str,
    MapThread[
        #1 | #2 -> #3 &,
        {
            CharacterRange["A", "Z"],
            CharacterRange["a", "z"],
            {
                             "\:0250", "q", "\:0254", "p", "\:01dd", "\:025f",
                             "\:0183", "\:0265", "\[DotlessI]", "\:027e",
                             "\:029e", "l", "\:026f", "u", "o", "d", "b",
                             "\:0279", "s", "\:0287", "n", "\:028c", "\:028d",
                             "x", "\:028e", "z"
                   }
        }
    ]
]

For example,

In[6]:= FlipLetterCharacter["the quick brown fox jumps over the lazy dog"]
Out[6]= ʇɥǝ bnıɔʞ qɹoʍu ɟox ɾnɯds oʌǝɹ ʇɥǝ lɐzʎ poƃ

This can be used, for example, for showing answers to word games.

blog comments powered by Disqus