September 17th 模拟赛C T1 铁轨 Solution

空降题目处(外网)
点我点我点我
空降题目处(内网)
点我点我点我

Description

在PopPush城有一个著名的，建于上世纪的火车站，车站的铁路如图所示，

每辆车都从A方向驶入，再从B方向驶出，同时他的车厢可以进行某种形式的重新组合。假设从A方向驶来的火车有N节车厢（N≤1000），分别按顺序编号为1,2,3…N。负责车厢调度的工作人员需要知道能否使它以a1,a2,a3…an的顺序从B方向驶出。请你给他写一个程序，用来判断是否能得到指定的车厢顺序。假定在进入车站之前每节车厢之间都是不连着的，并且他们可以自行移动，直到处在B方向的铁轨上。另外假定车站里可以停放任意多节的车厢。但是一旦一节车厢进入车站，他就不能再回到A方向的铁轨上了，并且一旦他进入B方向的铁轨后，他就不能再回到车站.

Input

输入文件包含很多段，每一段是很多行。除了最后一段外，每一段都定义了一辆火车及很多所需要的重组顺序。每一段的第一行是上面所说的整数N，接下来的每一行都包含N个整数，每个表示要求的驶出顺序，每段的最后一行是数字0，数据保证不会有超过10次询问。最后一段只包含数字0.

Output

输出文件中的每一行都和输入文件中的一个描述置换的行相对应，并且用Yes表示可以把它们编排成所需的顺序，否则用No表示。另外，用一个空行表示输入文件的对应短的结束。输入文件中最后的空段不需要在输出文件中有内容相对应。

Solution

初一同学(滑稽)的听不是很懂,讲讲自己的.
简化一下题目,就是按$1\cdots N$的顺序入栈(Heap),然后按 B <script type="math/tex" id="MathJax-Element-66">B</script>的顺序弹栈.
即,能弹就弹,当所有数都入栈了,且不能再弹,则答案为”No”,否则为”Yes”.

Code

C++

#include<fstream>
#include<cstdio>
#include<cstring>
#include<cmath>
using namespace std;

int n,x[1001],y[1001];

int main()
{
    freopen("init.in","r",stdin);
    while (true)
    {
        scanf("%d",&n);
        if (n==0) 
            break;
        while (true)
        {
            x[0]=1;
            y[0]=0;
            scanf("%d",&x[1]);
            if (x[1]==0)
                break;
            for (int i=2;i<=n;i++)
                scanf("%d",&x[i]);
            for (int i=1;i<=n;i++)
            {
                y[++y[0]]=i;
                while ((y[y[0]]==x[x[0]])&&(x[0]<=n))
                {
                    y[0]--;
                    x[0]++;
                }
            }
            if (y[0]==0)
                printf("Yes\n");
            else
                printf("No\n");
        }
        printf("\n");
    }
}

Pascal

var
        a,i,j,k,n,m,h,t,last:longint;
        mark:boolean;
        d,bz:array[1..2000]of longint;
begin
        //assign(input,'rails.in');reset(input);
        //assign(output,'rails.out');rewrite(output);
        repeat
                readln(n);
                if n=0 then break;
                last:=1;
                repeat
                        mark:=true;
                        read(a);
                        if a=0 then break;
                        for i:=1 to n do bz[i]:=1;
                        t:=0;
                        for i:=1 to a-1 do
                        begin
                                bz[i]:=2;
                                inc(t);
                                d[t]:=i;
                        end;
                        bz[a]:=3;
                        last:=a;
                        for i:=2 to n do
                        begin
                                read(a);
                                if bz[a]=1 then
                                begin
                                        for j:=last+1 to a-1 do
                                        begin
                                                bz[j]:=2;
                                                inc(t);
                                                d[t]:=j;
                                        end;
                                        bz[a]:=3;
                                        last:=a;
                                end
                                else
                                begin
                                        if d[t]=a then
                                        begin
                                                bz[a]:=3;
                                                dec(t);
                                        end
                                        else
                                        begin
                                                mark:=false;
                                                break;
                                        end;
                                end;
                        end;
                        if mark then writeln('Yes') else writeln('No');
                        readln;
                until 0<>0;
                writeln;
        until 5<>5;
        //close(input);close(output);
end.