計算機科学のブログ

コンテキストでの型の操作 Monad型クラス Maybeに対するbind関数の定義、Just、Nothing

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 30(Monad型クラス)、30.5(練習問題)Q30-3の解答を求めてみる。

コード

bind :: Maybe a -> (a -> Maybe b) -> Maybe b
bind (Just x) f = f x
bind Nothing _ = Nothing

halve :: Integer -> Maybe Double
halve n = Just ((fromIntegral n) / 2.0)

main :: IO ()
main = do
    print (bind (Just 1) halve)
    print (bind (Just 2) halve)
    print (bind Nothing halve)

入出力結果(Terminal, Zsh)

% runghc sample3.hs 
Just 0.5
Just 1.0
Nothing
%