let averageComponents f graph = let c = f graph in let sum = Array.fold_left (fun acc i -> acc + List.length i ) 0 c in (float_of_int sum /. float_of_int (Array.length c))