在Ocaml中打印用户定义的类型

type person = {
  name: string;
  age: int;
  email: string;
}

let print_person (p: person) =
  Printf.printf "Name: %s, Age: %d, Email: %s\n" p.name p.age p.email

let main () =
  let person1 = { name = "Alice"; age = 30; email = "alice@example.com" } in
  print_person person1

let () = main ()

Name: Alice, Age: 30, Email: alice@example.com

type shape =
  | Circle of float
  | Rectangle of float * float

let print_shape (s: shape) =
  match s with
  | Circle r -> Printf.printf "Circle with radius %.2f\n" r
  | Rectangle (w, h) -> Printf.printf "Rectangle with width %.2f and height %.2f\n" w h

let main () =
  let shape1 = Circle 5.0 in
  let shape2 = Rectangle (3.0, 4.0) in
  print_shape shape1;
  print_shape shape2

let () = main ()