計算機科学のブログ

コンテキストでの型の操作 Functor型クラス 単純なBox、BoxのBox、値の取得、fmap関数

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

コード

data Box a = Box a deriving Show

instance Functor Box where
    fmap f (Box x) = Box (f x)

unwrap :: Box a -> a
unwrap (Box x) = x

myBox :: Box Int
myBox = Box 1

wrapped :: Box (Box Int)
wrapped = fmap Box myBox

unwrapped :: Box Int
unwrapped = fmap unwrap wrapped

main :: IO ()
main = do
    print myBox
    print wrapped
    print unwrapped

入出力結果(Terminal, Zsh)

% runghc sample2.hs
Box 1
Box (Box 1)
Box 1
%