Question

I have 4 arrays of different data. For the first array of string, I want to delete the duplicate element and get the results of array of unique tuples with 4 elements.

For example, let’s say the arrays are:

let dupA1 = [| "A"; "B"; "C"; "D"; "A" |]

let dupA2 = [| 1; 2; 3; 4; 1 |]

let dupA3 = [| 1.0M; 2.0M; 3.0M; 4.0M; 1.0M |]

let dupA4 = [| 1L; 2L; 3L; 4L; 1L |]

I want the result to be:

let uniqueArray = [| ("A", 1, 1.0M, 1L); ("B", 2, 2.0M, 2L); ("C", 3, 3.0M, 3L); ("D",4, 4.0M, 4L) |]

Answer 1

let zip4 s1 s2 s3 s4 =
  Seq.map2 (fun (a,b)(c,d) ->a,b,c,d) (Seq.zip s1 s2)(Seq.zip s3 s4)

let uniqueArray = zip4 dupA1 dupA2 dupA3 dupA4 |> Seq.distinct |> Seq.toArray