これが一部の人にとって非常に簡単になることを願っています。このフォーラムでこの解決策を見つけました:
let rec transpose list = match list with
| [] -> []
| [] :: xss -> transpose xss
| (x::xs) :: xss ->
(x :: List.map List.hd xss) :: transpose (xs :: List.map List.tl xss)
これはリストのリストの転置であり、うまく機能します。
これと同じことが必要ですが、a' list リストを a' list リストに転置する代わりに、int list リストを int list リストに転置します。
皆さん、ありがとうございました!