Cod sursa(job #989799)

Utilizator vladvaldezVlad Dimulescu vladvaldez Data 26 august 2013 15:11:13
Problema Perle Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include <stdio.h>

using namespace std;
FILE *f=fopen("perle.in","r");
FILE *g=fopen("perle.out","w");

void perlab();
void perlac();
int v[12000],k,m,n,ok,i,j,c;

void perlab()
{
if (v[k]==2){k++;perlab();}
else if (v[k]==1&&v[k+2]==3){k+=4;perlac();}
else perlac();
}

void perlac()
{
if (v[k]==2 && k==m)ok=1;
else if (v[k]==1 && v[k+1]==2 && k+2==m)ok=1;
else if (v[k]==3){perlab();perlac();}
}



int main()
{
fscanf(f,"%d",&n);
for(i=1;i<=n;i++)
{
ok=0;
  fscanf(f,"%d",&m);
  for(j=1;j<=m;j++)fscanf(f,"%d",&v[j]);

k=1;
if (m!=1)perlab();
if (m==1)ok=1;
if (ok==1)fprintf(g,"%d\n",1);
else fprintf(g,"%d\n",0);
}

fclose(g);
return 0;
}