度度熊学队列 Accepts: 958 Submissions: 5545
Time Limit: 3000/1500 MS (Java/Others) Memory Limit: 131072/131072 K (Java/Others)
Problem Description
度度熊正在学习双端队列，他对其翻转和合并产生了很大的兴趣。

初始时有 NN 个空的双端队列（编号为 11 到 NN ），你要支持度度熊的 QQ 次操作。

①11 uu ww valval 在编号为 uu 的队列里加入一个权值为 valval 的元素。（w=0w=0 表示加在最前面，w=1w=1 表示加在最后面）。

②22 uu ww 询问编号为 uu 的队列里的某个元素并删除它。（ w=0w=0 表示询问并操作最前面的元素，w=1w=1 表示最后面）

③33 uu vv ww 把编号为 vv 的队列“接在”编号为 uu 的队列的最后面。w=0w=0 表示顺序接（队列 vv 的开头和队列 uu 的结尾连在一起，队列vv 的结尾作为新队列的结尾）, w=1w=1 表示逆序接（先将队列 vv 翻转，再顺序接在队列 uu 后面）。且该操作完成后，队列 vv 被清空。

Input
有多组数据。

对于每一组数据，第一行读入两个数 NN 和 QQ。

接下来有 QQ 行，每行 33~44 个数，意义如上。

N \leq 150000,Q \leq 400000N≤150000,Q≤400000

1 \leq u,v \leq N,0 \leq w \leq 1,1 \leq val \leq 1000001≤u,v≤N,0≤w≤1,1≤val≤100000

所有数据里 QQ 的和不超过500000500000

Output
对于每组数据的每一个操作②，输出一行表示答案。

注意，如果操作②的队列是空的，就输出-1−1且不执行删除操作。

Sample Input
2 10
1 1 1 23
1 1 0 233
2 1 1
1 2 1 2333
1 2 1 23333
3 1 2 1
2 2 0
2 1 1
2 1 0
2 1 1
Sample Output
Copy
23
-1
2333
233
23333

提示

由于读入过大，C/C++ 选手建议使用读入优化。

一个简单的例子：

void read(int &x){
char ch = getchar();x = 0;
for (; ch < ‘0’ || ch > ‘9’; ch = getchar());
for (; ch >=’0’ && ch <= ‘9’; ch = getchar()) x = x * 10 + ch - ‘0’;
}

题目分析，这个题我们因为每次只对对头元素进行增加和修改，所以只要用双向链表来维护即可
对于翻转的一个序列，我们只要在每次操作前判断一下该链表的方向 也就是 p->next->next ==p或者 p->pre->pre==p 就可

