HaskellのI/O コマンドラインの操作と遅延I/O コマンドラインの操作:遅延評価を使用する方法問題を遅延リストとして考える 2乗の総和

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON 22(コマンドラインの操作と遅延I/O)、22.2(コマンドラインの操作:遅延評価を使用する方法)、問題を遅延リストとして考える、クイックチェック 22-4の解答を求めてみる。

コード

lesson/app/Main.hs

module Main where

import Lib

main :: IO ()
main = do
  userInput <- getContents
  print $ sum $ squares $ toInts userInput

lesson/src/Lib.hs

module Lib where

toInts :: String -> [Int]
toInts = map read . lines

squares :: [Int] -> [Int]
squares = map (^ 2)

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
1
2
3
4
5
55
%