2012-02-01から1ヶ月間の記事一覧
import Data.Text import qualified Data.Text.IO as TI import Cinnamon.Ucs (ucs4ToSjis) -- pack :: String -> Text txt = pack "日本語" kana = pack "にほんご" main = do putStrLn $ ucs4ToSjis "日本語" -- > 日本語 putStrLn $ ucs4ToSjis $ unpack …
import Data.Text import qualified Data.Text.IO as TI import Cinnamon.Ucs (ucs4ToSjis) -- pack :: String -> Text txt = pack "日本語" kana = pack "にほんご" main = do putStrLn $ ucs4ToSjis "日本語" -- > 日本語 putStrLn $ ucs4ToSjis $ unpack …
