HaskellのI/O コマンドラインの操作と遅延I/O コマンドラインの操作:遅延評価を使用しない方法 mpMによるreplicateMの実装

入門Haskellプログラミング
 楽天ブックス
Yahoo!ショッピング
au PAY マーケット

開発環境

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

コード

lesson/app/Main.hs

module Main where

import Control.Monad (replicateM)
import Lib

main :: IO ()
main = do
  lines <- myReplicateM 5 getLine
  print lines
  lines <- replicateM 5 getLine
  print lines

lesson/src/Lib.hs

module Lib
  ( myReplicateM,
  )
where

myReplicateM :: Monad m => Int -> m a -> m [a]
myReplicateM n f = mapM (\_ -> f) [1 .. n]

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
1
2
3
4
5
["1","2","3","4","5"]
5
4
3
2
1
["5","4","3","2","1"]
%