Cod sursa(job #715375)

Utilizator BlaugranasEnal Gemaledin Blaugranas Data 17 martie 2012 08:52:08
Problema Secv Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.7 kb
#include<cstdio>
#define N 5001
int a[N],p[N],i,j,k,m,n,b[N],c; 
int main()
{FILE *f=fopen("secv.in","r"),*g=fopen("secv.out","w");
fscanf(f,"%d",&n);
for(i=1;i<=n;i++)
       {fscanf(f,"%d",&a[i]);
       if(a[b[m]]<a[i])
              p[i]=b[m],b[++m]=i;
       for(j=0,k=m;j<k;)
              {c=(j+k)/2;
              if(a[b[c]]<a[i])
                        j=c+1;
              else
                        k=c;}
       if(a[i]<a[b[j]])
              {if(j)
                        p[i]=b[j-1];
              b[j]=i;}}
for(i=m,j=b[m];i--;j=p[j])
       b[i]=j;
for(i=b[0];i<=b[m-1];i++)
for(c=j=0;j<m&&!c;j++)
if(a[b[j]]==a[i])
       k++,c=1;
fprintf(g,"%d",k?k:-1);
return 0;}