計算機科学のブログ

コンテキストでの型の操作 Monad型クラス bind演算子:>>=

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 30(Monad型クラス)、30.2(bind演算子:»=)、クイックチェック 30-3の解答を求めてみる。

コード

lesson/app/Main.hs

module Main (main) where

import Lib
  ( echoIntDouble,
  )

main :: IO ()
main = echoIntDouble

lesson/src/Lib.hs

module Lib
  ( echoIntDouble,
  )
where

readInt :: IO Int
readInt = read <$> getLine

printDouble :: Int -> IO ()
printDouble n = print $ n * 2

echoIntDouble :: IO ()
echoIntDouble = readInt >>= printDouble

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
1
2
% stack exec lesson-exe
2
4
% stack exec lesson-exe
a
lesson-exe: Prelude.read: no parse
%