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⋯N 的順序入棧(Heap),然後按B 的順序彈棧.
即,能彈就彈,當所有數都入棧了,且不能再彈,則答案爲”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.