Haskell - コンテキストでの型の操作 - Monad型クラス - Functorより強力であることの証明
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT5(コンテキストでの型の操作)、LESSON 30(Monad型クラス)、30.5(練習問題)、Q30-1の解答を求めてみる。
コード
sample.hs
main :: IO ()
main = do
print $ allFmapM (+ 1) [1 .. 10]
print $ allFmapM (+ 1) (Just 1)
print $ allFmapM (+ 1) Nothing
allFmapM :: Monad m => (a -> b) -> m a -> m b
allFmapM f x = x >>= (\y -> return (f y))
入出力結果(Terminal, Zsh)
% runghc sample.hs
[2,3,4,5,6,7,8,9,10,11]
Just 2
Nothing
%