HaskellのI/O - コマンドラインの操作と遅延I/O - 遅延評価を使用する方法 - 問題を遅延リストとして考える
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT4(HaskellのI/O)、LESSON 22(コマンドラインの操作と遅延I/O)、22.2(コマンドラインの操作:遅延評価を使用する方法)、クイックチェック 22-4の解答を求めてみる。
コード
sample4.hs
main :: IO ()
main = do
userInput <- getContents
let numbers = toInts userInput
print $ sumSquares numbers
toInts :: String -> [Int]
toInts = map read . lines
squares :: [Int] -> [Int]
squares = map (^ 2)
sumSquares :: [Int] -> Int
sumSquares = sum . squares
入出力結果(Terminal, Zsh)
% runghc sample4.hs
1
3
5
7
10
184
%