昨日作成したUTF-8⇔UTF-16変換関数が，いかにも効率が悪そうな作りだったので，チューニングしてみた。まあ，巨大な文字列を変換する予定はないので，実用的には大差ないと思うけど。 let explode_to_int s = let rec exp i l = if i < 0 then l else exp (i…