doばっかりつかってます。 うまく書けるようになると気持ち良さそうだ。 http://d.hatena.ne.jp/ha-tan/20070102 ここにあるのを参考にさせてもらった (流用した) ただこれはおそらく Cinnamon/Ucs.hs の ucs4CharToUtf8Chars で UCS-4 range (hex.) UTF-8 octet sequence (binary) 0000 0000-0000 007F 0xxxxxxxの部分の変換がおかしい気がする という事でHaskellはじめたばっかりで全然効率的ではない方法で直してみる ucs4CharToUtf8Chars :: Char -> [Char] ucs4CharToUtf8Chars c ---- v--fix By INA | c' <= 0x0000007f = map chr $ marks 0x0