/* -*- mode: C++; indent-tabs-mode: nil; -*-

  *

  * This file is a part of LEMON, a generic C++ optimization library.

  *

  * Copyright (C) 2003-2008

  * Egervary Jeno Kombinatorikus Optimalizalasi Kutatocsoport

  * (Egervary Research Group on Combinatorial Optimization, EGRES).

  *

  * Permission to use, modify and distribute this software is granted

  * provided that this copyright notice appears in all copies. For

  * precise terms see the accompanying LICENSE file.

  *

  * This software is provided "AS IS" with no warranty of any kind,

  * express or implied, and with no claim as to its suitability for any

  * purpose.

  *

  */

 #include <iostream>

 #include <set>

 #include <vector>

 #include <iterator>

 #include <lemon/smart_graph.h>

 #include <lemon/min_cost_arborescence.h>

 #include <lemon/lgf_reader.h>

 #include <lemon/concepts/digraph.h>

 #include "test_tools.h"

 using namespace lemon;

 using namespace std;

 const char test_lgf[] =

   "@nodes\n"

   "label\n"

   "0\n"

   "1\n"

   "2\n"

   "3\n"

   "4\n"

   "5\n"

   "6\n"

   "7\n"

   "8\n"

   "9\n"

   "@arcs\n"

   "     label  cost\n"

   "1 8  0      107\n"

   "0 3  1      70\n"

   "2 1  2      46\n"

   "4 1  3      28\n"

   "4 4  4      91\n"

   "3 9  5      76\n"

   "9 8  6      61\n"

   "8 1  7      39\n"

   "9 8  8      74\n"

   "8 0  9      39\n"

   "4 3  10     45\n"

   "2 2  11     34\n"

   "0 1  12     100\n"

   "6 3  13     95\n"

   "4 1  14     22\n"

   "1 1  15     31\n"

   "7 2  16     51\n"

   "2 6  17     29\n"

   "8 3  18     115\n"

   "6 9  19     32\n"

   "1 1  20     60\n"

   "0 3  21     40\n"

   "@attributes\n"

   "source 0\n";

 void checkMinCostArborescenceCompile()

 {

   typedef double VType;

   typedef concepts::Digraph Digraph;

   typedef concepts::ReadMap<Digraph::Arc, VType> CostMap;

   typedef Digraph::Node Node;

   typedef Digraph::Arc Arc;

   typedef concepts::WriteMap<Digraph::Arc, bool> ArbMap;

   typedef concepts::ReadWriteMap<Digraph::Node, Digraph::Arc> PredMap;

   typedef MinCostArborescence<Digraph, CostMap>::

             SetArborescenceMap<ArbMap>::

             SetPredMap<PredMap>::Create MinCostArbType;

   Digraph g;

   Node s, n;

   Arc e;

   VType c;

   bool b;

   ::lemon::ignore_unused_variable_warning(c,b);

   int i;

   CostMap cost;

   ArbMap arb;

   PredMap pred;

   MinCostArbType mcarb_test(g, cost);

   const MinCostArbType& const_mcarb_test = mcarb_test;

   mcarb_test

     .arborescenceMap(arb)

     .predMap(pred)

     .run(s);

   mcarb_test.init();

   mcarb_test.addSource(s);

   mcarb_test.start();

   n = mcarb_test.processNextNode();

   b = const_mcarb_test.emptyQueue();

   i = const_mcarb_test.queueSize();

   c = const_mcarb_test.arborescenceCost();

   b = const_mcarb_test.arborescence(e);

   e = const_mcarb_test.pred(n);

   const MinCostArbType::ArborescenceMap &am =

     const_mcarb_test.arborescenceMap();

   const MinCostArbType::PredMap &pm =

     const_mcarb_test.predMap();

   b = const_mcarb_test.reached(n);

   b = const_mcarb_test.processed(n);

   i = const_mcarb_test.dualNum();

   c = const_mcarb_test.dualValue();

   i = const_mcarb_test.dualSize(i);

   c = const_mcarb_test.dualValue(i);

   ::lemon::ignore_unused_variable_warning(am);

   ::lemon::ignore_unused_variable_warning(pm);

 }

 int main() {

   typedef SmartDigraph Digraph;

   DIGRAPH_TYPEDEFS(Digraph);

   typedef Digraph::ArcMap<double> CostMap;

   Digraph digraph;

   CostMap cost(digraph);

   Node source;

   std::istringstream is(test_lgf);

   digraphReader(digraph, is).

     arcMap("cost", cost).

     node("source", source).run();

   MinCostArborescence<Digraph, CostMap> mca(digraph, cost);

   mca.run(source);

   vector<pair<double, set<Node> > > dualSolution(mca.dualNum());

   for (int i = 0; i < mca.dualNum(); ++i) {

     dualSolution[i].first = mca.dualValue(i);

     for (MinCostArborescence<Digraph, CostMap>::DualIt it(mca, i);

          it != INVALID; ++it) {

       dualSolution[i].second.insert(it);

     }

   }

   for (ArcIt it(digraph); it != INVALID; ++it) {

     if (mca.reached(digraph.source(it))) {

       double sum = 0.0;

       for (int i = 0; i < int(dualSolution.size()); ++i) {

         if (dualSolution[i].second.find(digraph.target(it))

             != dualSolution[i].second.end() &&

             dualSolution[i].second.find(digraph.source(it))

             == dualSolution[i].second.end()) {

           sum += dualSolution[i].first;

         }

       }

       if (mca.arborescence(it)) {

         check(sum == cost[it], "Invalid dual solution");

       }

       check(sum <= cost[it], "Invalid dual solution");

     }

   }

   check(mca.dualValue() == mca.arborescenceCost(), "Invalid dual solution");

   check(mca.reached(source), "Invalid arborescence");

   for (ArcIt a(digraph); a != INVALID; ++a) {

     check(!mca.reached(digraph.source(a)) ||

           mca.reached(digraph.target(a)), "Invalid arborescence");

   }

   for (NodeIt n(digraph); n != INVALID; ++n) {

     if (!mca.reached(n)) continue;

     int cnt = 0;

     for (InArcIt a(digraph, n); a != INVALID; ++a) {

       if (mca.arborescence(a)) {

         check(mca.pred(n) == a, "Invalid arborescence");

         ++cnt;

       }

     }

     check((n == source ? cnt == 0 : cnt == 1), "Invalid arborescence");

   }

   Digraph::ArcMap<bool> arborescence(digraph);

   check(mca.arborescenceCost() ==

         minCostArborescence(digraph, cost, source, arborescence),

         "Wrong result of the function interface");

   return 0;

 }