2010-09-16から1日間の記事一覧
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…
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…