RosettaCodeData/Task/UTF-8-encode-and-decode/Mathematica/utf-8-encode-and-decode.math

3 lines
121 B
Plaintext

utf = ToCharacterCode[ToString["AöЖ€", CharacterEncoding -> "UTF8"]]
ToCharacterCode[FromCharacterCode[utf, "UTF8"]]