FIELD NOTES: 書を持って街へ出よう

合同会社フィールドワークス プログラマ兼代表のブログ

2010-09-16から1日間の記事一覧

UTF-8 ⇔ UTF-16 変換関数 (OCaml)

UTF-8とUTF-16の文字列を相互変換する関数を作成した。 リスト処理を贅沢に使っているので,遅いかもしれない。 open ExtString (* UTF-8 → UTF-16BE(BOM付) 変換 *) let utf8_to_utf16be s = let rec loop = function | [] -> [] | ch0 :: rest when (ch0 l…