Haskell - コンテキストでの型の操作 - Functor型クラス - fmap関数、Box型、wrap関数、unwrap関数
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT5(コンテキストでの型の操作)、LESSON 27(Functor型クラス)、27.5(練習問題)Q27-2の解答を求めてみる。
コード
sample.hs
main :: IO ()
main = do
print myBox
print wrapped
print $ unwrap wrapped
data Box a = Box a deriving (Show)
instance Functor Box where
fmap :: (a -> b) -> Box a -> Box b
fmap func (Box x) = Box $ func x
myBox :: Box Int
myBox = Box 1
wrapped :: Box (Box Int)
wrapped = fmap Box myBox
unwrap :: Box (Box a) -> Box a
unwrap (Box x) = x
入出力結果(Terminal, Zsh)
% runghc sample.hs
Box 1
Box (Box 1)
Box 1
%