f# 将二维数组展平为一维数组

Question

如何通过将每一行附加到上面的行来将二维数组展平为一维数组？

我的问题是不明白如何使用 map 来做到这一点，因为其他函数式语言有一个 flatmap/(在此处插入类似的名称)函数来做到这一点。

let colors = Array2D.init 800 480 (fun i j -> 
    if i % 3 = 0 || j % 3 = 0 then Color.Black
    else Color.Red)
let data = colors |> map (fun c -> c)

我将如何使用 map 以便将 map 的返回类型更改为一维数组？

Answer 1

对于序列使用 Seq.fold + Seq.append + empty Seq

let seq2d = seq {yield seq{1..3}; yield seq{4..6} }
seq2d |> Seq.fold Seq.append Seq.empty<int>
//[1; 2; 3; 4; 5; 6;]

甚至只用 Seq.reduce + Seq.append 少打字

seq2d |> Seq.reduce Seq.append
//[1; 2; 3; 4; 5; 6;]

对于列表(但不是序列)，它是 List.reduce + List.append

let list2d = [ [1;2;3]; [4;5] ]
list2d |> List.reduce List.append
//[1; 2; 3; 4; 5]