#include <bits/stdc++.h>
using namespace std;
const int maxn=150000+500;
const int mod=1e9+7;
struct node
{
    node* pre;
    node* nxt;
    int val;
};
node* a[maxn];
node* b[maxn];
void init(int n)
{
    for(int i=0; i<=n+1; i++)
    {
        a[i]=(node *)malloc(sizeof(node));
        a[i]->nxt=NULL;
        a[i]->pre=NULL;
    }
    for(int j=0; j<=n+1; j++)
    {
        b[j]=(node *)malloc(sizeof(node));
        b[j]->nxt=NULL;
        b[j]->pre=NULL;
    }
    for(int i=0; i<=n+1; i++)
    {
        a[i]->nxt=b[i];
        b[i]->pre=a[i];
    }

}
void add(int u,int w,int val)
{
    node* tmp;
    tmp=(node*)malloc(sizeof(node));
    tmp->val = val;
    if(w==0)
    {
        if(a[u]->nxt->nxt==a[u])
        {
            a[u]->nxt->nxt=tmp;
        }
        else
        {
            a[u]->nxt->pre=tmp;
        }
        tmp->nxt=a[u]->nxt;
        tmp->pre=a[u];
        a[u]->nxt=tmp;
    }
    if(w==1)
    {
        if(b[u]->pre->pre==b[u])
        {
            b[u]->pre->pre=tmp;
        }
        else
        {
            b[u]->pre->nxt=tmp;
        }
        tmp->pre=b[u]->pre;
        tmp->nxt=b[u];
        b[u]->pre=tmp;
    }
}
int del(int u,int w)
{
    if(w==0)
    {
        if(a[u]->nxt!=b[u])
        {
            int k = a[u]->nxt->val;
            node*p = a[u]->nxt;
            if(a[u]->nxt->nxt==a[u])
            {
                a[u]->nxt = a[u]->nxt->pre;
                if(a[u]->nxt->nxt==p)
                {
                    a[u]->nxt->nxt=a[u];
                }
                else a[u]->nxt->pre=a[u];
            }
            else
            {
                a[u]->nxt=a[u]->nxt->nxt;
                if(a[u]->nxt->nxt==p)
                {
                    a[u]->nxt->nxt=a[u];
                }
                else a[u]->nxt->pre=a[u];
            }
            free(p);
            return k;

        }
        else return -1;
    }
    if(w==1)
    {
        if(b[u]->pre!=a[u])
        {
            int k = b[u]->pre->val;
            node*p = b[u]->pre;
            if(b[u]->pre->pre==b[u])
            {
                b[u]->pre=b[u]->pre->nxt;
                if(b[u]->pre->pre==p)
                b[u]->pre->pre=b[u];
                else b[u]->pre->nxt=b[u];
            }
            else
            {
                b[u]->pre = b[u]->pre->pre;
                if(b[u]->pre->pre==p)
                {
                     b[u]->pre->pre=b[u];
                }
                else b[u]->pre->nxt=b[u];
            }
            free(p);
            return k;
        }
        else return -1;
    }
}
void rev(int u,int v,int w)
{
    if(w==0)
    {
        if(b[u]->pre->pre==b[u])
        {
            b[u]->pre->pre=a[v]->nxt;

        }
        else
        {
            b[u]->pre->nxt = a[v]->nxt;
        }
        if(a[v]->nxt->nxt==a[v])
        {
            a[v]->nxt->nxt = b[u]->pre;
        }
        else
        {
            a[v]->nxt->pre = b[u]->pre;
        }
        if(b[v]->pre->pre==b[v])
        {
            b[v]->pre->pre=b[u];
        }
        else
        {
            b[v]->pre->nxt=b[u];
        }
        b[u]->pre = b[v]->pre;
        a[v]->nxt=b[v];
        b[v]->pre=a[v];
    }
    if(w==1)
    {
        if(b[u]->pre->pre==b[u])
        {
            b[u]->pre->pre =b[v]->pre;
        }
        else
        {
            b[u]->pre->nxt =b[v]->pre;
        }
        if(b[v]->pre->pre==b[v])
        {
            b[v]->pre->pre = b[u]->pre;
        }
        else
        {
            b[v]->pre->nxt = b[u]->pre;
        }
        if( a[v]->nxt->nxt == a[v])
        {
            a[v]->nxt->nxt = b[u];
        }
        else
        {
            a[v]->nxt->pre = b[u];
        }
        b[u]->pre = a[v]->nxt;
        a[v]->nxt=b[v];
        b[v]->pre=a[v];
    }
}
void read(int &x)
{
    char ch = getchar();
    x = 0;
    for (; ch < '0' || ch > '9'; ch = getchar());
    for (; ch >='0' && ch <= '9'; ch = getchar()) x = x * 10 + ch - '0';
}
int main()
{
    int n,q;
    while(~scanf("%d%d",&n,&q))
    {
        init(n);
        int x,u,v,w,val;

        while(q--)
        {
            read(x);
            if(x==1)
            {
                read(u);
                read(w);
                read(val);
                add(u,w,val);
            }
            if(x==2)
            {
                read(u);
                read(w);
                printf("%d\n",del(u,w));
            }
            if(x==3)
            {
                read(u);
                read(v);
                read(w);
                rev(u,v,w);
            }
        }
    }
    return 0;
}