型の紹介カスタム型の作成レコード構文を使用するフィールド

入門Haskellプログラミング
 楽天ブックス
Yahoo!ショッピング
au PAY マーケット

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT2(型の紹介)、LESSON12(カスタム型の作成)、12.3(レコード構文を使用する)、クイックチェック12-3の解答を求めてみる。

コード

type FirstName = String

type MiddleName = String

type LastName = String

data Name
  = Name FirstName LastName
  | NameWithMiddle FirstName MiddleName LastName

showName :: Name -> String
showName (Name fname lname) = fname ++ " " ++ lname
showName (NameWithMiddle fname mname lname) =
  fname ++ " " ++ mname ++ " " ++ lname

data Sex = Male | Female

data ABOType = A | B | AB | O

data RhType = Pos | Neg

data BloodType = BloodType ABOType RhType

data Patient = Patient
  { name :: Name,
    sex :: Sex,
    age :: Int,
    height :: Int,
    weight :: Int,
    bloodType :: BloodType
  }

jackieSmith :: Patient
jackieSmith =
  Patient
    { name = Name "Jackie" "Smith",
      age = 43,
      sex = Female,
      height = 62,
      weight = 115,
      bloodType = BloodType O Neg
    }

main = do
  print $ showName $ name jackieSmith

入出力結果(Terminal, Zsh)

% runghc sample03.hs 
"Jackie Smith"
%