#include <iostream>

#include <vector>

#include <string>

#include <marci_list_graph.hh>

#include <marci_graph_traits.hh>

#include <marci_property_vector.hh>

#include <marci_bfs.hh>

#include <marci_max_flow.hh>

using namespace marci;

int main (int, char*[])

{

  typedef graph_traits<list_graph>::node_iterator node_iterator;

  typedef graph_traits<list_graph>::edge_iterator edge_iterator;

  typedef graph_traits<list_graph>::each_node_iterator each_node_iterator;

  typedef graph_traits<list_graph>::each_edge_iterator each_edge_iterator;

  typedef graph_traits<list_graph>::out_edge_iterator out_edge_iterator;

  typedef graph_traits<list_graph>::in_edge_iterator in_edge_iterator;

  typedef graph_traits<list_graph>::sym_edge_iterator sym_edge_iterator;

  list_graph G;

  std::vector<node_iterator> vector_of_node_iterators;

  for(int i=0; i!=8; ++i) vector_of_node_iterators.push_back(G.add_node());

  for(int i=0; i!=8; ++i)

    for(int j=0; j!=8; ++j) {

      if ((i<j)&&(i+j)%3) G.add_edge(vector_of_node_iterators[i], vector_of_node_iterators[j]);

    }  

  std::cout << "We construct a directed graph on the node set {0,1,2,...,7}," <<std::endl << "i-->j is arc iff i<j and (i+j)%3." << std::endl;

  std::cout << "number of nodes: " << number_of(G.first_node()) << std::endl;

  for(each_node_iterator i=G.first_node(); i.is_valid(); ++i) {

    std::cout << "node " << G.id(i) << std::endl;

    std::cout << " outdegree (out_edge_iterator): " << number_of(G.first_out_edge(i)) << " "; 

    for(out_edge_iterator j=G.first_out_edge(i); j.is_valid(); ++j) { 

      std::cout << "(" << G.id(G.tail(j)) << "--" << G.id(j) << "->" << G.id(G.head(j)) << ") ";

    }

    std::cout << std::endl; 

    std::cout<< " ";

    for(out_edge_iterator j=G.first_out_edge(i); j.is_valid(); ++j) { 

      std::cout << G.a_node(j) << "->" << G.b_node(j) << " "; } 

    std::cout<<std::endl;

    std::cout << " indegree: (in_edge_oterator) " << number_of(G.first_in_edge(i)) << " ";

    for(in_edge_iterator j=G.first_in_edge(i); j.is_valid(); ++j) { 

      std::cout << j << " "; } 

    std::cout << std::endl;

    std::cout<< " ";

    for(in_edge_iterator j=G.first_in_edge(i); j.is_valid(); ++j) { 

      std::cout << G.a_node(j) << "->" << G.b_node(j) << " "; } 

    std::cout<<std::endl;

    std::cout << " degree: (sym_edge_iterator) " << number_of(G.first_sym_edge(i)) << " ";

    for(sym_edge_iterator j=G.first_sym_edge(i); j.is_valid(); ++j) { 

      std::cout << j << " "; } 

    std::cout<<std::endl;

    std::cout<< " ";

    for(sym_edge_iterator j=G.first_sym_edge(i); j.is_valid(); ++j) { 

      std::cout << G.a_node(j) << "->" << G.b_node(j) << " "; } 

    std::cout<<std::endl;

  }

  std::cout << "all edges: ";

  for(each_edge_iterator i=G.first_edge(); i.is_valid(); ++i) {

    std::cout << i << " ";

  }

  std::cout << std::endl;

  std::cout << "node property array test" << std::endl;

  node_property_vector<list_graph, int> my_property_vector(G);

  each_node_iterator v;

  G.get_first(v);

  my_property_vector.put(v, 42);

  my_property_vector.put(++G.first_node(), 314);

  my_property_vector.put(++++G.first_node(), 1956);

  my_property_vector.put(vector_of_node_iterators[3], 1989);

  my_property_vector.put(vector_of_node_iterators[4], 2003);

  my_property_vector.put(vector_of_node_iterators[7], 1978);

  std::cout << "some node property values..." << std::endl;

  for(each_node_iterator i=G.first_node(); i.is_valid(); ++i) {

    std::cout << my_property_vector.get(i) << std::endl;

  }

  int _i=1;

  int _ii=1;

  edge_property_vector<list_graph, int> my_edge_property(G);

  for(each_edge_iterator i=G.first_edge(); i.is_valid(); ++i) {

    my_edge_property.put(i, _i);

    _i*=_ii; ++_ii;

  }

  std::cout << "node and edge property values on the tails and heads of edges..." << std::endl;

  for(each_edge_iterator j=G.first_edge(); j.is_valid(); ++j) {

    std::cout << my_property_vector.get(G.tail(j)) << "--" << my_edge_property.get(j) << "-->" << my_property_vector.get(G.head(j)) << " ";

  }

  std::cout << std::endl;

  //std::cout << "the same for inedges of the nodes..." << std::endl;

  //k=0;

  //for(each_node_iterator i=G.first_node(); i.is_valid(); ++i) {

  //  for(in_edge_iterator j=G.first_in_edge(i); j.is_valid(); ++j) {

  //    std::cout << my_property_vector.get(G.tail(j)) << "-->" << my_property_vector.get(G.head(j)) << " ";

  //  }

  //  std::cout << std::endl;

  //}

  std::cout << "bfs from the first node" << std::endl;

  bfs<list_graph> bfs_test(G, G.first_node());

  bfs_test.run();

  std::cout << "reached: ";

  for(each_node_iterator i=G.first_node(); i.is_valid(); ++i) {

    std::cout << bfs_test.reached.get(i) << " ";

  }

  std::cout<<std::endl;

  std::cout << "dist: ";

  for(each_node_iterator i=G.first_node(); i.is_valid(); ++i) {

    std::cout << bfs_test.dist.get(i) << " ";

  }

  std::cout<<std::endl;

  std::cout << "augmenting path flow algorithm test..." << std::endl;

  list_graph flow_test;

  node_iterator s=flow_test.add_node();

  node_iterator v1=flow_test.add_node();

  node_iterator v2=flow_test.add_node();

  node_iterator v3=flow_test.add_node();

  node_iterator v4=flow_test.add_node();

  node_iterator t=flow_test.add_node();

  node_property_vector<list_graph, std::string> node_name(flow_test);

  node_name.put(s, "s");

  node_name.put(v1, "v1");

  node_name.put(v2, "v2");

  node_name.put(v3, "v3");

  node_name.put(v4, "v4");

  node_name.put(t, "t");

  edge_iterator s_v1=flow_test.add_edge(s, v1);

  edge_iterator s_v2=flow_test.add_edge(s, v2);

  edge_iterator v1_v2=flow_test.add_edge(v1, v2);

  edge_iterator v2_v1=flow_test.add_edge(v2, v1);

  edge_iterator v1_v3=flow_test.add_edge(v1, v3);

  edge_iterator v3_v2=flow_test.add_edge(v3, v2);

  edge_iterator v2_v4=flow_test.add_edge(v2, v4);

  edge_iterator v4_v3=flow_test.add_edge(v4, v3);

  edge_iterator v3_t=flow_test.add_edge(v3, t);

  edge_iterator v4_t=flow_test.add_edge(v4, t);

  edge_property_vector<list_graph, int> cap(flow_test);

  cap.put(s_v1, 16);

  cap.put(s_v2, 13);

  cap.put(v1_v2, 10);

  cap.put(v2_v1, 4);

  cap.put(v1_v3, 12);

  cap.put(v3_v2, 9);

  cap.put(v2_v4, 14);

  cap.put(v4_v3, 7);

  cap.put(v3_t, 20);

  cap.put(v4_t, 4);

  std::cout << "on directed graph graph" << std::endl; //<< flow_test;

  std::cout << "names and capacity values" << std::endl; 

  for(each_node_iterator i=flow_test.first_node(); i.is_valid(); ++i) { 

    std::cout << node_name.get(i) << ": ";

    std::cout << "out edges: ";

    for(out_edge_iterator j=flow_test.first_out_edge(i); j.is_valid(); ++j) 

      std::cout << node_name.get(flow_test.tail(j)) << "-"<< cap.get(j) << "->" << node_name.get(flow_test.head(j)) << " ";

    std::cout << "in edges: ";

    for(in_edge_iterator j=flow_test.first_in_edge(i); j.is_valid(); ++j) 

      std::cout << node_name.get(flow_test.tail(j)) << "-"<< cap.get(j) << "->" << node_name.get(flow_test.head(j)) << " ";

    std::cout << std::endl;

  }

  //for(each_node_iterator i=flow_test.first_node(); i.is_valid(); ++i) { 

  //  std::cout << i << " ";

  //}

  max_flow_type<list_graph, int> max_flow_test(flow_test, s, t, cap);

  max_flow_test.run();

  return 0;

}