双栈排序 2008年NOIP全国联赛提高组(二分图染色)

/*
若不能双栈排序，一定存在冲突
把冲突连边，因为只有两个栈，判断可否二分图染色即可
考虑冲突。若有i<j<k a[k]<a[i]<a[j] 则一定不能单栈排序 
若i<j<k<x 有a[x]<a[i]<a[j]<a[k]则一定不能双栈排序
预处理后缀最小值，把冲突连边即可。 
*/
#include<iostream>
#include<cstdio>
#include<cstring>
#include<cstdlib>
#include<vector>
#include<queue>
#include<stack>

#define N 1007
#define inf 0x3f3f3f3f
#define B 1

using namespace std;
int n,ans,cnt;
int a[N],f[N],col[N],head[N];
stack<int>s1,s2;
struct edge{
    int u,v,net;
}e[N<<1];

inline void add(int u,int v)
{
    e[++cnt].v=v;e[cnt].net=head[u];head[u]=cnt;
}

inline int read()
{
    int x=0,f=1;char c=getchar();
    while(c>‘9‘||c<‘0‘){if(c==‘-‘)f=-1;c=getchar();}
    while(c>=‘0‘&&c<=‘9‘){x=x*10+c-‘0‘;c=getchar();}
    return x*f; 
}

void bfs(int u)
{
    queue<int>q;q.push(u);col[u]=B;
    while(!q.empty())
    {
        int now=q.front();q.pop();
        for(int i=head[now];i;i=e[i].net)
        {
            int v=e[i].v;
            if(col[v]==-1) col[v]=col[now]^1,q.push(v);
            else if(col[v]!=(col[now]^1)){printf("0\n");exit(0);}
        }
    }
}

int main()
{
    memset(col,-1,sizeof col);
    n=read();
    for(int i=1;i<=n;i++) a[i]=read();
    f[n+1]=inf;
    for(int i=n;i>=1;i--) f[i]=min(f[i+1],a[i]);
    for(int i=1;i<=n;i++)
      for(int j=i+1;j<=n;j++)
        if(a[i]>f[j+1] && a[i]<a[j]) add(i,j),add(j,i);
        
    for(int i=1;i<=n;i++) 
      if(col[i]==-1) bfs(i);
    cnt=1;
    for(int i=1;i<=n;i++)
    {
        if(col[i]==B) s1.push(a[i]),printf("a ");
        else s2.push(a[i]),printf("c ");
        while((!s1.empty() && s1.top()==cnt) || (!s2.empty() && s2.top()==cnt))
        {
            if(!s1.empty() && s1.top()==cnt) s1.pop(),printf("b ");
            else s2.pop(),printf("d ");
            ++cnt;
        }
    }
    return 0;
}