コンテキストでの型の操作 Functor型クラス Functor、インスタンス、fmap関数
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 27(Functor型クラス)、27.5(練習問題)Q27-1の解答を求めてみる。
コード
lesson/app/Main.hs
module Main where
import Lib
b :: Box String
b = Box "a"
bs :: Box [String]
bs = morePresents 10 b
main :: IO ()
main = do
print b
print bs
lesson/src/Lib.hs
module Lib where
data Box a = Box a deriving (Show)
instance Functor Box where
fmap func (Box a) = Box $ func a
morePresents :: Int -> Box a -> Box [a]
morePresents n = fmap $ replicate n
入出力結果(Terminal, Zsh)
% stack exec lesson-exe
Box "a"
Box ["a","a","a","a","a","a","a","a","a","a"]
%