seiseki.ml

(* string * string -> string *)
let seiseki name_seiseki_pair =
  match name_seiseki_pair with
  (n, s) -> n ^ "さんの評価は" ^ s ^ "です"

let seiseki1 = seiseki ("カネハラ", "最悪") = "カネハラさんの評価は最悪です"
let seiseki2 = seiseki ("山田", "最高") = "山田さんの評価は最高です"
let seiseki3 = seiseki ("鈴木", "普通") = "鈴木さんの評価は普通です"