Question

Basically I’m looking to take the output of Seq.Windowed which returns a sequence of arrays and turn it into a sequence of tuples

so I want to take this

[[|1;2;3|];[|4;5;6|]]

and turn it into

[(1,2,3);(4,5,6)]

Thanks in advance.

Answer 1

> let x =  [[|1;2;3|];[|4;5;6|]];;

val x : int [] list = [[|1; 2; 3|]; [|4; 5; 6|]]

> let y = [for [|a; b; c|] in x do yield (a, b, c)];;

  let y = [for [|a; b; c|] in x do yield (a, b, c)];;
  ----------------------------^

stdin(6,29): warning FS0025: Incomplete pattern matches on this expression.
For example, the value '[|_; _; _; _|]' may indicate a case not covered by
the pattern(s).

val y : (int * int * int) list = [(1, 2, 3); (4, 5, 6)]

If you can guarantee that all of your arrays have the same shape, you can ignore the warning above. If the warning really bothers you, you can write:

> x |> List.map (function [|a;b;c|] -> a, b, c | _ -> failwith "Invalid array length");;
val it : (int * int * int) list = [(1, 2, 3); (4, 5, 6)]