計算機科学のブログ

コンテキストでの型の操作 Functor型クラス Functorはいつもそばにいる RobotPartのリストをHTMLのリストに変換する <$>演算子

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON27(Functor型クラス)、27.3(Functorはいつもそばにいる)、RobotPartのリストをHTMLのリストに変換する、クイックチェック 27-3の解答を求めてみる。

コード

import qualified Data.Map as Map

data RobotPart = RobotPart {} deriving (Show)

leftArm :: RobotPart
leftArm = RobotPart {}

rightArm :: RobotPart
rightArm = RobotPart {}

robotHead :: RobotPart
robotHead = RobotPart {}

partsDB :: Map.Map Integer RobotPart
partsDB =
  let keys = [1 .. 3]
      vals = [leftArm, rightArm, robotHead]
      keyVals = zip keys vals
   in Map.fromList keyVals

allParts :: [RobotPart]
allParts = snd <$> Map.toList partsDB

main :: IO ()
main = do
  print allParts

入出力結果(Terminal, Zsh)

% runghc sample03.hs 
[RobotPart,RobotPart,RobotPart]
%