計算機科学のブログ

Haskell - コンテキストでの型の操作 - Functor型クラス - 例:Maybeでの計算

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT5(コンテキストでの型の操作)、LESSON 27(Functor型クラス)、27.1(例:Maybeでの計算) クイックチェック 27-1の解答を求めてみる。

コード

sample1.hs

main :: IO ()
main = do
  mapM_ (\x -> print (x, reverseMaybe x))
    [Just "", Just "a", Just "ab", Just "abcde", Nothing]
reverseMaybe :: Maybe String -> Maybe String
reverseMaybe (Just x) = Just (reverse x)
reverseMaybe Nothing = Nothing

入出力結果(Terminal, Zsh)

% runghc sample1.hs 
(Just "",Just "")
(Just "a",Just "a")
(Just "ab",Just "ba")
(Just "abcde",Just "edcba")
(Nothing,Nothing)
%