[OCaml] 리스트 형식대로 리스트 출력하기

리스트 형식대로 리스트 출력하기

let print_list f lst =
  let rec print_elements = function
    | [] -> ()
    | h::t -> f h; print_string " ; "; print_elements t
  in
  (print_string " [ ";
  print_elements lst;
  print_string " ] "
)

리스트 형식대로 문자열 생성

let to_string_list lst =
  let rec print_elements = function
    | [] -> ""
    | h::t -> h ^ " ; " ^ (print_elements t)
  in
  ("[ " ^ print_elements lst ^ " ]" )