HaskellのI/O バイナリデータの操作 ByteString型とText型、文字数、Data.Text.Encodingモジュール、decodeUtf8関数
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON25(バイナリデータの操作)、25.5(練習問題)Q25-1の解答を求めてみる。
コード
import qualified Data.ByteString as B
import qualified Data.Text as T
import qualified Data.Text.Encoding as E
main :: IO ()
main = do
file <- B.readFile "hello.txt"
putStrLn $ mconcat ["文字数: ", show $ T.length $ E.decodeUtf8 file]
putStrLn $ mconcat ["バイト数: ", show $ B.length file]
入出力結果(Terminal, Zsh)
% cat hello.txt
Hello, world!
こんにちは。% % runghc sample1.hs
文字数: 20
バイト数: 32
%