コンテキストでの型の操作 Functor型クラス インスタンス、fmap関数
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON27(Functor型クラス)、27.5(練習問題)Q27-1の解答を求めてみる。
コード
data Box a = Box a deriving (Show)
instance Functor Box where
fmap f (Box x) = Box $ f x
morePresents :: Int -> Box a -> Box [a]
morePresents n = fmap $ replicate n
b :: Box Integer
b = Box 10
b1 :: Box Integer
b1 = fmap (* 2) b
b2 :: Box Integer
b2 = (+ 2) <$> b
b3 :: Box [Integer]
b3 = morePresents 5 b
bs :: [Box Integer]
bs = [b, b1, b2]
main :: IO ()
main = do
mapM_ print bs
print b3
入出力結果(Terminal, Zsh)
% runghc sample1.hs
Box 10
Box 20
Box 12
Box [10,10,10,10,10]
%