如何在Ocaml中转置矩阵

let create_matrix rows cols =
  Array.init rows (fun _ -> Array.make cols 0)

let transpose_matrix matrix =
  let rows = Array.length matrix in
  let cols = Array.length matrix.(0) in
  let transposed = create_matrix cols rows in
  for i = 0 to rows - 1 do
    for j = 0 to cols - 1 do
      transposed.(j).(i) <- matrix.(i).(j)
    done
  done;
  transposed

let print_matrix matrix =
  let rows = Array.length matrix in
  let cols = Array.length matrix.(0) in
  for i = 0 to rows - 1 do
    for j = 0 to cols - 1 do
      print_int matrix.(i).(j);
      print_string " "
    done;
    print_newline ()
  done

let create_matrix rows cols =
  Array.init rows (fun _ -> Array.make cols 0)

let transpose_matrix matrix =
  let rows = Array.length matrix in
  let cols = Array.length matrix.(0) in
  let transposed = create_matrix cols rows in
  for i = 0 to rows - 1 do
    for j = 0 to cols - 1 do
      transposed.(j).(i) <- matrix.(i).(j)
    done
  done;
  transposed

let print_matrix matrix =
  let rows = Array.length matrix in
  let cols = Array.length matrix.(0) in
  for i = 0 to rows - 1 do
    for j = 0 to cols - 1 do
      print_int matrix.(i).(j);
      print_string " "
    done;
    print_newline ()
  done

let () =
  let matrix = create_matrix 3 4 in
  matrix.(0) <- [|1; 2; 3; 4|];
  matrix.(1) <- [|5; 6; 7; 8|];
  matrix.(2) <- [|9; 10; 11; 12|];
  let transposed = transpose_matrix matrix in
  print_matrix transposed

1 5 9
2 6 10
3 7 11
4 8 12