如何在OCaml中创建一个字典，将第一个列表中的每个元素与第二个列表中出现的元素的数量相关联？

open Hashtbl

let create_dictionary list1 list2 =
  let dictionary = Hashtbl.create (List.length list2) in
  let count_elements = Hashtbl.create (List.length list2) in
  
  (* 统计第二个列表中每个元素的数量 *)
  List.iter (fun x -> 
    let count = try Hashtbl.find count_elements x with Not_found -> 0 in
    Hashtbl.replace count_elements x (count + 1)
  ) list2;
  
  (* 将第一个列表中的每个元素与数量相关联 *)
  List.iter (fun x ->
    let count = try Hashtbl.find count_elements x with Not_found -> 0 in
    Hashtbl.add dictionary x count
  ) list1;
  
  dictionary

let list1 = ["a"; "b"; "c"; "a"; "b"]
let list2 = ["a"; "b"; "c"; "c"]

let dictionary = create_dictionary list1 list2

Hashtbl.iter (fun key value ->
  Printf.printf "%s: %d\n" key value
) dictionary

a: 2
b: 2
c: 2