let computeInDegree graph = if !_maxindegree <> None then () else begin let (av, mx, h) = degree graph G.pred in _maxindegree := Some(mx); _avgindegree := Some(av); _indata := Some(h); end