本に関するレコード型 book_t

book_t.ml

(* 目的: 本に関するレコード型 book_t を宣言する *)
type book_t = {
  title : string;
  author : string;
  publisher : string;
  price : int;
  isbn : string;
}

let book1 = {
  title     = "すごいErlangゆかいに学ぼう！";
  author    = "Fred Hebert";
  publisher = "オーム社";
  price     = 3800;
  isbn      = "ISBN978-4-274-06912-3";
}

let book2 = {
  title     = "３分間ネットワーク基礎講座";
  author    = "編野衛二";
  publisher = "技術評論社";
  price     = 1780;
  isbn      = "ISBN978-4-7741-3279-2";
}

let book3 = {
  title     = "プログラミングの基礎";
  author    = "浅井健一";
  publisher = "サイエンス社";
  price     = 2300;
  isbn      = "ISBN978-4-7819-1160-1";
}