コンテキストでの型の操作 Monad型クラス (<*>)、汎用バージョンallMap、ラムダ関数
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 30(Monad型クラス)、30.5(練習問題)Q30-2の解答を求めてみる。
コード
lesson/app/Main.hs
module Main (main) where
import Lib
( allApp,
)
main :: IO ()
main = do
mapM_
(print . allApp (Just (* 2)))
[Just 3, Nothing]
lesson/src/Lib.hs
module Lib
( allApp,
)
where
allApp :: Monad m => m (a -> b) -> m a -> m b
allApp maybeF x =
maybeF
>>= ( \f ->
x
>>= (\z -> return $ f z)
)
入出力結果(Terminal, Zsh)
% stack exec lesson-exe
Just 6
Nothing
%