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