person_t.ml

type date_t = {
    month : int;
    day : int;
  }
		
type person_t = {
    name : string;
    height : float;
    weight : float;
    birthday : date_t;
    blood : string;
  }

let test_data1 = [
    {
      name = "ishimaru";
      height = 1.73;
      weight = 73.2;
      birthday = { month = 10; day = 8; };
      blood="A";
    };
    {
      name = "tachikawa";
      height = 1.60;
      weight = 59.2;
      birthday = { month = 12; day = 15; };
      blood = "B";
    };
    {
      name = "kanehara";
      height = 1.60;
      weight = 59.2;
      birthday = { month = 12; day = 15; };
      blood = "B";
    };
    {
      name = "kata";
      height = 1.60;
      weight = 59.2;
      birthday = { month = 12; day = 15; };
      blood = "O";
    };
    {
      name = "hidaka";
      height = 1.60;
      weight = 59.2;
      birthday = { month = 12; day = 15; };
      blood = "C";
    };
    {
      name = "shikiuchi";
      height = 1.60;
      weight = 59.2;
      birthday = { month = 12; day = 15; };
      blood = "AB";
    }
  ]