program

	name hranova_2_souvislost;
	description "Zjisti zda je obecny graf hranove 2-souvisly (neorientona, Nemultigraf)";


var

	Graph graph;
	Edges edges, edge;
	Edges tmp;


procedure main();
do
	writeln(get_error_text(graph load_from_file("D:\\Projects\\Rocnikovy projekt\\070421\\graphs\\Graph3.dat")));

	edges := graph get_edges();

	for each edge from edges
	do
	    tmp := graph get_edges() get_exclude(edge);
	    if !tmp BFS(edge get_nodes_source(), edge get_nodes_destination(), "unoriented") then
	        terminate("Zadany graf neni hranove 2-souvisly");
	enddo

	terminate("Zadany graf je hranove 2-souvisly");
enddo