listelerin bir listesini aktarma

Question

Listeler listesinin, n x p öğesinin p x n'a dönüştürülmesini sağlamak için özyinelemeli bir işlev yapmaya çalışıyorum. Ama bunu yapamam. Bir n x 3 bire listelerin bir 3 x n listesini devrik için bir işlev yapmak mümkün oldum:

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) 

Ama bunu genellemek mümkün değilim. Kesinlikle yanlış yönde düşünüyorum. Bu genelleştirilebilir mi? Daha iyi bir çözüm var mı? Lütfen yardım et.

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)