g <- disjoint_union( make_full_graph(5), make_full_graph(5) )
clu <- components(g)$membership
g <- add_edges(g, c(match(1, clu), match(2, clu)) )
articulation_points(g)
g <- make_graph("krackhardt_kite")
bridges(g)
Run the code above in your browser using DataLab