UVA Euler Circuit（混合图欧拉回路）

题目地址：https://uva.onlinejudge.org/index.php?option=com_onlinejudge&Itemid=8&page=show_problem&problem=1676

思路：若将无向边拆成两条有向边，则意味着经过该边正反各一次，所以不能通过拆边解决。

（1）对于一有向图，若存在欧拉回路，则满足任意点的入度等于出度。而对于每一条无向边，无论方向如何改变必定不改变度的总的奇偶性，所以将所有无向边任意定向，求此时图中所有点的入度与出度，若入度与出度之差为奇数则此时必不存在欧拉回路（要求入度等于出度，则总度数为偶数）。

（2）对于所有有向边，由于其方向已定，不能通过改变有向边改变度。所以，仅考虑无向边，若能调整无向边的方向，使得所有点的入度等于出度，则此时即存在欧拉回路。对于一个点，若其入度为in[i]，出度为out[i]，则只需将出度增加(in[i]-out[i])/2，变为(in[i]+out[i])/2（总度数不变为(in[i]+out[i])/2，相应入度改变）即可使得入度等于出度。

（3）若将一条边u->v改为v->u则相应的u的出度减一，v的出度加一。相当于将一出度从u运输到了v。也即对于out[i]>in[i]的点，提供出度；对于in[i]>out[i]的点需要出度。所以可靠虑网络流求解，设置一源点s，一汇点t。

（4）对于任意定向的无向边：若将边u->v反向则u出度减少，即相当于运出出度。当out[i]>in[i]时，建边s->i，容量为(out[i]-in[i])/2。v的出度增加，相当于运入出度。当in[i]>out[i]时，建边i->t，容量为(in[i]-out[i])/2。对于定向后的无向边u->v，建边u->v，容量为1，相当于将改变改变方向（即通过该边运输出度）。

（5）求该网络的最大流，若未满流则不存在欧拉回路（无法通过改变无向边使得任意点入度等于出度）。若满流则存在欧拉回路，则若边u->v流量不为0（非0即1），则代表该边方向与初始方向相反。所以，建立新图，将所有初始的有向边加入，将所有流量非0的边反向加入，所有流量为0的边按原方向加入。则原混合图此时转化为一有向图，使用Fleury（弗洛莱）算法求解该有向图的欧拉回路即可，注意求出来的点的顺序为逆序。

#include<cstdio>
#include<queue>
#include<vector>
#include<cstring>
#include<iostream>
#include<algorithm>
#define debu
using  namespace std;
const int maxn=200+50;
const int maxm=500+50;
const int INF=0x3f3f3f3f;
struct Edge
{
    int from, to, cap, flow;
    Edge(int a,int b,int c,int d):from(a),to(b),cap(c),flow(d) {}
};
struct Node
{
    int to,next,vis;
};
struct Dinic
{
    int n, m, s, t;
    vector<Edge> edges;
    vector<int> G[maxn];
    bool vis[maxn];
    int d[maxn];
    int cur[maxn];
    void init(int n)
    {
        this->n=n;
        for(int i = 0; i < n; i++) G[i].clear();
        edges.clear();
    }
    void addedge(int from, int to, int cap)
    {
        edges.push_back(Edge(from,to,cap,0));
        edges.push_back(Edge(to,from,0,0));
        m = edges.size();
        G[from].push_back(m-2);
        G[to].push_back(m-1);
    }
    bool BFS()
    {
        memset(vis, 0, sizeof(vis));
        queue<int> Q;
        Q.push(s);
        vis[s] = 1;
        d[s] = 0;
        while(!Q.empty())
        {
            int x = Q.front();
            Q.pop();
            for(int i = 0; i < G[x].size(); i++)
            {
                Edge& e = edges[G[x][i]];
                if(!vis[e.to] && e.cap > e.flow)
                {
                    vis[e.to] = 1;
                    d[e.to] = d[x] + 1;
                    Q.push(e.to);
                }
            }
        }
        return vis[t];
    }
    int DFS(int x, int a)
    {
        if(x == t || a == 0) return a;
        int flow = 0, f;
        for(int& i = cur[x]; i < G[x].size(); i++)
        {
            Edge& e = edges[G[x][i]];
            if(d[x] + 1 == d[e.to] && (f = DFS(e.to, min(a, e.cap-e.flow))) > 0)
            {
                e.flow += f;
                edges[G[x][i]^1].flow -= f;
                flow += f;
                a -= f;
                if(a == 0) break;
            }
        }
        return flow;
    }
    int Maxflow(int s, int t)
    {
        this->s = s;
        this->t = t;
        int flow = 0;
        while(BFS())
        {
            memset(cur, 0, sizeof(cur));
            flow += DFS(s, INF);
        }
        return flow;
    }
};
Dinic g;
int n,m,tot;
vector<int> ans;
int head[maxn];
vector<int> num;
Node edge[maxm];
int in[maxn],out[maxn];
void addEdge(int u,int v)
{
    edge[tot].to=v,edge[tot].next=head[u];
    edge[tot].vis=0,head[u]=tot++;
}
void init()
{
    ans.clear();
    tot=0,num.clear();
    memset(in,0,sizeof(in));
    memset(out,0,sizeof(out));
    memset(head,-1,sizeof(head));
}
void findEuler(int u)
{
    for(int i=head[u]; ~i; i=edge[i].next)
    {
        if(edge[i].vis==0)
        {
            edge[i].vis=1;
            findEuler(edge[i].to);
        }
    }
    ans.push_back(u);
}
int main()
{
#ifdef debug
    freopen("in.in","r",stdin);
#endif // debug
    int t,cas=0;
    scanf("%d",&t);
    while(t--)
    {
        cas++;
        if(cas!=1) printf("\n");
        init();
        scanf("%d%d",&n,&m);
        g.init(n+2);
        for(int i=0; i<m; i++)
        {
            int x,y;
            char ch;
            scanf("%d%d %c",&x,&y,&ch);
            in[y]++,out[x]++;
            if(ch=='U')
            {
                g.addedge(x,y,1);
                num.push_back(g.m-2);
            }
            else
            {
                addEdge(x,y);
            }
        }
        int flag=1;
        for(int i=1; i<=n; i++)
        {
            if((in[i]+out[i])&1)
            {
                flag=0;
                break;
            }
        }
        if(!flag) printf("No euler circuit exist\n");
        else
        {
            for(int i=1; i<=n; i++)
            {
                if(in[i]<out[i])
                {
                    g.addedge(0,i,(out[i]-in[i])/2);
                }
                else if(in[i]>out[i])
                {
                    g.addedge(i,n+1,(in[i]-out[i])/2);
                }
            }
            g.Maxflow(0,n+1);
            for(int i=0; i<g.G[0].size(); i++)
            {
                Edge &e=g.edges[g.G[0][i]];
                if(e.cap>0&&e.cap>e.flow)
                {
                    flag=0;
                    break;
                }
            }
            if(!flag) printf("No euler circuit exist\n");
            else
            {
                for(int i=0; i<num.size(); i++)
                {
                    Edge &e=g.edges[num[i]];
                    if(e.flow>0)
                    {
                        addEdge(e.to,e.from);
                    }
                    else
                    {
                        addEdge(e.from,e.to);
                    }
                }
                findEuler(1);
                for(int i=ans.size()-1; i>=0; i--)
                {
                    if(i==ans.size()-1) printf("%d",ans[i]);
                    else printf(" %d",ans[i]);
                }
                printf("\n");
            }
        }
    }
    return 0;
}