목록 목록 반전

Question

int list list을 취하고 int list list을 반환하지만 각 목록을 되 돌리는 함수를 만들고 싶습니다. 예 :

[[1;2;3];[4;5;6]] -> [[6;5;4];[3;2;1]] 

지금까지 내가 확실히 볼 수없는 뭔가 반환없는 함께 왔어요 기능 :

[[4;5;6];[6;5;4]] 

그것은 다음과 같습니다

let revrev lstOfLst = 
    let revrevInner lst = 
     List.fold (fun rst x -> x::rst) [] lst 
    List.fold (fun rst x -> x::[(revrevInner x)]) [] lstOfLst 

Answer 1

을 내 기능을 다시 읽은 후에, 나는 첫 번째 접음에서 처음 사용하지 않는다는 것을 알아 차렸다. 이 기능은 다음과 같아야합니다

let revrev lstOfLst = 
    let revrevInner lst = 
     List.fold (fun rst x -> x::rst) [] lst 
    List.fold (fun rst x -> (revrevInner x)::rst) [] lstOfLst 

Answer 2

let revRev lstOfLst = 
    List.fold (fun s x -> (List.rev x) :: s) [] lstOfLst