list - 反转列表列表

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

再次阅读我的函数后，我注意到我没有在第一次折叠中使用 rst 。该函数应如下所示:

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