コレクション中に同じ要素を含むか。

FindDuplicate.fs

open System

type Foo = { Field : int }
let random = Random ()

Seq.initInfinite id
//|> Seq.take 50  // 適当に小さな値を入れたら全部違う値になる気がする
|> Seq.map (fun i -> { Field = random.Next (100) })
|> Seq.scan (fun set key -> Set.add key set) Set.empty
|> Seq.windowed 2
|> Seq.exists (function [| x; y |] -> x = y | _ -> failwith "")
|> printfn "%b"