chuyển đổi danh sách các danh sách

Question

Tôi đang cố gắng thực hiện chức năng đệ quy để chuyển danh sách danh sách, n x p thành p x n. Nhưng tôi không thể làm như vậy. Tôi đã có thể để thực hiện một chức năng để transpose một danh sách 3 x n của danh sách này để một n x 3 một:

let rec drop1 list= 
    [(match (List.nth list 0) with [] -> [] | a::b -> b); 
    (match (List.nth list 1) with [] -> [] | a::b -> b); 
    (match (List.nth list 2) with [] -> [] | a::b -> b);] 

let rec transpose list= 
    if List.length (List.nth list 0) == 0 then [] 
    else [(match (List.nth list 0) with [] -> 0 | a::b -> a); 
      (match (List.nth list 1) with [] -> 0 | a::b -> a); 
      (match (List.nth list 2) with [] -> 0 | a::b -> a)] 
     :: transpose (drop1 list) 

Nhưng tôi không thể khái quát nó. Tôi chắc chắn đang suy nghĩ sai hướng. Đây có phải là khái quát? Có giải pháp nào tốt hơn không? Hãy giúp tôi.

Answer 1

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)