poj3294 二分+后缀数组

//题意：给定n个字符串，让你求出在大于n/2个字符串中的最长公共串。
//height数组，存的是排名相邻的两个后缀的最长公共前缀。height是按后缀的字典序来的
//rank保存的是suffix(i)在所有后缀中从小到大的排列的名次。
//后缀数组sa:将str的n个后缀从小到大进行排序之后把排好序的后缀的开头位置顺次放入SA中。
#include<stdio.h>
#include<string.h>
#define max 101000
int next[max],sa[max];
int wa[max],wb[max],wv[max],ws[max];
int rank[max],height[max];
int vis[1001];
char tem[1001];
int str[max],lcp[max],n;
char ans[max];
int cmp(int *r,int a,int b,int l)
{
    return r[a]==r[b]&&r[a+l]==r[b+l];
}
void da(int *r,int *sa,int n,int m)
{
    int i,j,p,*x=wa,*y=wb,*t;
    for(i=0; i<m; i++) ws[i]=0;
    for(i=0; i<n; i++) ws[x[i]=r[i]]++;
    for(i=1; i<m; i++) ws[i]+=ws[i-1];
    for(i=n-1; i>=0; i--) sa[--ws[x[i]]]=i;
    for(j=1,p=1; p<n; j*=2,m=p)
    {
        for(p=0,i=n-j; i<n; i++) y[p++]=i;
        for(i=0; i<n; i++) if(sa[i]>=j)y[p++]=sa[i]-j;
        for(i=0; i<n; i++)wv[i]=x[y[i]];
        for(i=0; i<m; i++)ws[i]=0;
        for(i=0; i<n; i++)ws[wv[i]]++;
        for(i=1; i<m; i++) ws[i]+=ws[i-1];
        for(i=n-1; i>=0; i--) sa[--ws[wv[i]]]=y[i];
        for(t=x,x=y,y=t,p=1,x[sa[0]]=0,i=1; i<n; i++)
            x[sa[i]]=cmp(y,sa[i-1],sa[i],j)?p-1:p++;
    }
    return ;
}
void calheight(int *r,int *sa,int n)
{
    int i,j,k=0;
    for(i=1; i<=n; i++) rank[sa[i]]=i;
    for(i=0; i<n; height[rank[i++]]=k)
        for(k?k--:0,j=sa[rank[i]-1]; r[i+k]==r[j+k]; k++);
    return ;
}
int check(int mid,int len)
{
    int count=0;
    memset(vis,0,sizeof(vis));
    for(int i=2; i<=len; i++)
    {
        if(height[i]<mid)
        {
            memset(vis,0,sizeof(vis));
            count=0;
            continue;
        }//避免计算重复。
        if(!vis[lcp[sa[i]]])  vis[lcp[sa[i]]]=1,count++;
        if(!vis[lcp[sa[i-1]]])  vis[lcp[sa[i-1]]]=1,count++;
        if(count>n/2) return 1;
    }
    return 0;
}
void output(int mid,int len)
{
    int count=0,flag=0;
    memset(vis,0,sizeof(vis));
    for(int i=2; i<=len; i++)
    {
        if(height[i]<mid)
        {
            memset(vis,0,sizeof(vis));
            count=0;
            flag=0;
            continue;
        }
        if(!vis[lcp[sa[i]]])  vis[lcp[sa[i]]]=1,count++;
        if(!vis[lcp[sa[i-1]]])  vis[lcp[sa[i-1]]]=1,count++;
        if(count>n/2&&!flag)
        {
            for(int j=0; j<mid; j++)
                ans[j]=str[sa[i]+j]+'a'-1;
            ans[mid]='\0';
            printf("%s\n",ans);
            flag=1;
        }
    }
    return ;
}
int main()
{
    int len;
    int min;
    int sumLen;
    while(scanf("%d",&n),n)
    {
        memset(str,'\0',sizeof(str));
        min=max;
        sumLen=0;
        int m=28;
        for(int i=0; i<n; i++)//将字符串合并，记录最小长度值
        {
            scanf("%s",tem);
            len=strlen(tem);
            if(min>len) min=len;
            for(int j=0; j<len; j++)
            {
                str[sumLen]=tem[j]-'a'+1;
                lcp[sumLen++]=i;
            }
            str[sumLen]=m;
            lcp[sumLen++]=m++;
        }
        str[sumLen]=0;
        da(str,sa,sumLen+1,m);
        calheight(str,sa,sumLen);
        int left=0,right=min,mid;
        int flag=0;
        while(right>=left)//二分
        {
            mid=(right+left)/2;
            if(check(mid,sumLen))
            {
                left=mid+1;
                flag=mid;
            }
            else
            {
                right=mid-1;
            }
        }
        if(flag)
        {
            output(flag,sumLen);
        }
        else
            printf("?\n");
        printf("\n");
    }
    return 0;
}