計算機科学のブログ

コンテキストでの型の操作 Monad型クラス ApplicativeとFunctorの制限 <*>の汎用バージョンのallApp関数の実装

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

コード

allApp :: Monad m => m (a -> b) -> m a -> m b
allApp f x =
  f
    >>= ( \f ->
            x >>= \x -> return $ f x
        )

f :: Maybe (Integer -> Integer)
f = Just (* 2)

main :: IO ()
main = do
  print $ allApp f $ Just 5
  print $ allApp f Nothing

入出力結果(Terminal, Zsh)

% runghc sample2.hs 
Just 10
Nothing
%