Hi All,
I have graph objects like the following:
g = CompleteGraph[2000];
These graph objects are then used further down the road by helper functions that need to assign additional information to each vertex. I currently do this via SetProperty[]:
pairs = {#, ToString[#]} &/@ VertexList[g];
g=Fold[Function[{gr,vcor},SetProperty[{gr,vcor[[1]]},"CustomString"->vcor[[2]]]],g,pairs]
This, as you can see, takes too long to evaluate. Apart from using Replace[] on the InputForm[] of Graph[], is there a 'mult-vertex' syntax for SetProperty[] that I could use here?
Thanks for your time,
-Adam
