計算機科学のブログ

HaskellのI/O テキストとUnicodeの操作 遅延I/Oのプログラム、Data.Text.Lazyモジュール、Data.Text.Lazy.IOモジュール、unpack関数、lines関数、getContents関数

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON 23(テキストとUnicodeの操作)、23.6(練習問題)Q23-2の解答を求めてみる。

コード

import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as TIO

toInts :: T.Text -> [Int]
toInts = map (read . T.unpack) . T.lines

main :: IO ()
main = do
    userInput <- TIO.getContents 
    let numbers = toInts userInput
    print (sum numbers)

入出力結果(Terminal, Zsh)

% runghc sample2.hs 
1
2
3
4
5
6
7
8
9
10
55
% runghc sample2.hs
a
sample2.hs: Prelude.read: no parse
%