UTF-8 encode and decode: Difference between revisions

=={{header|BaCon}}==

BaCon supports UTF8 natively.

<lang bacon>DECLARE x TYPE STRING

CONST letter$ = "A ö Ж € 𝄞"

PRINT "Char", TAB$(1), "Unicode", TAB$(2), "UTF-8 (hex)"

PRINT "-----------------------------------"

FOR x IN letter$

PRINT x, TAB$(1), "U+", HEX$(UCS(x)), TAB$(2), COIL$(LEN(x), HEX$(x[_-1] & 255))

NEXT</lang>

{{out}}

<pre>Char Unicode UTF-8 (hex)

-----------------------------------

A U+41 41

ö U+F6 C3 B6

Ж U+416 D0 96

€ U+20AC E2 82 AC

𝄞 U+1D11E F0 9D 84 9E</pre>