計算機科学のブログ

コンテキストでの型の操作 Functor型クラス Box型、fmap関数、unwrap関数

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

コード

lesson/app/Main.hs

module Main where

import Lib
  ( Box (..),
    unwrap,
  )

myBox :: Box Int
myBox = Box 1

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

main :: IO ()
main = do
  print wrapped
  print $ fmap unwrap wrapped

lesson/src/Lib.hs

module Lib
  ( Box (..),
    unwrap,
  )
where

data Box a = Box a deriving (Show)

instance Functor Box where
  fmap func (Box a) = Box $ func a

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

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
Box (Box 1)
Box 1
%