Cod sursa(job #984891)

Utilizator otnielMercea Otniel otniel Data 15 august 2013 17:42:09
Problema Perle Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.7 kb
#include<iostream>
#include<stdio.h>
using namespace std;
FILE *f,*g;
int t,n,a[10005],i;
int c(int x);
int b(int x)
{if(x>n)
return 0;
if(a[x]==1&&a[x+2]==3)
    return c(x+4);
if(a[x]==2)
    return b(x+1);

}
int c(int x)
{if(x>n)
return 0;
if(a[x]==1&&a[x+1]==2)
    return x+2;
    if(a[x]==2)
        return x;
if(a[x]==3)
{
    int u;
    u=b(x+1);
    if(u)
        return c(x+1);
}
}
int main()
{
    f=fopen("perle.in","r");
    g=fopen("perle.out","w");
fscanf(f,"%ld\n",&t);
while(t--)
{
    fscanf(f,"%ld",&n);
    for(i=1;i<=n;i++)
        fscanf(f,"%ld",&a[i]);
    if(n==1||n==b(1)||n==c(1))
        fprintf(g,"1\n");
    else
        fprintf(g,"0\n");
}

}