unzip3.fs

let rec unzip3<'a, 'b, 'c> ((A: 'a list), (B: 'b list), (C: 'c list)) (tuples: (('a * 'b * 'c) list)) : ('a list) * ('b list) * ('c list) =
    match tuples with
    | (a: 'a, b: 'b, c: 'c)::tail -> unzip3 (a ++ A, b ++ B, c ++ C) tail
    | [] -> (A, B, C)

let rec unzip3 (A, B, C) tuples =
    match tuples with
    | (a: 'a, b: 'b, c: 'c)::tail -> unzip3 (a :: A, b :: B, c :: C) tail
    | [] -> (A, B, C)