コンテキストでの型の操作 Functor型クラス Functorはいつもそばにいる RobotPartのリストをHTMLのリストに変換する fmapとmap
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 27(Functor型クラス)、27.3(Functorはいつもそばにいる)、RobotPartのリストをHTMLのリストに変換するのクイックチェック27-3の解答を求めてみる。
コード
import qualified Data.Map as Map
data RobotPart = RobotPart { name :: String } deriving Show
leftArm :: RobotPart
leftArm = RobotPart { name = "left arm"}
rightArm :: RobotPart
rightArm = RobotPart { name = "right arm"}
partsDB :: Map.Map Int RobotPart
partsDB =
let keys = [1, 2]
vals = [leftArm, rightArm]
keyVals = zip keys vals
in Map.fromList keyVals
allParts :: [RobotPart]
allParts = snd <$> Map.toList partsDB
main :: IO ()
main = do
print allParts
mapM_ print allParts
入出力結果(Terminal, Zsh)
% runghc sample03.hs
[RobotPart {name = "left arm"},RobotPart {name = "right arm"}]
RobotPart {name = "left arm"}
RobotPart {name = "right arm"}
%