सूचियों की सूची का हस्तांतरण

Question

मैं सूचियों की सूची का हस्तांतरण करने के लिए एक पुनरावर्ती कार्य करने की कोशिश कर रहा हूं, n x p से p x n। लेकिन मैं ऐसा करने में असमर्थ हूं। मैं एक n x 3 एक करने के लिए सूची का एक 3 x n सूची स्थानांतरित करने के लिए एक समारोह बनाने के लिए सक्षम किया गया है:

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) 

लेकिन मैं इसे सामान्य करने में सक्षम नहीं हूँ। मैं निश्चित रूप से गलत दिशा में सोच रहा हूँ। क्या यह सामान्य है? क्या कोई बेहतर समाधान है? कृपया मदद करे।

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)