Venn diagram does not work if there are only overlapping sets

[bvenn]

let actionSet = Set.ofArray [|"a";"b";"c"|]
let comedySet = Set.ofArray [|"b";"c";"d"|]
let dramaSet = Set.ofArray  [|"c";"d";"f"|]

Chart.Venns (
    [|"Action";"Comedy";"Drama"|],
    [|actionSet;comedySet;dramaSet|]
    )
|> Chart.show

This does not work, because comedySet does not contain unique elements.

@joott

[bvenn]

Additionally the intersects seems to be not correctly determined:

let actionSet = Set.ofArray [|"a";"b";"c"|]
let comedySet = Set.ofArray [|"b";"c";"d";"z"|]
let dramaSet = Set.ofArray  [|"c";"d";"f"|]

Chart.Venn (
    [|"Action";"Comedy";"Drama"|],
    [|actionSet;comedySet;dramaSet|]
    )

The assignment to the intersects does not match:

Unique Intersect Action Comedy = "b" = 1
Unique Intersect Action Drama = 0
Unique Intersect Drama Comedy = "d" = 1

Intersect Action Comedy Drama = "c" = 1

Unique Action = "a" = 1
Unique Comedy = "z" = 1
Unique Drama = "f" = 1