計算機科学のブログ

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

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

コード

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

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

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

main :: IO ()
main = do
  readAndPrintDouble

入出力結果(Terminal, Zsh)

% runghc sample03.hs 
1
2
% runghc sample03.hs
-1
-2
% runghc sample03.hs
10
20
% runghc sample03.hs
a
sample03.hs: Prelude.read: no parse
%