F#在元组列表中查找不同的元素

let areTuplesEqual (tuple1: 'a * 'b) (tuple2: 'a * 'b) =
    tuple1 = tuple2

let rec findDifferentElement (tuples: ('a * 'b) list) =
    match tuples with
    | [] -> None
    | x::xs -> if List.exists (areTuplesEqual x) xs then findDifferentElement xs else Some x

let tuples = [(1, 2); (3, 4); (5, 6); (7, 8); (9, 10)]
match findDifferentElement tuples with
| Some x -> printfn "找到了不同的元素：%A" x
| None -> printfn "没有找到不同的元素"