如何在OCAML中编写函数，如果两个输入列表是变形词，则返回“true

let rec same_elements list1 list2 =
  match list1 with
  | [] -> true
  | hd :: tl ->
    if List.mem hd list2 then
      same_elements tl (List.filter (fun x -> x <> hd) list2)
    else
      false

let is_anagram list1 list2 =
  if List.length list1 <> List.length list2 then
    false
  else
    same_elements list1 list2

let result = is_anagram [1; 2; 3] [3; 2; 1] (* 调用is_anagram函数 *)

if result then
  print_endline "这两个列表是变形词"
else
  print_endline "这两个列表不是变形词"