2of3.fsx

type Input = A of int | B of int | C of int
type Output = { A: int; B: int; C: int; Text: string }

seq {
    yield (A 5, B 10), "text 1"
    yield (B 5, C 10), "text 2"
    yield (A 5, C 10), "text 3"
}
|> Seq.map (function
    | (A a, B b), text -> { A = a; B = b; C = a * b; Text = text }
    | (B b, C c), text -> { A = b * c; B = b; C = c; Text = text }
    | (A a, C c), text -> { A = a; B = a * c; C = c; Text = text }
    | _ -> failwith "invalid input")
|> List.ofSeq