let numberComponents f graph =
    Array.length (f graph)