計算機科学のブログ

コンテキストでの型の操作 Monad型クラス 汎用バージョンallFmapM

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

コード

lesson/app/Main.hs

module Main (main) where

import Lib
  ( allFmapM,
  )

maybeNums :: [Maybe Int]
maybeNums = [Just 10, Nothing]

nums :: [Int]
nums = [1 .. 5]

main :: IO ()
main = do
  mapM_
    (print . allFmapM (* 2))
    maybeNums
  mapM_
    (print . allFmapM show)
    maybeNums
  print $ allFmapM (* 2) nums
  print $ allFmapM show nums

lesson/src/Lib.hs

module Lib
  ( allFmapM,
  )
where

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

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
Just 20
Nothing
Just "10"
Nothing
[2,4,6,8,10]
["1","2","3","4","5"]
%