計算機科学のブログ

コンテキストでの型の操作 コンテキストとしてのリスト:Applicative型クラスをさらに掘り下げる Maybe、Just、Nothing、pureメソッド、IO

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 29(コンテキストとしてのリスト:Applicative型クラスをさらに掘り下げる)、29.1(Applicative型クラス)のクイックチェック 29-1、pureメソッドのクイックチェック 29-2の解答を求めてみる。

コード

-- クイックチェック 29-1
s1 :: Maybe String
s1 = Just "Hello, "

s2 :: Maybe String
s2 = Just "world!"

s3 :: Maybe String
s3 = Nothing

s4 :: Maybe String 
s4 = (++) <$> s1 <*> s2

s5 :: Maybe String
s5 = (++) <$> s1 <*> s3

-- クイックチェック 29-2
s6 :: IO String
s6 = pure "Hello, World"

s7 = pure "Hello, World!" :: IO String

main :: IO ()
main = do
    putStrLn "クイックチェック 29-1"
    mapM_ print [s1, s2, s3, s4, s5]
    putStrLn "クイックチェック 29-2"
    s <- s6
    print s
    s <- s7
    print s

入出力結果(Terminal, Zsh)

% runghc sample01.hs
クイックチェック 29-1
Just "Hello, "
Just "world!"
Nothing
Just "Hello, world!"
Nothing
クイックチェック 29-2
"Hello, World"
"Hello, World!"
%