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
%